? vdr. ID fra access database
Hvis jeg bruger flere table i en database, hvordan får jeg Id til at passe.jeg sender lidt code, men kan ikke få FornavnID med ind i Vb..Private Sub lstStandard_Click()
Dim dbLHDR As Database
Dim strResult As String
Dim rstResult As Recordset
Dim strSQL As String
Dim intID As Integer
Set dbLHDR = OpenDatabase(App.Path & \"\\LHDR.mdb\", True)
intID = lstStandard.ItemData(lstStandard.ListIndex)
strSQL = \"SELECT FornavnID, Fornavn, Efternavn, Adresse, Postnr, Bynavn, Telefon, Notat FROM min WHERE FornavnID=\" & intID
Set rstResult = dbLHDR.OpenRecordset(strSQL)
List1.Clear
While Not rstResult.EOF
strResult = rstResult.Fields(1) & vbTab & rstResult.Fields(2) & vbTab & rstResult.Fields(3) & vbTab & vbTab & rstResult.Fields(4) & vbTab & rstResult.Fields(5) & vbTab & rstResult.Fields(6) & vbTab & rstResult.Fields(7) & vbTab & rstResult.Fields(8)
List1.AddItem strResult
rstResult.MoveNext
Wend
rstResult.Close
dbLHDR.Close
Mvh. Leif