Form verilerinin yenilenmesi
Tarih
05/02/2009 11:44
Konu Sahibi
mzebek
Yorumlar
6
Okunma
6347
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ü 
Sponsor Reklam
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.757
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
23/05/2017,21:19
Çö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ü 
Sponsor Reklam
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ü 
Sponsor Reklam
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 üzerinden hesaplanan alanın başka form üzerinden güncelleştirilmesi nightashes 16 504 08/12/2016, 21:40 alpeki99
  Form da Cari Koda Göre Form Çağırma cagatay1234 5 299 10/10/2016, 11:05 atoz112
  Form içine form butonları ekleme IceMan7 7 692 26/07/2016, 11:44 IceMan7
Çözüldü Yıllara Göre Kayıtların Yenilenmesi emred34 9 852 30/12/2015, 23:35 ozanakkaya
Çözüldü Metin kutularının Yenilenmesi celilpartal 2 560 04/08/2015, 22:46 celilpartal


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status