23/02/2009, 00:25
SADIK54
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
1 2
23/02/2009, 00:25
SADIK54
23/02/2009, 01:59
SADIK54
arkadaşlar konu hakkında yardımcı olacak kimse yokmu yardımlarınızı bekliyorum.
23/02/2009, 06:08
mehmetdemiral
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ımaktarma ve silme başlasın
Kod:
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70Bu 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 bitirTekrar 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 ;", -1Bu aktarımdan sonra da liste'yi güncelleyelim:
Kod:
Me.Liste49.Requeryİşte bu kadar. Örneği de incelerseniz tam anlayacaksınız.
Kolay gelsin.
23/02/2009, 06:27
ozanakkaya
ben ekleyene kadar mehmet hocam eklemiş.
23/02/2009, 08:25
assenucler
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.
23/02/2009, 11:09
Seruz
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.
1 2