+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kaydet (/konu-kaydet.html)
Kaydet - evren89 - 23/09/2018
Merhaba Üstüdlar ekteki çalımamda Mabuz_Balışlar_Geçici ana formun ÇEK_BİLGİLERİ_Geçici alt formu adlı alt formu vardır kaydet düğmesine bastığmda Mabuz_Balışlar_Geçici formdaki verileri Makbuz Başlıkları Tablosuna ÇEK_BİLGİLERİ_Geçici alt formundaki verileri ÇEK_BİLGİLERİ formuna eklemesini istiyorum.Fakat veriler öncesinde bu aktarılan tabloda kayıtlı ise güncellemesini istiyorum.Yardımlarınız İçin Teşekkür Ederim.
Cvp: Kaydet - ozguryasin - 23/09/2018
sadece çek bilgilerini aktarmayı yaptım. diğer tablolarda aynı şekil fakat en önce yapılmaması gereken ölümcül hataları düzeltin, bir çok örnek inceleyin, projenizi sıfırdan güzelce planlayarak yapın.
kaydet butonunda kullanılan kodlar aşağıdadır.
Dim rS As New ADODB.Recordset
Dim rT As New ADODB.Recordset
rS.Open "ÇEK_BİLGİLERİ_Geçici", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rT.Open "ÇEK_BİLGİLERİ", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rS.EOF = True Then GoTo 1453
Do Until rS.EOF
rT.AddNew
rT!İD = rS!İD
rT!ÇEK_NO = rS!ÇEK_NO
rT!VADESİ = rS!VADESİ
rT!BANKA = rS!BANKA
rT!BORÇLU = rS!BORÇLU
rT!TUTAR = rS!TUTAR
rT.Update
rS.MoveNext
Loop
MsgBox "kayıt işlemi gerçekleşti.", , "bİLGİ"
1453
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE FROM ÇEK_BİLGİLERİ_Geçici WHERE 1=1"
DoCmd.SetWarnings True
Me.[ÇEK_BİLGİLERİ_Geçici alt formu].RequeryCvp: Kaydet - evren89 - 23/09/2018
Teşekkur ederim.İşlem oldu.Bir şey daha soracam burada "loop" , "GoTo 1453" nedemek öğrenebilirmiyim?
Cvp: Kaydet - ozguryasin - 23/09/2018
If rS.EOF = True Then GoTo 1453bu kod ÇEK_BİLGİLERİ_Geçici tablosunu kontrol eder ve tabloda veri yok ise 1453 numaraya yönlendirir. yani diğer kodları devreye almadan döngüe girmeden işlemi sonlandırır.
loop ise döngü demektir.
Do Until rS.EOF 'burası rs değişkeninin ki rs değişkeni bağlantımız. tablonun içindeki verileri baştan sona tarmaya alır.
'arada yazılan kodlar ile ne yapacağınıza karar verirsiniz.
rS.MoveNext ' bu kod bir satırı işledikten sonra diğer bir satıra kayması gerektiğini gösterir.
loop ' bu ise döngü başına geri gider do until e eğer tablo veya veriler bitmedi ise sırası ile tüm işlemler gerçekleşsin diye başa sarar.
goto 12
goto 45
goto 1456325goto kod satırı o bölüme geldiğinde veya şart konmuş ise şart gerçekleştiğinde gideceği yeri belirtir. goto dan sonra yazdığınnız rakam size kalmış birşeydir. diyelim ki goto 100 yazdınız 50 satır kodunuz var. goto 100 den sonra neyere hangi satıra 100 yazarsanız aradaki kodlar işlenmez direkt goto 100 e gelince diğer yerde 100 yazan yere gider.
kısaca ve en basit açıklaması bu şekilde
Cvp: Kaydet - evren89 - 23/09/2018
Teşekkürler