journeyman
Gebruiker
- Lid geworden
- 5 dec 2006
- Berichten
- 115
Hallo,
ik zit een beetje met mijn handen in mijn haar. ik probeer op het scherm een keuzelijst weer te geven. het probleem is echter dat slechts het eerste veld van de gekoppelde tabel weergegevens wordt en niet de rest!
hier is hoe ik werk:
Private Sub Form_Load()
With AdodcKlantgegevens
.RecordSource = "select* from Klantgegevens order by Klantid"
.Refresh
If .Recordset.RecordCount = 0 Then
teller = 1
Else
.Recordset.MoveLast
teller = .Recordset!Klantid + 1
End If
End With
'hier wordt de database geopend en wordt er naar de laatste record
'gegaan. De waarde die in Klantid staat wordt verhoogd met 1 en in de
'variabele "teller" gestoken. Deze variabele zal nadien
'de nummering van de nieuwe records gaan verzekeren.
With AdodcAanhef
.RecordSource = "select * from Aanhef order by AanhefId"
.Refresh
End With
Ik gebruik een combobox om de lijst te tonen
ik zit een beetje met mijn handen in mijn haar. ik probeer op het scherm een keuzelijst weer te geven. het probleem is echter dat slechts het eerste veld van de gekoppelde tabel weergegevens wordt en niet de rest!
hier is hoe ik werk:
Private Sub Form_Load()
With AdodcKlantgegevens
.RecordSource = "select* from Klantgegevens order by Klantid"
.Refresh
If .Recordset.RecordCount = 0 Then
teller = 1
Else
.Recordset.MoveLast
teller = .Recordset!Klantid + 1
End If
End With
'hier wordt de database geopend en wordt er naar de laatste record
'gegaan. De waarde die in Klantid staat wordt verhoogd met 1 en in de
'variabele "teller" gestoken. Deze variabele zal nadien
'de nummering van de nieuwe records gaan verzekeren.
With AdodcAanhef
.RecordSource = "select * from Aanhef order by AanhefId"
.Refresh
End With
Ik gebruik een combobox om de lijst te tonen
