Altformda Hücre İle Değil Satır İle İşlem Yapma Hakkında.

1 2 3
22/04/2023, 22:48

berduş

ç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:49

Oğuz Türkyılmaz

(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 & ""



(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, 23:01

Oğuz Türkyılmaz

(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
1 2 3