Tablo Aktarması Hakkında - Baskı Önizleme

Tablo Aktarması Hakkında - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tablo Aktarması Hakkında (/konu-tablo-aktarmasi-hakkinda.html)

Sayfalar: 1 2

Tablo Aktarması Hakkında - SADIK54 - 23/02/2009

[Resim: screenhunter01feb230803.gif]

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.

Cvp: Tablo Aktarması Hakkında - SADIK54 - 23/02/2009

arkadaşlar konu hakkında yardımcı olacak kimse yokmu yardımlarınızı bekliyorum.

Cvp: Tablo Aktarması Hakkında - mehmetdemiral - 23/02/2009

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:

Kod:

Me.Liste49.Requery

İşte bu kadar. Örneği de incelerseniz tam anlayacaksınız.

Kolay gelsin.

Cvp: Tablo Aktarması Hakkında - ozanakkaya - 23/02/2009

ben ekleyene kadar mehmet hocam eklemiş.

Cvp: Tablo Aktarması Hakkında - assenucler - 23/02/2009

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.

Cvp: Tablo Aktarması Hakkında - Seruz - 23/02/2009

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.
10806