Merhaba
Her bir buton teker teker verileri diğer metin kutularına aktarırken her seferinde uyarmasın
Kod:
DoCmd.SetWarnings False 'Eylem sorgusu uyarılarını kapatalım
aktarma ve silme başlasın
Kod:
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Bu arada tüm kutular dolduğunda, yani 4 aktarım yapıldığında, form üzerine koyduğum sayaç "4" sayısına geldiğinde listeye aktarım butonu görünsün.
Onun denetim kaynağı şöyle:
Kod:
=IIf(IsNull([1 Adı Soyadı]);0;1)+IIf(IsNull([2 Adı Soyadı]);0;1)+IIf(IsNull([3 Adı Soyadı]);0;1)+IIf(IsNull([4 Adı Soyadı]);0;1)
Sayaç 4 olduğunda ne yapılacak?
Kod:
If Metin57 = 4 Then ' metin57 4 ise
Komut56.Visible = True ' Komut56 görünsün
Else 'değilse
Komut56.Visible = False ' komut56 gizlensin
End If 'if bitir
Tekrar uyarılarımız açılsın.
Kod:
DoCmd.SetWarnings True 'tekrar uyarıları aç
4 bölümde de veriler tamamlanınca ana aktarım butonu göründü. Şimdi bu butona basarak şu
Sql kodunu çalıştıralım:
Kod:
DoCmd.RunSQL "INSERT INTO Aktarılanlar ( [Adı Soyadı1], [Doğum Yeri1], Görevi1, [Adı Soyadı2], [Doğum Yeri2], Görevi2 ,[Adı Soyadı3], [Doğum Yeri3], Görevi3, [Adı Soyadı4], [Doğum Yeri4], Görevi4) SELECT [Forms]![Kişisel Bilgileri]![1 Adı Soyadı] AS adısoyadi1, [Forms]![Kişisel Bilgileri]![1 Doğum Yeri] AS dogumyeri1, [Forms]![Kişisel Bilgileri]![1 Görevi] AS gorevi1, [Forms]![Kişisel Bilgileri]![2 Adı Soyadı] AS adısoyadi2, [Forms]![Kişisel Bilgileri]![2 Doğum Yeri] AS dogumyeri2, [Forms]![Kişisel Bilgileri]![2 Görevi] AS gorevi2, [Forms]![Kişisel Bilgileri]![3 Adı Soyadı] AS adısoyadi3, [Forms]![Kişisel Bilgileri]![3 Doğum Yeri] AS dogumyeri3, [Forms]![Kişisel Bilgileri]![3 Görevi] AS gorevi3, [Forms]![Kişisel Bilgileri]![4 Adı Soyadı] AS adısoyadi4, [Forms]![Kişisel Bilgileri]![4 Doğum Yeri] AS dogumyeri4, [Forms]![Kişisel Bilgileri]![4 Görevi] AS gorevi4 ;", -1
Bu aktarımdan sonra da liste'yi güncelleyelim:
İşte bu kadar. Örneği de incelerseniz tam anlayacaksınız.
Kolay gelsin.
deneme_mdemiral.rar
(Dosya Boyutu: 34,47 KB | İndirme Sayısı: 59)
İnadına, ille de Accesstr.net...
![[Resim: screenhunter01feb230803.gif]](http://img218.imageshack.us/img218/5540/screenhunter01feb230803.gif)
![[Resim: screenhunter02feb230804.gif]](http://img218.imageshack.us/img218/9233/screenhunter02feb230804.gif)
#1
