lundi 25 septembre 2017

Running an IF, ELSE stement on a vba SQL query

I would like to run the IF, ELSE statement below on a SQL query run from a connection between Excel and Access using VBA. Any idea why this won't work?

 Dim myValue As String
 Set cn = New ADODB.Connection
 cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & _
 "Data Source=Q:\TOC Contract Screenings\ScreeningLogDatabase.accdb"
 Set rs = New ADODB.Recordset

 If rs.Open("Select count(*) From [ScreeningLogsTEST] Where [ChangeScreeningNumber] = '" & myValue & "'", ActiveConnection:=cn, CursorType:=adOpenDynamic, LockType:=adLockOptimistic) = 0 Then MsgBox "New"
 Else
 MsgBox "Already exists"

Aucun commentaire:

Enregistrer un commentaire