AccessTr.neT

Sayın atoz112,

22. mesaja istinaden form üzerindeki metin denetim kutularını ve sorgu kodundakileri tek tek kontrol ettiğimde sorgu kodunda 1 adet alan adının eksik olduğunu fark ettim. Onu ekledikten sonra tekrar denemek istedim. Fakat bu seferde başka bir hata ile karşılaştım. Hata mealen diyor ki : 20 alan adından başkasını aktaramam. Amenna dedim. Alanları + ve - olarak değerlendirdikten sonra sayıyı 20 alana düşürdüm. Fakat bu seferde

Me.Tablo2alt.Requery

alanı hata vermeye başladı. Amenna dedim. Aktarım yapılacak tablo adını kontrol ettim. hata veren kod ile alan adını farklı şekilde değiştirdim yinede hata verdi.

NOT: Evdeki PC'de office yüklü değil, yüklemeye başladım. Yüklenince hemen örneği 2003'e çevirerek sisteme yükleyeceğim

Sayın mntf02,

uygulamanız incelenebilecek şekilde eklendiği takdirde,elbette ki daha fazla yardımcı olabilme imkanı söz konusu olacaktır.

Alıntı:...Me.Tablo2alt.Requery
alanı hata vermeye başladı...

yukarıdaki ifadenize yönelik olarak yapılabilecek tek açıklama şu olacaktır:

Tablo2alt isimli alt formunuzun isminde bir değişiklik yaptıysanız eğer,kodlama sayfasındaki ilgili kod satırında bir hata vermesi mümkündür.zira,eski ismi ile bulamadığından dolayı .requery komutunu uygulayamamaktadır.bu durumu tekrar kontrol etmenizde fayda vardır.bilgilerinize.

iyi çalışmalar,
saygılar.

Sayın atoz112,

Uygulama 2003 formatında eklenmiştir. Ancak 2007/2013 formatından 2003'e çevirince bazı özelliklerde hata verdi bilginiz olsun.

Saygılarımla...

Sayın mntf02,

Alıntı:...Tablo2alt isimli alt formunuzun isminde bir değişiklik yaptıysanız eğer,kodlama sayfasındaki ilgili kod satırında bir hata vermesi mümkündür.zira,eski ismi ile bulamadığından dolayı .requery komutunu uygulayamamaktadır.bu durumu tekrar kontrol etmenizde fayda vardır...

Son eklediğiniz uygulamanızın incelemesi yapıldığında;konunuzun 26.mesajında yukarıda açıklamasını yaptığım hususun geçerli olduğu görülmüştür. ArsiveAktar isimli formunuz tasarım olarak açılmak istendiğinde ArşiveAktarılanlar-AltFormu isimli alt formun yanlış yazıldığına ya da var olmayan bir forma başvuruda bulunulduğuna dair uyarıyı vermektedir.

Bu sebeple aşağıda belirtilen açıklamaları dikkate alarak uygulamanızı yeniden düzenleme işlemine geçmeniz sorununuzun çözümüne yardımcı olacaktır.

1) ArsiveAktar isimli formunuza eklediğiniz fakat ismini değiştirdiğinizden dolayı eski hali ile kalan ArşiveAktarılanlar-AltFormu isimli alt formunuzun kaynağını,yeni hali ile formlar listesinde mevcut bulunan ArsivAlt ismi ile değiştiriniz.
(bunun için,alt formun üzerine sağ tuş ile tıklayınız ve ÖZELLİKLER – VERİ – KAYNAK NESNE açılan kutu içeriğinden ArsivAlt’ı seçiniz.)

2) İsteğinize bağlı olarak, ÖZELLİKLER – DİĞER – AD sekmesinden de alt formunuzun ismini de değiştirebilir ya da aynı bırakabilirsiniz.(fakat burada size tavsiyem,ismini de kısa bir ifade ile tanımlamanız yerinde olacaktır.zira,eğer ki daha sonrasında kodlama sayfasında yazmanız gereken kodlar olursa bu alt forma ve içeriğindeki alanlara dair,karakter sayısı sorunu ile karşılaşmamış olursunuz böylece.)

3) ArsiveAktar isimli formunuzdaki Komut4 butonu içeriğindeki kodlamada yer alan
Me.Tablo2alt.Requery satırının yerine
Me. ArsivAlt. Requery ya da yeni bir tanımlama yaptıysanız o yeni ismi yazınız.



Sayın mntf02,
Yukarıda açıklamaları yapılan işlemleri uyguladığınız takdirde konunuzun sonlarında karşılaştığınızı belirttiğiniz sorununuzu çözerek gidermiş olacaksınız.Son bir tavsiye olarak şunları tekrar hatırlatmama izin verin lütfen;

a) Tablo,sorgu,form,rapor,tablo alan adları için aralarında boşluk bırakmaksızın kısa tanımlamalar içerecek şekilde isimlendirmeler yapınız.

