Set datDB = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\data\Flanger.mdb") strSQL = "Select * FROM Flat_Face_Flange Where D LIKE " & FraForm_D & " AND B LIKE " & FraForm_b & " AND [d1] LIKE " & FraForm_d1 & "" Set rsFlangeSøgning = datDB.OpenRecordset(strSQL)
Do Until rsFlangeSøgning.EOF FRM_HovedFlange.lstListe.AddItem rsFlangeSøgning("Tegningsnr") rsFlangeSøgning.MoveNext Loop
Du skal ikke bruge funktionen CDec når variablen er en double. Du skal bruge CDbl der konvertere til en double. Se MSDN under "Type Conversion Functions"
Har ændret hele svineriet til TEKST og lavet denne sætning her: strSQL = "Select * FROM " & FlangeTabel & " WHERE D='" & FraForm_D & "' AND B='" & FraForm_b & "' AND d1='" & FraForm_d1 & "'"
Synes godt om
Ny brugerNybegynder
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.