Check of waarde is ingevuld

[Jumping]

Hallo,

Sinds kort druk doende om Access eigen te maken. En dat gaat erg lekker, ik vind het ook leuk om te doen.

Ik heb een nieuw formulier gemaakt waarin projecten worden aangemaakt. In dat formulier moet de gebruiker een debiteur selecteren. Inmiddels heb ik het zover dat dat allemaal zonder problemen gaat.

Ik wil nu echter ervoor zorgen dat een gebruiker niet zonder meer kan afsluiten. Dus hij is verplicht een debiteur te selecteren (keuzelijst). Hoe stel ik dit in. Mijn VBA macro voor het sluiten van het formulier zit onder een knop, de macro ziet er als volgt uit:

Private Sub Einde_opslaan_Click()

DoCmd.Maximize
DoCmd.Close
DoCmd.OpenForm "frm_Menu"

End Sub

Bedankt voor de hulp!!
Marcel

 

[Guus2005]

Allereerst is een macro in Access iets anders dan een macro in Excel of Word. Van macro's in Access weet ik niets. Op twee na gebruik ik die niet.
VBA dus.

Voordat je afsluit wil je dus eerst testen on je een debiteur geselecteerd hebt. Dat kan op meerdere manieren. Je zou de stop knop kunnen disabelen totdat een selectie in je combobox gemaakt is. Dat is de mooie variant.
De snelle variant is

Private Sub Einde_opslaan_Click()

if len(nz(me.cmbBox))>0 then
   DoCmd.Maximize
   DoCmd.Close
   DoCmd.OpenForm "frm_Menu"
else
   msgbox " Eerst een debiteur kiezen!"
endif
End Sub

 

[Jumping]

check

Guus,

Dank je wel voor je antwoord, ik krijg alleen de volgende melding:

Compileerfout: kan de methode of het gegevenslid niet vinden


Enig id?

Daarnaast zou ik wel graag willen weten hoe ik die knop kan disabelen (is het mogelijk een message box te tonen??)

 

[Jumping]

Zo .. het is me gelukt .. gewoon logisch nadenken .. scheelt weer.
Toch bedankt, daardoor kwam ik wel op het goede spoor.

Dit is het antwoord:

Private Sub Einde_opslaan_Click()

If Projecten_DebId <> "0" Then

DoCmd.Maximize
DoCmd.Close
DoCmd.OpenForm "frm_menu"

Else
MsgBox " Eerst een debiteur kiezen!"
End If

End Sub

Bedankt!
Marcel

 

[Guus2005]

Bedankt voor de oplossing.
Succes verder!