Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
23/09/2018 00:10
Konu Sahibi
evren89
Yorumlar
4
Okunma
366
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
evren89

evren89

Üye
65476
Ev.... YO....
 30
 6
 16
 19/07/2014
0
 Kastamonu
 
 Ofis 2003
 20/04/2019,19:04
Çözüldü 
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.



ozguryasin

ozguryasin

Uzman
9727
Öz.... Ya....
 36
 44
 1.130
 23/09/2009
613
 Bursa
 Yazılım
 Ofis 2016 32 Bit
 19/05/2019,09:46
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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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


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.

evren89

evren89

Üye
65476
Ev.... YO....
 30
 6
 16
 19/07/2014
0
 Kastamonu
 
 Ofis 2003
 20/04/2019,19:04
Teşekkur ederim.İşlem oldu.Bir şey daha soracam burada "loop" , "GoTo 1453" nedemek öğrenebilirmiyim?



ozguryasin

ozguryasin

Uzman
9727
Öz.... Ya....
 36
 44
 1.130
 23/09/2009
613
 Bursa
 Yazılım
 Ofis 2016 32 Bit
 19/05/2019,09:46

Visual Basic Code
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.


Visual Basic Code
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.


Visual Basic Code
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.

evren89

evren89

Üye
65476
Ev.... YO....
 30
 6
 16
 19/07/2014
0
 Kastamonu
 
 Ofis 2003
 20/04/2019,19:04
Thumbs Up 
Teşekkürler




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Kaydet Sorunu Fatih34 2 178 06/04/2019, 23:17
Son Yorum: Fatih34
Çözüldü Kaydet Butonuna Basıldığında Progressbar Hatası Veriyor Deniz DEMİRCİOĞLU 2 135 05/03/2019, 11:16
Son Yorum: Deniz DEMİRCİOĞLU
Çözüldü Kaydet Sil Düzenle Komutları acar6783 9 289 03/02/2019, 18:29
Son Yorum: acar6783
Çözüldü Kaydet Sonra Kayda Git mustinba 7 407 01/09/2018, 17:07
Son Yorum: emturker
Çözüldü Şartlı,kaydet-sil-ekle Komut İşlemi fascioğlu 3 333 21/06/2018, 12:44
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.