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