Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

İlişkisiz Tablo Ve Kayıt Kontrolü Sorunu

bonur82
bonur82
Çöp Kutusu
5
1577

İlişkisiz Tablo Ve Kayıt Kontrolü Sorunu

#1
bonur82
Üye
bonur82
Bul
Üye
Adı Soyadı:
Yaşı: 42
Konum: Konya
Ofis Versiyonu: Ofis 2007
Son Oturumu: 18/02/2019,15:02
Yorumları: 1
Konuları: 1
Kayıt Tarihi: 06/11/2010
Teşekkür Puanı: 0
Arkadaşlar sitede göremedim yardımcı olursanız sevinirim. Sanırım bir yerde mantık hatası yapıyorum.  Form üzerinde ilişkisiz ve satır kaynağı başka tablo olan iki listboxım var. Birinden diğerine butonlarla ekleme çıkarma yapıyorum. Formda yeni bir kayıt oluşturduğumda ekleme yapmam için Vba da refresh komutunu eklemem gerekiyor, aksi halde listboxlar arası öğe ekleme yapamıyorum. Çünkü ana tabloda satır henüz oluşmamış oluyor ( kaydetmeden son çıkış yaptığımda kontrol etmek istiyorum).  Buraya kadar sıkıntı olmuyor ama bu sefer de kayıt kontrolü yapamıyorum çünkü refresh komutu before update olayını tetikliyor ve before update içinde kaydetme işlemi yapmama izin vermiyor. Yani kısacası refresh yapmadan tablolar arası ekleme yapamıyorum, yapınca da formdaki kayıt kontrolünü gerçekleştiremiyorum. Bu döngüde takıldım kaldım  Icon_rolleyes 


Private Sub btn_ekle_maket_click()
    Me.Refresh 'problem burada'
    Set tbl_proje_maketleri = CurrentDb
        CurrentDb.Execute "INSERT INTO [tbl_proje_maketleri](Projeler_IDFK,Maketler_IDFK)" _
        & "select '" & Me.Projeler_ID & "','" & Me.lst_tum_maketler.ItemData(-1) & "'"
    'liste öğeleri yenileme ve formun kirli olayının aktif edilmesi
        Me.lst_secilen_maketler.Requery
        Me.Projeismi.SetFocus
        Me.Dirty = True
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)

If Me.Dirty = True Then

     soru = MsgBox("Değişiklikler Kaydedilsin mi?", vbYesNoCancel)    
           If soru = vbCancel Then
            Cancel = True
           ElseIf soru = vbYes Then
           DoCmd.RunCommand acCmdSaveRecord  'problem burada'
           MsgBox "Değişiklikler Kaydedildi"
           Else
           DoCmd.RunCommand acCmdUndo
           End if
End If
End Sub
Cevapla
#2
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 01/04/2025,15:38
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
Merhaba,
Örnek uygulamanızı eklemezseniz yardımcı olmamız zor.
Cevapla
#3
accessman
Aktif Üye
accessman
Bul
Aktif Üye
Adı Soyadı:
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/01/2021,20:07
Yorumları: 4.395
Konuları: 900
Kayıt Tarihi: 31/10/2008
Teşekkür Puanı: 434
benim ile yaklaşık aynı sıkıntıyı yaşayan bir arkadaş o da örnek eklememiş 
dirty diye arattım sadece bu soru çıktı
Cevapla
#4
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 01/04/2025,15:38
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
(17/03/2020, 15:04)accessman yazdı: benim ile yaklaşık aynı sıkıntıyı yaşayan bir arkadaş o da örnek eklememiş 
dirty diye arattım sadece bu soru çıktı


Siz sorularınıza örnek ekliyor musunuz???
Cevapla
#5
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Dün,23:28
Yorumları: 8.548
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
(17/03/2020, 15:04)accessman yazdı: benim ile yaklaşık aynı sıkıntıyı yaşayan bir arkadaş o da örnek eklememiş 
ve gördüğünüz gibi o da cevabini bulamamis? Sayın @accessman örnek çalışmayı kendimiz için değil sizin için istiyoruz, eğer bunu anlamıyorsanız ve "bak bu da eklenmemiş " diyorsanız hâlâ, kaybeden biz olmayiz çok çok bir göz gezdirir geçeriz ilgimizi çekiyorsa uğraşırız o kadar.
Cevapla
#6
feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 48
Konum: -
Ofis Versiyonu: Diğer
Son Oturumu: 28/07/2024,00:46
Yorumları: 3.642
Konuları: 95
Kayıt Tarihi: 30/03/2013
Teşekkür Puanı: 316
(15/06/2017, 14:17)bonur82 yazdı: Arkadaşlar sitede göremedim yardımcı olursanız sevinirim. Sanırım bir yerde mantık hatası yapıyorum.  Form üzerinde ilişkisiz ve satır kaynağı başka tablo olan iki listboxım var. Birinden diğerine butonlarla ekleme çıkarma yapıyorum. Formda yeni bir kayıt oluşturduğumda ekleme yapmam için Vba da refresh komutunu eklemem gerekiyor, aksi halde listboxlar arası öğe ekleme yapamıyorum. Çünkü ana tabloda satır henüz oluşmamış oluyor ( kaydetmeden son çıkış yaptığımda kontrol etmek istiyorum).  Buraya kadar sıkıntı olmuyor ama bu sefer de kayıt kontrolü yapamıyorum çünkü refresh komutu before update olayını tetikliyor ve before update içinde kaydetme işlemi yapmama izin vermiyor. Yani kısacası refresh yapmadan tablolar arası ekleme yapamıyorum, yapınca da formdaki kayıt kontrolünü gerçekleştiremiyorum. Bu döngüde takıldım kaldım  Icon_rolleyes 


Private Sub btn_ekle_maket_click()
    Me.Refresh 'problem burada'
    Set tbl_proje_maketleri = CurrentDb
        CurrentDb.Execute "INSERT INTO [tbl_proje_maketleri](Projeler_IDFK,Maketler_IDFK)" _
        & "select '" & Me.Projeler_ID & "','" & Me.lst_tum_maketler.ItemData(-1) & "'"
    'liste öğeleri yenileme ve formun kirli olayının aktif edilmesi
        Me.lst_secilen_maketler.Requery
        Me.Projeismi.SetFocus
        Me.Dirty = True
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)

If Me.Dirty = True Then

     soru = MsgBox("Değişiklikler Kaydedilsin mi?", vbYesNoCancel)    
           If soru = vbCancel Then
            Cancel = True
           ElseIf soru = vbYes Then
           DoCmd.RunCommand acCmdSaveRecord  'problem burada'
           MsgBox "Değişiklikler Kaydedildi"
           Else
           DoCmd.RunCommand acCmdUndo
           End if
End If
End Sub
Merhaba.
Alttaki kod tablo güncelliyor galiba birde bunu ekleyip deneyiniz.

currentdb.tabledefs.refresh
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task