Form İlişkilendirmede Sınırlılık.iki Formda Aynı Veriyi Gösterme. | AccessTr.neT
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