Pozdrav!
Potrebno mi je da pomoću VBA koda pristupim svim labelama koje se nalaze na formama/reportima u okviru jedne MS Access aplikacije.
Našao sam kod pomoću kojeg mogu da pročitam i pristupim svim formama/reportima:
Dim rpt As AccessObject, dB As Object
Set dB = Application. CurrentProject
For Each rpt In dB AllReport
Debug.Print rpt.Name
Next rpt
za reporte i za forme:
Dim frm As AccessObject, dB As Object
Set dB = Application. CurrentProject
For Each frm In db.AllForms
Debug.Print frm.Name
Next frm
Da li postoji način da se sad za svaku formu/report dobije spisak njegovih labela i da se pristupi "caption" osobini svake labele?
Dim Kontrola As Control
For Each Kontrola In Me.Controls
If Kontrola.ControlType = acLabel Then
MsgBox "Ime Kontrole: '" & Kontrola.Name & "' Ime labele: '" & Kontrola.Caption & "'"
End If
Next Kontrola