Kod:
Private Sub ID_DblClick(Cancel As Integer)
DoCmd.OpenForm "F_PoliceGiris"
Dim strSQL As String
strSQL = "SELECT * FROM T_Policeler WHERE ID =" & Me.ID & ""
Set rs = CreateObject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open strSQL, CurrentProject.Connection
If Not rs.BOF Then
Form_F_PoliceGiris.TextBox_ID = rs!ID
Form_F_PoliceGiris.TextBox_IslemTarihi = rs!IslemTarihi
Form_F_PoliceGiris.TextBox_PoliceNo = rs!PoliceNo
Form_F_PoliceGiris.ComboBox_PoliceTipi = rs!PoliceTipi
Form_F_PoliceGiris.ComboBox_PlakaNo = rs!PlakaNo
Form_F_PoliceGiris.ComboBox_AracTipi = rs!AracTipi
Form_F_PoliceGiris.ComboBox_Acentesi = rs!Acentesi
Form_F_PoliceGiris.ComboBox_TeminatTipi = rs!TeminatTipi
Form_F_PoliceGiris.TextBox_TeminatTutari = rs!TeminatTutari
Form_F_PoliceGiris.TextBox_PoliceBaslangic = rs!PoliceBaslangic
Form_F_PoliceGiris.TextBox_PoliceBitis = rs!PoliceBitis
Form_F_PoliceGiris.TextBox_PoliceTutari = rs!PoliceTutari
Form_F_PoliceGiris.ComboBox_DovizCinsi = rs!DovizCinsi
Form_F_PoliceGiris.TextBox_IlkTaksitTarihi = rs!IlkTaksitTarihi
Form_F_PoliceGiris.ComboBox_TaksitSayisi = rs!TaksitSayisi
Form_F_PoliceGiris.TextBox_TaksitTutari = rs!TaksitTutari
Form_F_PoliceGiris.ComboBox_PoliceDurumu = rs!PoliceDurumu
Form_F_PoliceGiris.TextBox_Aciklama = rs!Aciklama
Form_F_PoliceGiris.TextBox_DosyaYolu = rs!DosyaYolu
Form_F_PoliceGiris.btn_Kaydet.Enabled = False
Form_F_PoliceGiris.btn_Guncelle.Enabled = True
End If
rs.Close
Set rs = Nothing
End Sub
Yüklediğim örnekte F_AraçListesi formunda ID hücresine çift tıklandığında açılan ARAÇTANIMLAMA formuna bilgileri alıyor ve istediğim güncelleme işlemini yapıyorum.