Global GeciciId As String
Şeklinde kod mevcut.
Ara isimli formdaki liste kutusunun çift tıklandığında olayında
GeciciId = Me.Liste5.Column(0)
Kodu var. Liste kutusu çift tıklandığında, GeciciId'e liste kutusunun satır kaynağındaki sorgunun ilk sütununda bulunan "MachineName" değerini aktarıyor. Column(0), sorgudaki ilk sütun. Column(1) yazsaydım, sorgudaki 2. sütunu alacaktı.
FrmComputers isimli formun etkinleştiğinde olayında da;
Dim rs As Object
If Len(GeciciId & "") = 0 Then
GeciciId = Dlookup ("MachineName", "Computers")
End If
Set rs = Me.Recordset.Clone
rs.FindFirst "[MachineName] = '" & GeciciId & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
kodu mevcut. Önceki formda bulunan Liste kutusu çift tıklandığında kaydedilen GeciciId değerini burada kullanıyor. frmComputers isimli formun kayıt kaynağında MachineName ile GeciciId değeri eşit olan ilk kaydı buluyor.