Archief - [VBA/ACCESS] controle op formulier

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
M

Menace

Legacy Member
Ik wil dus dat er vooralleer er een nieuwe recordset wordt toegevoegd dat er wordt gecontrolleerd dat alle velden in het formulier zijn ingevuld. Nu heb ik al geprobeert met Me!objectnaam en met objectnaam.value.. en geen van beide blijkt invloed te hebben.. de recordset wordt zoiezo toegevoegd al dan niet of alles is ingevuld.

hier is de code:

Code: 
Private Sub cmdInvoeren_Click()

Dim rstKlant As New ADODB.Recordset

With rstKlant
    .ActiveConnection = CurrentProject.Connection
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open "tblKlanten"
    
    
    If txtNaam.Value = Null Or txtVoornaam.Value = Null Or txtAdres.Value = Null Or txtNr.Value = Null _
    Or txtPostcode.Value = Null Or txtGemeente.Value = Null Or txtTelefoonnr.Value = Null _
    Or dteGeboortedatum.Value = Null Or cboGeslacht.Value = Null Then
            MsgBox "Gelieve alle gegevens in te vullen"
    Else
        .AddNew
        !Naam = Me!txtNaam
        !Voornaam = Me!txtVoornaam
        !Adres = Me!txtAdres & " " & Me!txtNr
        !Postcode = Me!txtPostcode
        !Gemeente = Me!txtGemeente
        !Telefoon = Me!txtTelefoonnr
        !Geboortedatum = Me!dteGeboortedatum
        !Geslacht = Me!cboGeslacht
        .Update
        MsgBox "Nieuwe Klant is toegevoegd", vbOKOnly
    End If
End With

    
End Sub

ik heb ook al geprobeerd om per object een controle tedoen zodat je dan specifieke details kreeg van wat al dan niet ingevuld was.. maar ook hier werkte de controle niet.. zie ik miss iets over het hoofd?

Dank bij voorbaat
m

menlor

Legacy Member
hmm kzie het ni direct mss is proberen ipv Null gewoon ""
En uit ervaring weet ik da hij soms raar doet met veel or achter elkaar
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan