Gebruik de volgende code om een rapport op te bouwen:
Maar is het mogelijk om te bekijken of een veld niet voorkomt in de lijst met velden?
If "veldnaam" = "niet in de lijst met velden" then
Code:
Option Compare Database
Option Explicit
Const Kolom = 9
Const KolomkopVoorvoegsel = "K_"
Private Sub Report_Open(Cancel As Integer)
Dim rstRpt As DAO.Recordset, fldRpt As DAO.Field
Dim intVeldnr As Integer, strVeldnaam As String
Set rstRpt = CurrentDb.OpenRecordset(Me.RecordSource, dbOpenSnapshot)
intVeldnr = 0
For Each fldRpt In rstRpt.Fields
strVeldnaam = fldRpt.Name
If Left(strVeldnaam, Len(KolomkopVoorvoegsel)) = KolomkopVoorvoegsel Then
intVeldnr = intVeldnr + 1
Me("L" & intVeldnr).Caption = strVeldnaam
Me("V" & intVeldnr).ControlSource = strVeldnaam
End If
Next
Exit_Report_Open:
rstRpt.Close
Set fldRpt = Nothing
Set rstRpt = Nothing
End Sub
Maar is het mogelijk om te bekijken of een veld niet voorkomt in de lijst met velden?
If "veldnaam" = "niet in de lijst met velden" then
Laatst bewerkt: