NAVIGATIE
• Freetime overzicht
• Zoeken
RUBRIEKEN
• FAQ / Help
• Wat mag niet?
• WZL Wedstrijden
• WZL Chat
• WZL Toolbar
• WZL Statistieken
• WZL leden
• WZL shop
• E-cards
RSS 
• Fun-feed
• Babe-feed
• Stud-feed
Een groot aantal pokerrooms geven
de mogelijkheid om poker te spelen op internet en geld te storten via het veilige iDeal betaalsysteem. |
|
Origineel bericht
|
Menace
Sinds 2/12/2004
T: 37
R: 140
|
12/8/2005 -
2:57u
|
Quote
|
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:
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?
ik heb ook geprobeert met "" maar toen ik de waarde opvroeg van een leeg textvak kreeg ik de waarde null.. vandaar dat ik dacht om het eens met Null te proberen..
Dank bij voorbaat
|
|
|
