Arkadaşlar liste kutusunda seçtiğim bilgileri form sayfası içinde hücrelere yazdırıp başka bir tablodan gelen liste kutusuna aktarma yapmak istiyorum bu konuda yardımcı olurmusunuz. örnek dosyam ektedir.
Tablo Aktarması Hakkında
Arkadaşlar liste kutusunda seçtiğim bilgileri form sayfası içinde hücrelere yazdırıp başka bir tablodan gelen liste kutusuna aktarma yapmak istiyorum bu konuda yardımcı olurmusunuz. örnek dosyam ektedir.
arkadaşlar konu hakkında yardımcı olacak kimse yokmu yardımlarınızı bekliyorum.
Merhaba
Her bir buton teker teker verileri diğer metin kutularına aktarırken her seferinde uyarmasın
aktarma ve silme başlasın
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:
Sayaç 4 olduğunda ne yapılacak?
Tekrar uyarılarımız açılsın.
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:
Bu aktarımdan sonra da liste'yi güncelleyelim:
İşte bu kadar. Örneği de incelerseniz tam anlayacaksınız.
Kolay gelsin.
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
Kod:
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
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
Kod:
DoCmd.SetWarnings True 'tekrar uyarıları aç
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
Kod:
Me.Liste49.Requery
Kolay gelsin.
İnadına, ille de Accesstr.net...
ben ekleyene kadar mehmet hocam eklemiş.
Sayın Mehmet Demiral ve Sledgeab, sizlerden öyle güzel şeyler öğreniyoruz ki...
Sağolun ve her şey gönlünüzce olsun.
Selam ve sevgiler.
Sağolun ve her şey gönlünüzce olsun.
Selam ve sevgiler.
Ben mi yanlış görüyorum, yoksa siz hakkaten sabahın 5'in de mi cevap yazdınız?
Sn. mehmetdemiral'ın mesaj saati 5.08
Sn. sledgeab'ın mesaj saati 5.27
Hayretler içindeyim.
Nasıl bir forum sitesidir bu yarabbim,
Tebrikler.
Sn. mehmetdemiral'ın mesaj saati 5.08
Sn. sledgeab'ın mesaj saati 5.27
Hayretler içindeyim.
Nasıl bir forum sitesidir bu yarabbim,
Tebrikler.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Konfüçyüs
Konuyu Okuyanlar: 2 Ziyaretçi