Na de zoveelste poging kreeg ik geef fout bij controle.
Maar er zal wel iets fout zijn.
Rapport bij klikken licht lichtjes op en dat was het.
Op dezelfde wijze als Vervalbericht maar de indeling veranderd:
Dim Bedrag As Currency
'Hier halen we het badrag op voor dit soort lidgeld
Bedrag = DLookup("Lidgeld", "tblSoortenLeden", "SoortLidID=" & Me.SoortLidID)
'Stel de zin samen
Dim strBericht As String
strBericht = "Ondergetekende doet zijn aanvraag om lid te worden van "De Jonge Gezelschapshond vzw. Hij/zij verklaart zich tevens te onderwerpen aan de statuten en aan het huishoudelijk reglement van de vereniging, waarvan hij/zij kennis heeft genomen. Hij/zij verklaart eveneens, tijdens zijn/haar lidmaat-schap bij DJG vzw geen lid te zijn of te zullen worden van een hondenclub niet aangesloten bij de KKUSH. “& vbCrLf & vbCrLf & _
“Het lidgeld bedraagd € " & _
CStr(geleider1) & _
“voor trainend lid, € " & _
CStr(geleider2) & _
“voor tweed geleider, en € " & _
CStr(steunendlid) & _
“voor steunendlid.” & vbCrLf & _
“De geleider mag voor die € " & _
CStr(geleider1) & _
“meer dan één hond trainen. “& vbCrLf & vbCrLf & _
" Toetredende leden voor Hoopers betalen € " & _
“(Geen lessen in de winter)." & vbCrLf & _
txtVervalbericht = strBericht
txtTeBetalen = Bedrag
End Sub