VBA til kontrol af om tekst i excel celle findes i tabel i access
Hej jeg håber dette er det rette forum. Har prøvet ovre i Excel men der var ingen svar.Jeg kører en eksport kode fra excel for at eksportere timeforbrug til access. selve eksporten virker, men jeg kan ikke få denn kontrol, der ligger før eksporten til at virke. Koden skal kontrolere om ugenummeret findes i tabellen i DB der hedder TimeReview. Ugenumrene i både excel og access er tekst.
Jeg formoder at det er pga. at det er tekst at det går galt. Jeg får nemlig en fejl fra VBA der siger data type mismatch og en markering p følgende linie.
Set rsCheck = db.OpenRecordset(strSQL)
Håber du kan hjælpe.
Mvh.
Mads
****************************************
Sub ExportToAccess()
Dim db As Database, rs As Recordset, rsCheck As Recordset, strSQL As String, r As Long
Set db = OpenDatabase("c:\data\BPO\Timereview\TimeReview.mdb")
' open the database
'check for existing records
strSQL = "SELECT * FROM TimeReview WHERE Uge = " & Range("A98")
Set rsCheck = db.OpenRecordset(strSQL)
If Not rsCheck.BOF And Not rsCheck.EOF Then
MsgBox ("Records already present")
rsCheck.Close
Set rsCheck = Nothing
Exit Sub
End If
rsCheck.Close
Set rsCheck = Nothing