çalışmanızda F_AracListesiAF adında bir form yok ki)
fazladan boşluk var isminde, yoksa aslında Form_F_PoliceGiris.TextBox_ID gibi kullanabilirdiniz
Not çalışmanız bende hata verip durdu
düzeltmeme rağmen altform ismini düzeltmiyor
sildiğim boşluk sürekli geri geliyor
(22/04/2023, 22:39)Oğuz Türkyılmaz yazdı: [ -> ]@berduş hocam aşağıdaki gibi yazdım ama hata verdi.
Kod:
strSQL = "SELECT * FROM T_Arac WHERE ID =" & F_AracListesiAF.Form.ID & ""
![[Resim: do.php?img=15304]](https://resim.accesstr.net/do.php?img=15304)
(22/04/2023, 22:39)Oğuz Türkyılmaz yazdı: [ -> ]@berduş hocam aşağıdaki gibi yazdım ama hata verdi.
Kod:
strSQL = "SELECT * FROM T_Arac WHERE ID =" & F_AracListesiAF.Form.ID & ""
Ben formun adını yazmıştım listenin adı yazılacakmış. Bir de öyle deneyeyim.
@
berduş hocam tamamdır bu şekilde de oldu.
(22/04/2023, 22:48)berduş yazdı: [ -> ]çalışmanızda F_AracListesiAF adında bir form yok ki)
fazladan boşluk var isminde, yoksa aslında Form_F_PoliceGiris.TextBox_ID gibi kullanabilirdiniz
Not çalışmanız bende hata verip durdu
düzeltmeme rağmen altform ismini düzeltmiyor
sildiğim boşluk sürekli geri geliyor
Foruma yüklerken bende hata vermiyordu bu örnek dosya. Ana dosyamda böyle bir hata vermiyor zaten.
Kod:
Option Compare Database
Option Explicit
Dim rs As New ADODB.Recordset
Private Sub btn_Guncelle_Click()
DoCmd.OpenForm "F_AracTanimlama"
Dim strSQL As String
'strSQL = "SELECT * FROM T_Arac WHERE ID =" & Me.ID & ""
strSQL = "SELECT * FROM T_Arac WHERE ID =" & Me.Lst_AracListesi.Form.ID & ""
Set rs = CreateObject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open strSQL, CurrentProject.Connection
If Not rs.BOF Then
Form_F_AracTanimlama.TextBox_ID = rs!ID
Form_F_AracTanimlama.TextBox_AracNo = rs!ARAC_NO
Form_F_AracTanimlama.TextBox_PlakaNo = rs!ARAC_PLAKA
Form_F_AracTanimlama.ComboBox_AracTipi = rs!ARAC_TIPI
Form_F_AracTanimlama.TextBox_MuayeneTarihi = rs!MUAYENE_BITIS_TARIHI
Form_F_AracTanimlama.ComboBox_AracDurumu = rs!ARAC_DURUMU
'Form_F_PoliceGiris.btn_Kaydet.Enabled = False
'Form_F_PoliceGiris.btn_Guncelle.Enabled = True
End If
rs.Close
Set rs = Nothing
End Sub