Goede mogen allemaal,
In Access ben ik bezig wat leuke dingetjes te maken en daarbij wordt ook VBA gebruikt. Ik heb een stuk code dat de waarden in een aantal tabel velden toetst aan de waarden in een formulier. Als de waarden gelijk zijn en bovendien ook de waarde van het veld "Disabled" in de tabel "False" is moet er in de tabel een boolean op "True" worden gezet.
De hele if then else constructie werkt, dat heb ik al geprobeerd met een functie om het hele record te wissen, na starten van de code inderdaad record weg.
Nu dus nog het wijzigen van een veld in het record dat geselecteerd is.
In Access ben ik bezig wat leuke dingetjes te maken en daarbij wordt ook VBA gebruikt. Ik heb een stuk code dat de waarden in een aantal tabel velden toetst aan de waarden in een formulier. Als de waarden gelijk zijn en bovendien ook de waarde van het veld "Disabled" in de tabel "False" is moet er in de tabel een boolean op "True" worden gezet.
De hele if then else constructie werkt, dat heb ik al geprobeerd met een functie om het hele record te wissen, na starten van de code inderdaad record weg.
Nu dus nog het wijzigen van een veld in het record dat geselecteerd is.
code:
1
2
3
4
5
6
7
8
9
10
11
| dsGebruiker.FindFirst Criterium
If dsGebruiker.NoMatch = False Then
If dsGebruiker!Wachtwoord = Forms![Gebruiker_verwijderen]!Wachtwoord Then
If dsGebruiker!Disabled = False Then
----->dsGebruiker!Disabled = True<----- 'hier moet een opdracht komen om een wijziging in een record te maken.
fktGebruikerVerwijderen = True
Else
If IsNull(dsGebruiker!Wachtwoord) = True Then
dsGebruiker!Disabled = True
fktGebruikerVerwijderen = True
End If |
There is no beast without cruelty, Friedrich Nietzsche