===ok===
* ''' niet aankomen aub:
-DoCmd.close
-___.visible = true:faulse
-iets typen = "____________" &
-=null
-vbCrLf & _
-.setfocus
-MsgBox "__________ " & txt________ & "_______________" , typ knoppen + pictogrammen , "____________"
type knoppen:
-VbOkOnly OK
-vbOkCancel OK en ANNULEREN
-AbortRetryIgnore Afbreken, NOGMAALS en NEGEREN
-vbYesNoCancel JA,NEE en ANNULEREN
-vbYesNo JA en NEE
-RetryCancel NOGMAALS en ANNULEREN
pictogrammen:
-vbCritical X
-vbQuestion ?
-vbExclamation !
-vbInformation i
constanten:
const naam As type = waarde
vb const conPrijs As Singel = 0.55
variabelen:
Dim variabelennaam As type
vb Dim strNaam As String
Daarna nog is typen om het bij elkaar op te tellen
Inputbox:
Inputbox("_________________", "naam dat bovenaan moet komen")
Keuze of selectie: vb:
txt______
txt______
IF txt_______ = getal Or txt_____ = getal THEN
txt__________ = "_______________"
ELSE
txt_________ = "___________________"
END IF
Begrensde herhaling: vb:
FOR int______ = 1 TO getal
int______ = int______ * txt______
txt______ = txt______ & int______ & " * " & _
txt______ & " = " & int________ & vbCrLf
NEXT
txt______ = int(Rnd * 10)
<!-- ----------- Hieronder onderhoudsmeldingen -------------- -->
|