Set datDB = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\Flanger.mdb") strSQL = "Select DISTINCT Varenummer FROM " & FlangeTabel & " Where D <= " & FRM_HovedFlange.txtd1.Text & " AND B <= " & FRM_HovedFlange.txtb.Text & "AND B >= " & MinB & "" Set rsFlangeSøgning = datDB.OpenRecordset(strSQL)
rsFlangeSøgning.MoveFirst
Do Until rsFlangeSøgning.EOF If IsNull(rsFlangeSøgning("Varenummer")) = True Then rsFlangeSøgning.MoveNext Else FRM_HovedFlange.lstListe.AddItem rsFlangeSøgning("Varenummer") rsFlangeSøgning.MoveNext End If Loop
Men så hopper den bare det Recordset over hvis der er problemer med at den er BLANK!
Jeg vil gerne at den skal skrive rsFlangesøgning("Tegningsnummer") istedet for, men der skriver at elementet ikke er i samlingen? Hvordan kan det være???
så du konverterer INDEN du stækker to stykker tekst fra hinanden.
Og så ville jeg huske at oprette dit recordsæt-variabel:
dim rsFlangesøgning as Recordset
Dine spørgsmål: Det første forstår jeg ikke hvad du mener Det næste: hvis den melder fejl om at elementet ikek findes, kunen det måske skyldes at elementet ikke findes - er du sikker på at det før det (stavefejl osv)
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.
