Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
15/06/2017 14:17
Konu Sahibi
bonur82
Yorumlar
1
Okunma
471
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
bonur82

bonur82

Üye
26865
 37
 1
 1
 06/11/2010
0
 Konya
 
 Ofis 2007
 18/02/2019,15:02
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


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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




ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 483
 12.103
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,00:31
Merhaba,
Örnek uygulamanızı eklemezseniz yardımcı olmamız zor.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Tablodan Silme Sorunu fascioğlu 3 371 28/07/2018, 01:47
Son Yorum: ozanakkaya
  Access Dosyası Yedekleme Şifre Sorunu pelitt 3 574 28/05/2017, 17:11
Son Yorum: atoz112
Question vb.net site tarama sorunu mmodelisi 18 2.982 17/06/2016, 17:41
Son Yorum: ozanakkaya
Exclamation accesste veri toplama sorunu Furkan Sezer 2 1.043 31/12/2015, 08:25
Son Yorum: ozanakkaya
Exclamation VERİ TABANI SORUNU 1DK BAKARMISINIZ! 12kopux 4 1.345 29/04/2015, 14:30
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.