Bilgemen
Altın Üye
- Katılım
- 7 Şubat 2021
- Mesajlar
- 54
- Excel Vers. ve Dili
- 2021
- Altın Üyelik Bitiş Tarihi
- 03-01-2026
Merhaba Arkadaşlar.
Microsoft accsessde te
AçıkFisler Tablosunda Me.LblSozlesmeNo.Caption da bulunan id nolu kayıtı KapalıFisler Tablosuna nasıl taşıyabilirm.
Aşağıdaki kodu bir türlü çalıştıramadım.
Şimdiden teşekkürler.
Microsoft accsessde te
AçıkFisler Tablosunda Me.LblSozlesmeNo.Caption da bulunan id nolu kayıtı KapalıFisler Tablosuna nasıl taşıyabilirm.
Aşağıdaki kodu bir türlü çalıştıramadım.
Şimdiden teşekkürler.
C#:
Sub tasi()
Dim id As Long
Dim xEkle As String
Set baglan = CreateObject("adodb.connection")
Call baglanti
id = Me.LblSozlesmeNo.Caption ' OpenFisler tablosundaki id
' KapalıFisler tablosuna ekleme yapmak için INSERT INTO SQL sorgusu oluşturun
xExle = "INSERT INTO KapalıFisler (Kimlik, HareketTipi, Guntipi, UrunBarkodu, UrunCinsi, UrunAdi, UrunRengi, Aksesuar, KuaforHizmeti, GelinAdi, GelinTelefon, DamatAdi, DamatTelefon, Tarih, Ay, Yil, Borc, Odeme, Kalan, Açıklama, FisTarihi, GeriadeTarihi) " & _
"SELECT Kimlik, HareketTipi, Guntipi, UrunBarkodu, UrunCinsi, UrunAdi, UrunRengi, Aksesuar, KuaforHizmeti, GelinAdi, GelinTelefon, DamatAdi, DamatTelefon, Tarih, Ay, Yil, Borc, Odeme, Kalan, Açıklama, FisTarihi, GeriadeTarihi FROM AcikFisler " & _
"WHERE Kimlik=" & id
baglan.Execute xEkle
baglan.Close
Set baglan = Nothing
MsgBox "Kayıt başarıyla taşındı!"
End Sub
Ekli dosyalar
-
52.9 KB Görüntüleme: 6