Skip to main content

AccessTr.neT


Tablo Aktarması Hakkında

Tablo Aktarması Hakkında

Çözüldü #1
[Resim: screenhunter01feb230803.gif]

[Resim: screenhunter02feb230804.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.
.rar deneme.rar (Dosya Boyutu: 24,49 KB | İndirme Sayısı: 21)
Cevapla
Çözüldü #2
arkadaşlar konu hakkında yardımcı olacak kimse yokmu yardımlarınızı bekliyorum.
Cevapla
Çözüldü #3
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.
.rar deneme_mdemiral.rar (Dosya Boyutu: 34,47 KB | İndirme Sayısı: 59)
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #4
ben ekleyene kadar mehmet hocam eklemiş.
.rar sled_deneme.rar (Dosya Boyutu: 26,96 KB | İndirme Sayısı: 40)
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
Çözüldü #5
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.
Cevapla
Çözüldü #6
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
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da