Avatar billede magerlin Nybegynder
22. februar 2005 - 12:16 Der er 3 kommentarer og
1 løsning

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
Avatar billede hiks Nybegynder
22. februar 2005 - 12:43 #1
hej

jeg er ikke sikker på om det er det her du mener?

  strSQL = "SELECT * FROM TimeReview WHERE Uge = '" & Range("A98") & "';"

/hiks
Avatar billede hiks Nybegynder
22. februar 2005 - 12:47 #2
eller også returnerer db.openrecordset(strSQL) ikke et recordset.

/hiks
Avatar billede magerlin Nybegynder
22. februar 2005 - 15:38 #3
Hiks det virker. Tusind tak.

Læg en kommentar så du kan få velfortjænte point.

\Mads
Avatar billede hiks Nybegynder
22. februar 2005 - 15:42 #4
så et lille bette et her da... :o)

/hiks
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester