Seçilen Komut düğmesine göre Tabloya kaydetme

[egelim20]

Ana Sipariş ekranına bilgileri giriyorum.Girdiğim bu bilgileri alttaki komut düğmeleri sayesinde ilgili tabloya kaydetmek istiyorum.bana bu konuda yardımcı olabilir misiniz?

 

[GKMER]

hem formla ehm sorgu ile düzenleme yaptım istediğini kullanabilirsin

 

[egelim20]

bu gönderdiğin örneğin doğru çalıştığına emin misin.Ben denedim çalışmıyorda
Bu konuda yardımcı olacak yok mu

 

[modalı]

Sayın egelim20,

Sanırım istediğiniz oldu. Sizin yaptığınız şekilde de olur ama boşuboşuna form oluşturdunuz. bunun en pratik ve kesin yolu, ADO kodlarıyla direkt olarak kaydetmek. İncelerseniz kodlar çok basit.

iyi çalışmalar

 

[egelim20]

Teşekkürler Sayın modalı
Evet tam istediğim gibi olmuş.Örneği inceledim.Fakat ado kodlarını çözemedim.bana bu ADO Kodları hakkında bilgi verirmisiniz??

 

[egelim20]

Sayın modalı lütfen cevap verebilir misiniz?

 

[modalı]

Sayın egelim20,

Eğer yeterli ingilizceniz varsa, microsoftun msdn Library adında web de çok geniş bir yardım kütüphanesi var oradan her çeşit yardıma alabilirsiniz.

Yine de yazdığım kodları açıklayayım:

Dim cnn As ADODB.Connection  'Burada yeni bir ado bağlantısı tanımlıyorum
Dim rst As New ADODB.Recordset 'Burada yeni bir kayıt kümesi tanımlıyorum
Set cnn = CurrentProject.Connection 'Burada bağlantıyı şu an geçerli olan uygulamaya ayarlıyorum
'Burada istrediğiniz harici bir access uygulamasını da yazabilirsiniz
'C:\diğeruygulama.mdb gibi
 
'Aşağıdaki satırda kayıt kümesini tanımladığım bağlantının istediğim tablonun kayıt kümesi olarak açıyorum
rst.Open "tblAlınanSipariş", cnn, adOpenKeyset, adLockOptimistic, adCmdTableDirect
 
'Yeni bir kayıt kümesi ekliyorum
rst.AddNew
 
'kayıt kümesinin her alanını benim formumdaki metin kutusuna eşitliyorum
'Burada rst("SiparişNo") olarak da yazabilirdim ancak siz alan adlarını 
'verirken boşluk bıraktığınızdan index numaralarını kullandım
rst(0) = Me.Sipariş_No
rst(1) = Me.Firma_Adı
rst(2) = Me.Firma_Adresi
rst(3) = Me.Sipariş_Tarihi
rst(4) = Me.Malzeme_Kodu
rst(5) = Me.Malzeme_Adı
 
'Kayıt kümesini kaydediyorum
rst.Save
 
'Güvenlik için mutlaka önceden tanımladığım tüm alanları boşalyıyorum
'Bu olmasa da çalışıyor kod ama çok uygulama birden açıldığına
'karışıklığa sebep verebilir
Set rst = Nothing
Set cnn = Nothing

İyi çalışmalar