+- AccessTr.neT (https://accesstr.net)
+-- Forum: AccessTr.neT Genel (https://accesstr.net/forum-accesstr-net-genel.html)
+--- Forum: Çöp Kutusu (https://accesstr.net/forum-cop-kutusu.html)
+--- Konu Başlığı: İlişkisiz Tablo Ve Kayıt Kontrolü Sorunu (/konu-iliskisiz-tablo-ve-kayit-kontrolu-sorunu.html)
İlişkisiz Tablo Ve Kayıt Kontrolü Sorunu - bonur82 - 15/06/2017
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
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 SubCvp: İlişkisiz Tablo Ve Kayıt Kontrolü Sorunu - ozanakkaya - 15/06/2017
Merhaba,
Örnek uygulamanızı eklemezseniz yardımcı olmamız zor.
Cvp: İlişkisiz Tablo Ve Kayıt Kontrolü Sorunu - accessman - 17/03/2020
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ı
Cvp: İlişkisiz Tablo Ve Kayıt Kontrolü Sorunu - ozanakkaya - 17/03/2020
(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???
Cvp: İlişkisiz Tablo Ve Kayıt Kontrolü Sorunu - berduş - 17/03/2020
(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.
Cvp: İlişkisiz Tablo Ve Kayıt Kontrolü Sorunu - feraz - 17/03/2020
(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ımMerhaba.
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
Alttaki kod tablo güncelliyor galiba birde bunu ekleyip deneyiniz.
currentdb.tabledefs.refresh