სურ.1.2. ფორმა დაპროექტების რეჟიმში
ფორმაზე დატანილ მართვის ელემენტებს მივანიჭოთ სახელები:
მართვის ელემენტი სახელი
ListBox Lsia
CommandButton Rzebna
Frame Frameo
OptionButton Oforma, Omoduli, Ocxrili
მართვის ელემენტში Frame-ში სამი გადამრთველი – OptionButton-ია, რომელთა მნიშვნელობები, როგორც მართვის ელემენტის Frame-ს ელემენტების შემდეგია: Oforma – 1, Omoduli – 2, Ocxrili – 3. როცა მონიშნულია გადამრთველი Oforma მოძებნილ იქნება პროექტში არსებული ყველა ფორმა, გადამრთველის Omoduli-ის მონიშვნისას – პროექტში არსებული ყველა მოდული, ხოლო Ocxrili-ის დროს კი – პროექტში არსებული ყველა ცხრილი. პროექტში, რომელშიც ვეძებთ ფორმებს, ცხრილებს, მოდულებს ჩვენს მიერ ფორმების სახელის დაწერისას ფორმის სახელი იწყება ასოთი F, ცხრილის– tb, ხოლო მოდულის სახელებია: Module1, Module2 და ა.შ.
ფორმის მოდულში ჩავწეროთ პროგრამა:
Private Sub Rzebna_Click()
Dim objf As AccessObject
’გამოცხადებულია ცვლადი objf როგორც Access-ის ობიექტი
Me.Lsia.RowSource = ""
Select Case Me.Frameo.Value
Case 1
For Each objf In CurrentProject.AllForms
’ Access-ის ობიექტური მოდელის თანახმად/სურ. 1.1/ ფორმები მიეკუთვნება CurrentProject-ის ჯგუფს
Me.Lsia.AddItem (objf.Name)
’ახალი სტრიქონის, ელემენტის დამატება
Next
Case 2
For Each objf In CurrentProject.AllModules ’Access-ის ობიექტური მოდელის თანახმად/სურ.1.1/ მოდულები მიეკუთვნება CurrentProject-ის ჯგუფს
Me.Lsia.AddItem (objf.Name)
Next
Case 3
For Each objf In CurrentData.AllTables
’Access-ის ობიექტური მოდელის თანახმად/სურ.1.1/ ცხრილები მიეკუთვნება CurrentData-ის ჯგუფს
Me.Lsia.AddItem (objf.Name)
Next
End Select
End Sub
პროგრამით მოძებნილი პროექტში არსებული ფორმების სია შემდეგია/სურ.1.3/: