AccessTr.neT

Sayfalar: 1 2

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

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.

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.

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

Sayfalar: 1 2

SADIK54

SADIK54

mehmetdemiral

ozanakkaya

assenucler

Seruz