b) Tablo,sorgu,form,rapor,tablo alan adları değişiklikleri söz konusu olduğunda bunları gerekirse notlar alarak takibini iyi yaparak gerek kodlama sayfasında gerekse de kendi isimlendirmelerinde yazımlarını kontrol etmeyi ihmal etmeyiniz.

c) Bir hata ile karşılaştığınızda bu hatanın kod numarasını ve adını not alınız ve konularınızda bahsini yaparken bunları mutlaka belirtmeyi unutmayınız.bilgilerinize.

iyi çalışmalar,
saygılar.

Sevgili www.accesstr.net takipçileri, yöneticileri ve adminleri,

Açmış olduğum konuda verilen destekler sonucunda baya ilerleme sağladım. Ancak verilen desteklere rağmen ( şahsım olarak VB'den anlamadığımdan dolayı ) tıkanmıştım. Ama ben bu tıkanmanın VB'de konu hakkında hazırlanan kodların belli bir sayıda tablo alan adını kapsadığını düşündüğümden ve kendim bunun devamını getiremediğimden dolayı Sayın atoz112'ye PESS ettiğimi belirttim. Ama Sayın atoz112 ısrarla ssorunun çözümü bulununcaya/sonuçlanıncaya kadar PESS etmememi ısrar etmesi üzerine PESS etmekten vazgeçtim. İlk iş olarak hafta başında işyerindeki PC'imde bulunan programımda daha mantıklı şekilde düşünerek çalışmama devam edeceğim.

Konu başlığım hakkında düşüncesi olan arkadaşların çok olduğunu düşündüğümden, sorunumu çözüme kavuşturduğumda herkesin faydalanması açısından paylaşımda bulunacağım.

Saygılarımla...

Sayın atoz112,

Dün siteye erişimde hata olduğundan dolayı Access - sql.com sitesinde arama yaptım. Yaptığım arama sonrasında daha farklı bir örnek buldum. Bulduğum örnek alt forma ihtiyaç duymuyor. Bende bunu uyarladım. Ancak yinede bir hata ile karşılaştım.

Karşılaştığım hata:

New ADODB.Recordset

Private Sub btnarsiveaktar_Click()

 'ARŞİV TABLOSUNA AKTARILANLAR

Set rstkayit = New ADODB.Recordset

rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

With rstkayit

.Find "[IDARSİV]=" & Me.IDNO

If Not rstkayit.EOF Then



.Fields("ADISOYADI") = Me.ADISOYADI

.Fields("TCKIMLIKNO") = Me.TCKIMLIKNO

.Fields("KOGUSU") = Me.KOGUSU

.Fields("DURUMU") = Me.DURUMU

.Fields("DOGUMYERI") = Me.DOGUMYERI

.Fields("DOGUMTARIHI") = Me.DOGUMTARIHI

.Fields("BABAADI") = Me.BABAADI

.Fields("ANAADI") = Me.ANAADI

.Fields("SUCU") = Me.SUCU

.Fields("CIKILKGIRISTARIHI") = Me.CIKILKGIRISTARIHI

.Fields("CIKILKGIRISTARIHI") = Me.CIKILKGIRISTARIHI

.Fields("KURUMDAMI") = Me.KURUMDAMI

.Fields("TAHTARIHI") = Me.TAHTARIHI

.Fields("SEVKTARIHI") = Me.SEVKTARIHI

.Fields("SEVKGITTIGICIK") = Me.SEVKGITTIGICIK

.Fields("VEFATTARIHI") = Me.VEFATTARIHI

.Fields("VEFATNEDENI") = Me.VEFATNEDENI

.Fields("FOTO") = Me.FOTO

.Fields("resim") = Me.resim

.Fields("IDDISIPLICEZALARI") = Me.IDDISIPLICEZALARI

.Fields("IDODUL") = Me.IDODUL

.Fields("ODULGORUSUALDI") = Me.ODULGORUSUALDI

.Fields("KIMLIKCIKARILDIMI") = Me.KIMLIKCIKARILDIMI

.Fields("KIMLIKCIKARMATARIHI") = Me.KIMLIKCIKARMATARIHI

.Fields("IDHASIM") = Me.IDHASIM

.Fields("DISIPLINCEZASIALDIMI") = Me.DISIPLINCEZASIALDIMI

.Fields("MISAFIR") = Me.MISAFIR

.Fields("CALISANLAR") = Me.CALISANLAR

.Fields("CALISTIGIBIRIM") = Me.CALISTIGIBIRIM

.Fields("TERORISTMI") = Me.TERORISTMI

.Fields("IDTEROR") = Me.IDTEROR

.Fields("COCUKMU") = Me.COCUKMU

.Fields("KADINMI") = Me.KADINMI

.Fields("KIMLIKVERILISNEDENI") = Me.KIMLIKVERILISNEDENI

.Fields("MESLEGI") = Me.MESLEGI

.Fields("MEDENIDURUMU") = Me.MEDENIDURUMU

.Fields("DEFTERNO") = Me.DEFTERNO

.Fields("KAYDEDILMESEBEBI") = Me.KAYDEDILMESEBEBI

.Fields("TOPLAMCEZASURESI") = Me.TOPLAMCEZASURESI

.Fields("SARTLISALIVERILMESURESI") = Me.SARTLISALIVERILMESURESI

.Fields("MAHSUBU") = Me.MAHSUBU

.Fields("TAHLIYETARIHI") = Me.TAHLIYETARIHI

.Fields("SARTLISALIVERMETARIHI") = Me.SARTLISALIVERMETARIHI

.Fields("ACIKCIKAYRILMATARIHI") = Me.ACIKCIKAYRILMATARIHI





.Update

Else

.AddNew

.Fields("IDARSİV") = Me.IDNO

.Fields("ADISOYADI") = Me.ADISOYADI

.Fields("TCKIMLIKNO") = Me.TCKIMLIKNO

.Fields("KOGUSU") = Me.KOGUSU

.Fields("DURUMU") = Me.DURUMU

.Fields("DOGUMYERI") = Me.DOGUMYERI

.Fields("DOGUMTARIHI") = Me.DOGUMTARIHI

.Fields("BABAADI") = Me.BABAADI

.Fields("ANAADI") = Me.ANAADI

.Fields("SUCU") = Me.SUCU

.Fields("CIKILKGIRISTARIHI") = Me.CIKILKGIRISTARIHI

.Fields("CIKILKGIRISTARIHI") = Me.CIKILKGIRISTARIHI

.Fields("KURUMDAMI") = Me.KURUMDAMI

.Fields("TAHTARIHI") = Me.TAHTARIHI

.Fields("SEVKTARIHI") = Me.SEVKTARIHI

.Fields("SEVKGITTIGICIK") = Me.SEVKGITTIGICIK

.Fields("VEFATTARIHI") = Me.VEFATTARIHI

.Fields("VEFATNEDENI") = Me.VEFATNEDENI

.Fields("FOTO") = Me.FOTO

.Fields("resim") = Me.resim

.Fields("IDDISIPLICEZALARI") = Me.IDDISIPLICEZALARI

.Fields("IDODUL") = Me.IDODUL

.Fields("ODULGORUSUALDI") = Me.ODULGORUSUALDI

.Fields("KIMLIKCIKARILDIMI") = Me.KIMLIKCIKARILDIMI

.Fields("KIMLIKCIKARMATARIHI") = Me.KIMLIKCIKARMATARIHI

.Fields("IDHASIM") = Me.IDHASIM

.Fields("DISIPLINCEZASIALDIMI") = Me.DISIPLINCEZASIALDIMI

.Fields("MISAFIR") = Me.MISAFIR

.Fields("CALISANLAR") = Me.CALISANLAR

.Fields("CALISTIGIBIRIM") = Me.CALISTIGIBIRIM

.Fields("TERORISTMI") = Me.TERORISTMI

.Fields("IDTEROR") = Me.IDTEROR

.Fields("COCUKMU") = Me.COCUKMU

.Fields("KADINMI") = Me.KADINMI

.Fields("KIMLIKVERILISNEDENI") = Me.KIMLIKVERILISNEDENI

.Fields("MESLEGI") = Me.MESLEGI

.Fields("MEDENIDURUMU") = Me.MEDENIDURUMU

.Fields("DEFTERNO") = Me.DEFTERNO

.Fields("KAYDEDILMESEBEBI") = Me.KAYDEDILMESEBEBI

.Fields("TOPLAMCEZASURESI") = Me.TOPLAMCEZASURESI

.Fields("SARTLISALIVERILMESURESI") = Me.SARTLISALIVERILMESURESI

.Fields("MAHSUBU") = Me.MAHSUBU

.Fields("TAHLIYETARIHI") = Me.TAHLIYETARIHI

.Fields("SARTLISALIVERMETARIHI") = Me.SARTLISALIVERMETARIHI

.Fields("ACIKCIKAYRILMATARIHI") = Me.ACIKCIKAYRILMATARIHI



.Update

 End If

End With



    'AKTARMA İŞLEMİ SONRASINDA SİSTEMİN İŞLEM HAKKINDA BİLGİ VERMESİ

    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

    MsgBox "SEÇİLİ HÜKÜMLÜ/TUTUKLU ARŞİVE AKTARILDI." & Chr(13) & "ARŞİVE AKTARILAN HÜKÜMLÜ/TUTUKLU FİHRİST TABLOSUNDAN SİLİNDİ.", , "AKTARIM SONRASI BİLGİ MESAJI"



End If

End Sub