[VBA] Gecici Tablodan Esas Taboya Kayıt

karacahil · **Kayıt Tarihi:** 01.07.2021

Değerli arkadaşlar merhaba,
aşağıdaki kod ile
gecici tablodaki verileri
esas tabloya kaydediyorum.

bu koda eklemek istediğim,(yapamadığım)

satis_no = rs!satis_no ( bu şekilde olmadı hata verdi.) (aşağıdaki örnekte eklenmiş hali var)

esas tabloya satis_no alanı ekledim.
form üzerine de satis_no metin kutusu ekledim.

gecici tablodaki verileri esas tabloya aktarırken, her kayıt için satis_no kodunu da eklemesini istiyorum.
yardımlarınız için şimdiden çok teşekkür ederim,
saygılarımla,

Yapmaya çalıştığım Örnek aşağıdaki gibidir? (satis_no) tüm kayıtların başında olacak

id satis_no ad yaş
1 255 aaa 20
2 255 bbb 21
3 255 ccc 20

Visual Basic
Private Sub Komut6_Click()
 
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset
Dim db As Database
Dim strSQL As String
    Set db = CurrentDb()
    strSQL = "SELECT  * FROM gecici"
    Set rs = db.OpenRecordset(strSQL)
    strSQL = "SELECT  * FROM esas"
    Set rs1 = db.OpenRecordset(strSQL)
    If rs.EOF = True Then GoTo 150
    rs.MoveFirst
    Do Until rs.EOF
        rs1.AddNew
        rs1!ad = rs!ad
        rs1!yaş = rs!yaş
        me.satis_no.text = rs!satis_no
        rs1.Update
        rs.MoveNext
    Loop
 
   DoCmd.RunSQL "DELETE * FROM gecici"
   MsgBox ("Aktarma işlemi yapıldı...Geçici tablodaki veriler silindi......!!!")
150
End Sub

celalll · **Kayıt Tarihi:** 27.11.2017

rs!sipno=me.satis_no.text ...gibi.
yani formdaki text alan adını,sipariş_no alanına göster

karacahil · 01-11-2021, 15:48

merhaba celal bey,
sanırım olmadı,
örnek üzerinden yardımcı olabilirmisiniz?

celalll · 01-11-2021, 16:34

inceleyin lütfen

karacahil · 01-11-2021, 17:03

Sn celal bey
çok teşekkürler,

dsezgin · 01-11-2021, 19:08

(01-11-2021, 14:49)karacahil demiş ki: Değerli arkadaşlar merhaba,
aşağıdaki kod ile
gecici tablodaki verileri
esas tabloya kaydediyorum.

bu koda eklemek istediğim,(yapamadığım)

satis_no = rs!satis_no ( bu şekilde olmadı hata verdi.) (aşağıdaki örnekte eklenmiş hali var)

esas tabloya satis_no alanı ekledim.
form üzerine de satis_no metin kutusu ekledim.

gecici tablodaki verileri esas tabloya aktarırken, her kayıt için satis_no kodunu da eklemesini istiyorum.
yardımlarınız için şimdiden çok teşekkür ederim,
saygılarımla,

Visual Basic
Private Sub Komut6_Click()
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset
Dim db As Database
Dim strSQL As String
    Set db = CurrentDb()
    strSQL = "SELECT  * FROM gecici"
    Set rs = db.OpenRecordset(strSQL)
    strSQL = "SELECT  * FROM esas WHERE (((ad)='" & rs!ad & "') And ((yaş)=" & rs!yaş & "))"       '********* Güncellendi *****************
    Set rs1 = db.OpenRecordset(strSQL)
    If rs.RecordCount = 0 Then Exit Sub
    rs.MoveFirst
    Do Until rs.EOF
        rs1.AddNew
        rs1!ad = rs!ad
        rs1!yaş = rs!yaş
        rs1!satis_no = Me.satis_no  '********* Güncellendi *****************
        rs1.Update
        rs.MoveNext
    Loop
rs1.Close: rs.Close
Set rs1 = Nothing: Set rs = Nothing
    DoCmd.RunSQL "DELETE * FROM gecici"
   MsgBox ("Aktarma işlemi yapıldı...Geçici tablodaki veriler silindi......!!!")
End Sub

olarak degıstırın.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[VBA] Selenium Ile Gizli Tablodan Veri çekmek.	prtkl	4	430	13-05-2025, 09:27 Son Mesaj: prtkl
	Kullanıcıya Göre Tablodan Veri çekme	semyross	1	328	20-12-2024, 00:30 Son Mesaj: halily
	Tablodaki Alanı Alt Tablodan Alınan Değerle Güncelleme Sorgusu	Lidervet	7	636	02-12-2024, 11:20 Son Mesaj: halily
	[TABLO] Tablodan Rapor Alma	vefa1982	11	604	28-10-2024, 01:53 Son Mesaj: dsezgin
	[TABLO] Word Tablodan Tarih Aktarımı	kahramanselim	6	509	01-10-2024, 12:34 Son Mesaj: halily
	Farklı Tablodan Mükerrer Olmayan Bilgi Almak	bilservisci	5	530	17-12-2023, 18:04 Son Mesaj: dsezgin
	Buton Adlarının Tablodan Gelmesi	alikagan	17	1.704	29-10-2023, 01:09 Son Mesaj: dsezgin
	[VBA] Kayıt Iptali: Kayıt Iptal Tablosuna Ekle, Kayıdı Sil Işlemi	programmer67	6	843	21-07-2023, 10:40 Son Mesaj: onur_can

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL