Form verilerinin yenilenmesi - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Form verilerinin yenilenmesi (/konu-form-verilerinin-yenilenmesi.html) Sayfalar:
1
2
|
Form verilerinin yenilenmesi - mzebek - 05/02/2009 Gününüz aydın olsun sevgili arkadaşlar; bir konuda yardıma ihtiyacım var. kısaca özetlersek; tek bir veri tabanında ayrı birimlere ait kayıtlar 1 den başlamak üzere tutuluyor ve ağ altında aynı birim çalışanları kayıt yapabiliyor.yapılan kayıtların anında güncellenmesi için ; Form_mudgidenevrak.Form.Refresh 'yineleme Form_mudgidenevrak.Form.Requery 'yenileme Form.Recalc 'yenileme komutlarıyla yapılabiliyor. Ancak problem bundan sonra başliyor .Form verileri yenilendiğinde form verileri tablodaki ilk kayda gidiyor.istenilen yineleme yapıldığında kayıt işlemini yapılan kayıtta kalması. tablo yapısıda kısaca şöyle. mudno ID sırano adı 10 1 1 ali 10 2 2 veli 15 3 1 selim 15 4 2 bahar 15 5 3 gel form açıldığında seçilen müdürlüğü ait kayıtları getiriyor. ac Last komutu diyeceksiniz belki doğru ancak her hangi bir kayıtta güncellme yapıldığında yine son kayda gidiyor bu da kullanıcı için sıkıntı yaratıyor. ilginize şimdiden teşekkür ederim. özbek murat Cvp: Form verilerinin yenilenmesi - tdsharun - 05/02/2009 Yenile butonunun tıklandığında olayına şu kodu ekleyip dener misiniz: Kod:
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 Yukarıdaki kod istediğini yapmazsa bir de şunu deneyin: Alıntı:Dim IdNo As Long Kolay gelsin... Cvp: Form verilerinin yenilenmesi - mehmetdemiral - 05/02/2009 Bir değişken atayın bir modül oluşturun, içine bir global değişken atayın Kod:
global aktifsira as string Kod:
aktifsira= me.mudgidenevrak.ID Kod:
Form_mudgidenevrak.Form.Refresh Kod:
DoCmd.GoToRecord acForm, "mudgidenevrak", acGoTo, aktifsira Kolay gelsin. Bu arada eğer sıra numarasını yanlış yerden aldıysak, ID alanı yanlış seçimse hatalı kayda gidecektir. O zaman bir benzersiz ID varsa onu kullanın. Ben sadece mantığını anlattım, siz kullanacağınız alanları doğru seçin yeter... Harun pardon, senin mesajını görmemişim. Sen zaten aynı şeyi anlatmışsın.. Kusura bakma .. Cvp: Form verilerinin yenilenmesi - tdsharun - 05/02/2009 Estağfurullah hocam, ne kusuru, olur mu... Bir sorunu çözmenin en az iki yolu vardır hocam... Biz alternatifleri verelim... Ayrıca kod farklılığı olsun. Kimin hangisi işine yararsa kullansın hocam... Paylaşım için teşekkürler... Kolay gelsin... Cvp: Form verilerinin yenilenmesi - mzebek - 05/02/2009 Sn tdsharun ve Sn.Mehmet Demiral ilginize şimdiden teşekkür ediyorum.kodları deneyerek tekrar size cevap yazarım. Kolay gelsin. özbek murat Cvp: Form verilerinin yenilenmesi - mzebek - 05/02/2009 Private Sub Komut81_Click() aktifsira = Me.ID If IsNull([konusu]) Or Form_gidenpostamud.evnergittigi.Value = "Giriniz!" Or Form_gidenpostamud.adresi.Value = "Giriniz!" Or Form_gidenpostamud.aehir.Value = "Giriniz!" Or IsNull(Form_gidenpostamud.aehir.Value) Or IsNull(Form_gidenpostamud.evnergittigi.Value) Or IsNull(Form_gidenpostamud.adresi.Value) Then MsgBox (" Lütfen Kaydınızı Kontrol Edin.!" & vbCrLf & " Boş Bırakılan Alanlar Var1."), vbExclamation, "Dikkat!" Cancel = True Form_gidenpostamud.evnergittigi.SetFocus Else Form_mudgidenevrak.Form.Refresh Form_mudgidenevrak.Form.Recalc DoCmd.GoToRecord acDataForm, "mudgidenevrak", acGoTo, aktifsira End If kod bu ancak son satırda 'mudgidenevrak' nesnesi açık değil hatası veriyor |