Tablo Aktarması Hakkında
Tarih
23/02/2009 00:25
Konu Sahibi
SADIK54
Yorumlar
11
Okunma
2444
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



SADIK54
Aktif Üye
Kullanici Avatari
Aktif Üye
252
15/11/2008
0
Sakarya
Ofis 2003
09/10/2016,07:39
Çözüldü 
Sponsor Reklam
resim

resim



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.


Ek Dosyalar
.rar   deneme.rar (Dosya Boyutu: 24,49 KB / İndirme Sayısı: 21)
Cevapla

SADIK54
Aktif Üye
Kullanici Avatari
Aktif Üye
252
15/11/2008
0
Sakarya
Ofis 2003
09/10/2016,07:39
Çözüldü 
arkadaşlar konu hakkında yardımcı olacak kimse yokmu yardımlarınızı bekliyorum.
Cevapla

mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.737
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
09/01/2017,15:21
Çözüldü 
Sponsor Reklam
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.



Ek Dosyalar
.rar   deneme_mdemiral.rar (Dosya Boyutu: 34,47 KB / İndirme Sayısı: 59)
İnadına, ille de Accesstr.net...
Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.189
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Dün,23:08
Çözüldü 
ben ekleyene kadar mehmet hocam eklemiş.


Ek Dosyalar
.rar   sled_deneme.rar (Dosya Boyutu: 26,96 KB / İndirme Sayısı: 39)
Cevapla

assenucler

Kullanici Avatari
Onursal
A.... S.... Ş....
2.053
31/10/2008
63
İstanbul
-
03/01/2017,18:22
Çözüldü 
Sponsor Reklam
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

Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.544
7
30/10/2008
804
Tekirdağ
Ofis XP
Çözüldü 
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


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  toplu ekleme hakkında. hbal09 7 292 16/01/2017, 08:27 hbal09
  Yapılan işi stoktan düşürme hakkında Gezente Çift 2 142 31/12/2016, 13:36 Gezente Çift
  Güncelle sorgusu hakkında nightashes 5 167 22/12/2016, 00:51 nightashes
  On Error - Hata denetimi hakkında. nightashes 16 484 18/12/2016, 18:12 nightashes
  iki tablo arasında girilen veriyi ikinci tabloda alan olarak oluşturma yardım bilservisci 8 254 15/12/2016, 11:49 atoz112


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya