13/12/2012, 23:51
(13/12/2012, 17:22)GOOD_LESS yazdı: [ -> ]bir sorum olacak size programda talep, ve onay formları kapandığında ana forumdaki list2 isimli liste kutusunu yeniletemedim bir türlü bu konuda yardımcı olursanız program çok işlevsel olacak. Aksi halde f5 tuşunu kullanıcı atlayıp formu kapatıp açmak zorunda kalacatır.
bu isteğiniz doğrultusunda tekrar baktım formlarınıza.
talep ve onay formlarının kayıt işlemleri makro ile yapılmış. ben makrodan fazla anlamıyorum o yüzden dediğinizi kod ile yaptım. yaparken ADO kod dizilimini kulandığım için referanslar bölümünden
Microsoft ActiveX Data Object 2.8 Library seçmeniz gerekmekte. Seçtikten sonra
TALEP formunun kaydet butonuna yani Komut26 ya bu kodları yapıştırısanız hem kayıt işlemi gerçekleşecek. hemde ana formdaki Liste2 otomatik yenilenmiş olacak. bu şekilde diğer formlarada uygulayabilirsiniz.
aklıma gelmişken söyleyeyim. tablolarda ve formlarda yanlışlarınız mevcut. Türkçe karakterler kullanmışsınız. ilerleyen zamanlarda sorun yaşatır. ayrıca boşluk kullanmışsınız. onlar kesinlikle sorun çıkartır.
Dim rs As New ADODB.Recordset 'ADO kod diziliminde kullanmak için değişken tanımlıyoruz.
rs.Open "KAYITLAR", CurrentProject.Connection, adOpenKeyset, adLockOptimistic 'Kayıt için açılacak tablomuzu gösteriyoruz.
rs.AddNew 'gerçekleşecek olayların yeni kayıt olduğunu bildiriyoruz.
rs.Fields("TOPLANTI_GÜNÜ") = Me.TOPLANTI_GÜNÜ ' formumuzdaki alanlardan tablolarımızdaki alanlara kayıt yaptırıyoruz.
rs.Fields("TOPLANTI_SAATİ_BAŞLAMA") = Me.TOPLANTI_SAATİ_BAŞLAMA
rs.Fields("TOPLANTI_SAATİ_BİTİŞ") = Me.TOPLANTI_SAATİ_BİTİŞ
rs.Fields("TOPLANTI_KONUSU") = Me.TOPLANTI_KONUSU
rs.Update ' formdaki metin kutularından tablodaki alanlara kayıt işlemi burada gerçekleşiyor
rs.Close ' değişkenimizi tablo ile bağlantısını kapatıyoruz.
Set rs = Nothing ' değişken içeriğini boşaltıyoruz.
Form_ana.List2.Requery ' Burada Güncellemek istediğimiz formu ve bölümünü belirtip güncelliyoruz.
DoCmd.Close 'Formumuzu kapatıyoruz.