[ MrNash @ 26.04.2013. 11:52 ] @
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?
[ Getsbi @ 26.04.2013. 12:09 ] @
U 2003 pokušaj Tools, Analyze, Documenter. U 2010 kartica Database Tools, grupa Analyze, dugme Database Documenter.

Ovde ne možeš direktno da pristupaš osobinama, ali vidš sve objekte i njihove osobine.
[ Zoran.Eremija @ 26.04.2013. 12:53 ] @
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
[ MrNash @ 26.04.2013. 13:04 ] @
Našao sam to slično na stranici

http://www.devhut.net/2010/12/...gh-all-the-controls-on-a-form/

Probaću. Hvala.
[ izonic @ 29.04.2013. 12:37 ] @
Evo moja procedura za labele.
[ MrNash @ 06.05.2013. 08:45 ] @
Hvala.