O sorun da çözüldü : ) Teşekkürler
Form İlişkilendirmede Sınırlılık.iki Formda Aynı Veriyi Gösterme.
Merhaba Ozan bey.
Bazı metin kutusu verilerini birleşik giriş kutusuna çevirdim. Bu sebeple diğer formdaki eş değer veriler değişmez oldu. Bunu nasıl düzeltebilirim ?
Bazı metin kutusu verilerini birleşik giriş kutusuna çevirdim. Bu sebeple diğer formdaki eş değer veriler değişmez oldu. Bunu nasıl düzeltebilirim ?
Son Düzenleme: 30/07/2018, 11:56, Düzenleyen: antoryum.
Merhaba,
Son örneğinizdeki butonun tıklandığında olayındaki kodları aşağıdaki ile değiştirerek deneyiniz.
Son örneğinizdeki butonun tıklandığında olayındaki kodları aşağıdaki ile değiştirerek deneyiniz.
Dim accesstr_kod As Integer
If IsNull(Me.IS_NO) Or Me.IS_NO = "" Then
MsgBox ("Detay Bilgisi Görebilmeniz İçin Veri Girişi Yapmalısınız")
Exit Sub
End If
strsql = "SELECT * FROM IS_BILGISI_TABLO "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strsql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Find "[islem_id]=" & Me.Metin3
If Not rstkayit.EOF Then
MsgBox ("var, güncelle")
.Fields("islem_id") = Me.Metin3
.Fields("motor") = Me.motor
.Fields("guc") = Me.guc
.Fields("devir") = Me.DEVIR_DOLU
.Fields("devir") = Me.DEVIR_BOS
.Fields("sanziman") = Me.TRANSMISSION
.Fields("pervane_cap") = Me.pervane_cap
.Fields("pervane_pitch") = Me.PITCH
.Fields("sag_sol") = Me.SAG_SOL
.Fields("kanat_sayisi") = Me.ADET
.Fields("surat") = Me.surat
.Fields("pervane_modeli") = Me.MODEL
.Fields("oran") = Me.oran
.Update
Else
MsgBox ("yok ekle")
.AddNew
.Fields("islem_id") = Me.Metin3
.Fields("motor") = Me.motor
.Fields("guc") = Me.guc
.Fields("devir") = Me.DEVIR_DOLU
.Fields("devir") = Me.DEVIR_BOS
.Fields("sanziman") = Me.TRANSMISSION
.Fields("pervane_cap") = Me.pervane_cap
.Fields("pervane_pitch") = Me.PITCH
.Fields("sag_sol") = Me.SAG_SOL
.Fields("kanat_sayisi") = Me.ADET
.Fields("surat") = Me.surat
.Fields("pervane_modeli") = Me.MODEL
.Fields("oran") = Me.oran
.Update
End If
End With
DoCmd.OpenForm "IS_BILGISI_FORM", acNormal, , "[islem_id]= " & Me.Metin3, , acWindowNormal
Teşekkürler Ozan hocam. Kayıt güncellemede sorun yok. Butona bastığım zaman eğer kayıt yok ise "yok ekle" diye bir uyarı mesajı çıkıyor. Kayıt varsa "var,güncelle" yazıyor. Sanırım bunlar benim ödevim oluyorlar
Merhaba, kod içerisine test amaçlı mesaj kutusu eklemiştim. Bu msgboxları kaldırabilirsiniz.
Teşekkürler Ozan hocam. Sorun çözüldü.
Konuyu Okuyanlar: 1 Ziyaretçi