Ik heb nu een formulier groepen aangemaakt, met een schuifbalk kun je selecteren en dan krijg je de vakken ingevuld. Dit heb ik zo gedaan:
Private Sub grkeuze_AfterUpdate()
Dim db As Database
Dim strSQL As String
Dim rst As DAO.Recordset
strSQL = "SELECT grpid, grpnaam, grpomschrijving, grpbijzonderheden " & _
"FROM tblgroep " & _
"WHERE grpid = " & Me!grkeuze & ""
Set db = CurrentDb
Set rst = db.OpenRecordset(strSQL)
With rst
Me!grid = !grpid
Me!grnaam = !grpomschrijving
Me!gromschrijving = !grpomschrijving
Me!grbijzonderheden = !grpbijzonderheden
End With
Me!grid.Locked = True
Me!grnaam.Locked = True
Me!gromschrijving.Locked = True
Me!grbijzonderheden.Locked = True
End Sub
Nu wil ik een knop maken om de velden leeg te maken en ook een nieuw id toe te kunnen kennen. Dit wil mij nog niet helemaal lukken. Iemand die me hier mee kan helpen?
Private Sub grkeuze_AfterUpdate()
Dim db As Database
Dim strSQL As String
Dim rst As DAO.Recordset
strSQL = "SELECT grpid, grpnaam, grpomschrijving, grpbijzonderheden " & _
"FROM tblgroep " & _
"WHERE grpid = " & Me!grkeuze & ""
Set db = CurrentDb
Set rst = db.OpenRecordset(strSQL)
With rst
Me!grid = !grpid
Me!grnaam = !grpomschrijving
Me!gromschrijving = !grpomschrijving
Me!grbijzonderheden = !grpbijzonderheden
End With
Me!grid.Locked = True
Me!grnaam.Locked = True
Me!gromschrijving.Locked = True
Me!grbijzonderheden.Locked = True
End Sub
Nu wil ik een knop maken om de velden leeg te maken en ook een nieuw id toe te kunnen kennen. Dit wil mij nog niet helemaal lukken. Iemand die me hier mee kan helpen?
[ Voor 4% gewijzigd door Verwijderd op 23-09-2003 09:32 ]