Form verilerinin yenilenmesi
Tarih
05/02/2009 11:44
Konu Sahibi
mzebek
Yorumlar
6
Okunma
5791
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



mzebek
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
48
02/11/2008
Balıkesir
Ofis 2003
09/11/2013,12:16
Çözüldü 
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
Cevapla


tdsharun
>>> O Şimdi Sivil<<<
Kullanici Avatari
Aktif Üye
778
06/11/2008
225
Kütahya
Ofis 2003
31/12/2011,02:16
Çözüldü 
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
IdNo = Me.ContactID 'Otomatik Sayı değeri alan alanınızın adı
Me.Requery
Form.Requery
DoCmd.FindRecord IdNo, acEntire, , acSearchAll, , acCurrent

Kolay gelsin...
Cevapla


mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.734
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
05/12/2016,11:17
Çözüldü 
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 


güncelleme butonunun en üstüne yazacağınız şu komutla aktif sıra noyu form üzerinden alarak bu değişkene atayın. Form üzerinde ID alanı vardır, yoksa da ekleyin. Gizli olabilir. O an bulunduğunuz kayıt form üzerinde yazıyor olmalı.

Kod:
aktifsira= me.mudgidenevrak.ID


sonra da güncelleme kodlarınız

Kod:
Form_mudgidenevrak.Form.Refresh 
Form_mudgidenevrak.Form.Requery
Form.Recalc 


ve ardında da

Kod:
DoCmd.GoToRecord acForm, "mudgidenevrak", acGoTo, aktifsira


bu şekide sanırım olması lazım. Deneyin olmazsa düzeltelim.

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 ..
İnadına, ille de Accesstr.net...
Cevapla


tdsharun
>>> O Şimdi Sivil<<<
Kullanici Avatari
Aktif Üye
778
06/11/2008
225
Kütahya
Ofis 2003
31/12/2011,02:16
Çözüldü 
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...
Cevapla


mzebek
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
48
02/11/2008
Balıkesir
Ofis 2003
09/11/2013,12:16
Çözüldü 
Sn tdsharun ve Sn.Mehmet Demiral ilginize şimdiden teşekkür ediyorum.kodları deneyerek tekrar size cevap yazarım.
Kolay gelsin.
özbek murat
Cevapla


mzebek
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
48
02/11/2008
Balıkesir
Ofis 2003
09/11/2013,12:16
Çözüldü 
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
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Form da Cari Koda Göre Form Çağırma cagatay1234 5 179 10/10/2016, 11:05 atoz112
  Form içine form butonları ekleme IceMan7 7 537 26/07/2016, 11:44 IceMan7
Çözüldü Yıllara Göre Kayıtların Yenilenmesi emred34 9 745 30/12/2015, 23:35 ozanakkaya
Çözüldü Metin kutularının Yenilenmesi celilpartal 2 487 04/08/2015, 22:46 celilpartal
Çözüldü access ana form üzerinde bulunan alt form da bulunan komutu çalıştırabilirmiyim serif_28 2 826 13/05/2015, 01:26 serif_28


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya