28. august 2001 - 20:18Der er
2 kommentarer og 1 løsning
? vdr. ID fra access database til vb
Hvis jeg bruger flere table i en database, hvordan får jeg Id til at passe. bruger autonummer.
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)
Så vidt jeg kan se, er der ikke noget galt med din kode, men du skal flytte koden til hændelsen lstStandard_AfterUpdate(). Denne hændelse afvikles hver gang, du har valgt noget nyt i listen lstStandard.
Tak til Jens-Peter Men mit problem er der endnu. Jeg har hændelsen lstStandard_Click i første ListIndex, som er adresser fra tabel no 1 hvor jeg klikker på den ønskede, hvorved data fra no 2 tabel kommer ned i ListIndex1 hændelsen lstData_Click hvor jeg klikker på de ønskede Data, som så skulle finde handligen, fra tabel no 3. Jeg ved ikke om det er forståeligt, men håber. Mvh. Leif
Hej Leif Du skulle ikke have accepteret mit svar, når problemet ikke er løst. Jeg beklager, men jeg forstår ikke helt dit problem. Mener du, at du er nødt til at bruge Click hændelse i stedet for AfterUpdate? Hvor mange lister har du (2 eller 3)? Er det korrekt opfattet at handlingen der skal udføres er lagret i tabel 3? Hvis du vil, er du velkommen til at sende hele eller dele af databasen til mig på jpk@mail.tele.dk, men så vidt muligt i Access97 format.
mvh/Jens-Peter
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.
