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
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.