Skip to main content

AccessTr.neT


Kaydet

Çözüldü #1
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.
.zip Yeni WinRAR ZIP arşivi (6).zip (Dosya Boyutu: 31,73 KB | İndirme Sayısı: 5)
Cevapla
#2
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].Requery
.rar ozguryasin_tahsilat.rar (Dosya Boyutu: 29,83 KB | İndirme Sayısı: 6)
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#3
Teşekkur ederim.İşlem oldu.Bir şey daha soracam burada "loop" , "GoTo 1453" nedemek öğrenebilirmiyim?
Cevapla
#4
If rS.EOF = True Then GoTo 1453

bu 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 1456325

goto 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
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
Thumbs Up #5
Teşekkürler
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da