Skip to main content

AccessTr.neT


Form İlişkilendirmede Sınırlılık.iki Formda Aynı Veriyi Gösterme.

Form İlişkilendirmede Sınırlılık.iki Formda Aynı Veriyi Gösterme.

#13
O sorun da çözüldü : ) Teşekkürler
Cevapla
#14
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 ?
.rar AccessTr30.rar (Dosya Boyutu: 428,43 KB | İndirme Sayısı: 2)
Son Düzenleme: 30/07/2018, 11:56, Düzenleyen: antoryum.
Cevapla
#15
Merhaba, 

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


Cevapla
#16
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 Img-grin
Cevapla
#17
Merhaba, kod içerisine test amaçlı mesaj kutusu eklemiştim. Bu msgboxları kaldırabilirsiniz.
Cevapla
#18
Teşekkürler Ozan hocam. Sorun çözüldü.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task