Arşive Gönderme

[saslan33]

Arkadaşlar kolay gelsin
Ekte gönderdiğim dosyada saglık formundan arşiv formuna kayıtları gönderiyor orada gönder butonu olatnıda bir komut var ve içerisinde bb tanımlanmış o konuda yardım istiyorum. Yardımlarınızdan dolayı teşekkür ederim.

Set bb = Application.CurrentProject.Connection
bb.Execute "insert into ARSIV SELECT * from SAGLIK where ADS = '" & Me.Açilan_Kutu114 & "'"
bb.Execute "delete from SAGLIK where ADS= '" & Me.Açilan_Kutu114 & "'"

bb.Close
Set bb = Nothing
Me.Açilan_Kutu114.Requery
Me.Requery

aynısı benim yaptığım programa ekliyorum hata veriyor.

 

[modalı]

Sayın saslan33,

bb yi tanıtmadan atama yapamazsınız bu yüzden en yukarıya şu cümleyi yazın:

Dim bb As New ADODB.Connection

İyi çalışmalar

 

[saslan33]

Teşekkürler