Kasa Hareketleri İçin Yardım Tablodan Tabloya Otomatik Ekleme

1 2 3 4 5 6
10/04/2017, 13:24

uMits

(10/04/2017, 12:39)ozguryasin yazdı: Bu kod bir çok olaya yazılabilir genelde tıklanma sonrasına yazılır. Bu kod yapısı ile 3-4 tabloya  bağlanıp bir birleri içinde veri aktarılabilir.

teşekkür ederim. 
9. mesaja örnek ekledim uygulama yaparmısınız yardımcı olurmusunuz
10/04/2017, 13:42

atoz112

sayın uMits,

EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

NOT
ÖDEME formundaki ALINAN adlı denetimin ÇIKILDIĞINDA olay yordamı içerisine MÜKERRER KAYIT KONTROLÜ ile birlikte mevcut kodlar dahil edilmiştir.

bilginize...iyi çalışmalar,saygılar.
10/04/2017, 13:43

atoz112

sayın uMits,

eklediğiniz örnek uygulamanın kısa süreli bir incelenmesi ve sadece bilgilendirme olması ve naçizane tavsiye niteliğinde hatırlatma adına;

Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler

yukarıda bağlantısı yazılı konuyu incelemenizin ve içeriğindeki hususlara (özelikle,Türkçe karakter kullanımı ve BOŞLUK bırakarak tanımlamada bulunma) göre uygulamanızı yeniden düzenlemenizin,ileride bu hususlardan kaynaklı sorunları da engellemenize imkan sağlaması söz konusu olacaktır kanısındayım.

Bilginize…iyi çalışmalar,saygılar.
10/04/2017, 13:44

atoz112

sayın uMits,

(sadece,bir hatırlatma ve bilgilendirme olması adına);

lütfen,konularınıza mesaj yazan katılımcıların yazdıklarının tamamını ALINTI olarak almak yerine,

yazılana atıfta bulunmak amacı ile yeni bir mesaj yazacak olduğunuzda,bütün mesajı değil SADECE gerekli gördüğünüz bir cümlesini ya da paragrafını alıp dahil etmeye özen gösteriniz.
teşekkürler.

bilginize...iyi çalışmalar,saygılar.
10/04/2017, 13:49

ozguryasin

Evde değilim ve internet bağlantımı kapattırdum fakat bir kod örneği şu şekilde

dim rs as new adodb.recordset
Dim rt as new adodb.recordset

rs.open "tabloadi1", currentproject.connection,adopenkeyset, adlockoptimistic
rt.open "tabloadi2", currentproject.connection,adopetkeyset, adlockoptimistic

Do until rs.Eof then
İf rs! Alanadi = "özgür" 
Rt. Addnew
Rt! Alanadi=rs! Alanadi
Rt. Update
Rs. Close
Rt.close
Rs.movenext
Loop

Bu kod tablo 1 içinde özgür yazanları bulup tablo 2 ye kaydeder. Yani rs ile açılan tablo1 in içini belirtilen alanı tarar özgür  bulur ve rt ile  açılan tablo2 içine gerekli alana kayıt ekler. 

Ufak tefek yazım hataları olabilir cep telefonundan küçücük bir alan kullanarak yazıyorum. İşleyiş bu tarz. Sitemizde bununla ilgili bir çok örnek mevcut
10/04/2017, 14:23

uMits

sayın ozguryasin 

bey denedim ama olmadı .

sayın atoz112

uyarılarınız için teşekkür ederim dikkatli olcam, denedim ama kayıt yapmıyor verdiğiniz Access dosyasında birkaçtane eklemek istedim ama olmadı . kodlarıda inceledim ama ödeme türü kredi kartını seçtiğimde kredi kartına nakit seçtiğimde giren alan adına kayıt olmuyor ve ek olarak dediğim gibi 1 tane bile eklenmiyor çalışmıyor bakarmısınız tekrar
1 2 3 4 5 6