Auteur Topic: Bijlage automatisch koppelen (gelezen 9952 keer)

dizzl · « **Reactie #15 Gepost op:** 27 februari 2013, 07:31:30 »

Ik zie niet meteen wat de vraag is maar ik vermoed het volgende
Die elsen hoeven er trouwens niet te staan (er gebeurt toch niets in)
bij elke fout die je tegenkomt zet je exit sub

Code: [Selecteer]

If aantal = "" Then
     aantal = InputBox("U bent vergeten het aantal vergeten ", "AANTAL NIET INGEVULD")
     aantal.SetFocus
     exit  sub
End If

If Verkoopprijs = "" Then
     Verkoopprijs = InputBox("U bent de prijs vergeten", "PRIJS NIET INGEVULD")
    exit sub
End If

If Combo3 = "bezorgadres" Then
     MsgBox "bezorgadres niet juist ? " 
     Combo3.SetFocus
     exit sub
End If

Help!

Menu

Hulp bij posten

Zoeken

Recente topics

Auteur Topic: Bijlage automatisch koppelen (gelezen 9952 keer)

dizzl

Re: Bijlage automatisch koppelen