Programmeren in VB&VBA: verschil tussen versies
Verwijderde inhoud Toegevoegde inhoud
k Wijzigingen door 2A02:A03F:4822:E00:280E:758E:4D90:AA80 hersteld tot de versie na de laatste wijziging door QZanden Label: Terugdraaiing |
Label: Herhaalde karakters |
||
Regel 326:
* '''CInt(...)''' : zet de inhoud van ... om in integer
* '''Str(...)''' : zet ... om in String
===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
<!-- ----------- Hieronder onderhoudsmeldingen -------------- -->
| |||