Menace
wzl-lid
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
|
Aries Belgium
wzl-lid
Sinds 17/7/2005
T:5 -
R:154
|
12/8/2005 -
3:16u
| Quote
|
Het is echt raar. Ik heb het juist zelf even verschillende andere dingen en combinaties geprobeerd zonder enig resultaat. Wat is er toch mis met VBA?  Alles wat logisch lijkt, werkt niet !
|
Menace
wzl-lid
Sinds 2/12/2004
T:37 -
R:140
|
12/8/2005 -
3:27u
| Quote
|
|
ge moet et mij ni zeggen.. heb nog zo'n probleem met een keuzelijst die zijn waarden van een query haalt.. vanaf dat ik group by in die query gebruik geeft de keuzelijst geen waarden meer weer.. terwijl de query er zelf wel weergeeft...
|
Menace
wzl-lid
Sinds 2/12/2004
T:37 -
R:140
|
12/8/2005 -
13:57u
| Quote
|
Moest het je nog interesseren (altijd handig om te weten natuurlijk)... om die controle te doen werken moest de functie IsNull gebruikt worden.. dus in dit geval is het dan..
If Isnull(txtNaam.value) Or.... Then
in dit geval werkt het wel
|
An Khayra
wzl-lid
Sinds 27/5/2004
T:5 -
R:72
|
18/8/2005 -
9:15u
| Quote
|
Als ik het goed begrijp is dit een formulier op een Access tabel? Maar waaroom gebruik je dan ADODB? Is dan DAO niet simpeler?
Dan zet je toch gewoon "Vereist" of "Required" voor die velden op "Ja" of "True", en doe hetzelfde met "Lengte nul toegestaan"?
Laatst aangepast door
An Khayra
op 18/08/2005 9:16:19u
(1x aangepast)
|
