kaydet ve değişiklikleri kaydet butonu

1 2 3
09/10/2009, 11:37

orcunerkek54

arkadaşlar herkeze iyi günler. formumdan iki ayrı tabloya veri kaydı yapıyorum. bu kodu aynı zamanda üzerine kaydedecek şekilde değiştirmek istiyorum. kaydedilmiş veriyi geri çağırdığımda gerekli değişiklikleri yaptıktan sonra kaydet butonuna değişiklikleri kaydetsin istiyorum yardımcı olursanız sevinirim teşekkürler.

Kod:
If TextBox0 & Metin6 = DLookup("[veri_kontrol]", "[tbl_1152_istek_kayit]", "[veri_kontrol]=forms![frm_pl_1152]!TextBox0 & Metin6") Then
MsgBox "BU MÜŞTERİ NUMARASI DAHA ÖNCE KULLANILMIŞTIR. LÜTFEN YENİ DEĞER GİRİN."
Undo
Else
MsgBox "KAYIT YAPILIYOR BEKLEYİN"

Dim rs1 As New ADODB.Recordset   '1. tablo için
        Dim rs2 As New ADODB.Recordset  '2. tablo için
  '////////////////////////////////////////
    '1. tabloya kayıt başlıyor
    rs1.Open "tbl_bakim_malzemeler", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    rs1.AddNew
    rs1("isemri_no") = TextBox0
    rs1("ariza_kodu") = Metin2
    rs1("personel_no") = Metin4
    rs1("stok_no") = Metin6
    rs1("birim_fiyat") = Metin8
    rs1("miktar") = Metin10
    rs1("temin_sekli_kodu") = Metin12
    rs1("belge_no") = Metin14
    rs1("ariza_kodu_dok") = Metin2
    rs1("temin_sekli_kodu") = Metin12
    rs1("parca_grup_id") = Metin16
    
    rs1.Update
    rs1.Close
    Set rs1 = Nothing
    '1. tabloya kayıt bitti
    '*****************************************
    
    '2. tabloya kayıt başlıyor
rs2.Open "tbl_1152_istek_kayit", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    rs2.AddNew
    rs2("plaka_no") = Metin31
    rs2("arac_cinsi") = Metin33
    rs2("is_emri_no") = TextBox0
    rs2("ariza_kodu") = Metin2
    rs2("malzeme_stok") = Metin6
    rs2("malzeme_adi") = Metin40
    rs2("parca_no") = Metin81
    rs2("sistem_tanim") = Metin70
    rs2("fiyati") = Metin8
    rs2("ist_miktar") = Metin10
    rs2("dag_birimi") = Metin35
    rs2("temin_sekli_kodu") = Metin12
    rs2("isteyen_pers_no") = Metin4
    rs2("belge_tipi") = Açılan_Kutu50
    rs2("ist_iade_tipi") = Açılan_Kutu52
    rs2("dokuman_num") = Metin56
    rs2("mlz_dur_kodu") = Açılan_Kutu58
    rs2("bms") = Metin64
    rs2("ihtiyac_ivediligi") = Metin68
    rs2("islem_tav_kod") = Metin72
    rs2("istek_devam_kod") = Metin74
    rs2("belg_tepe_no") = Metin14
    rs2("ikm_mutemedi") = Metin44
    rs2("ikm_kom") = Metin46.Column(2)
    rs2("depo_sorumlusu") = Metin48
    rs2("istek_tarihi") = Metin84
    rs2("veri_kontrol") = TextBox0 & Metin6
    rs2.Update
    rs2.Close
    Set rs2 = Nothing

    '2. tablo kayıt bitti
    '**************************

MsgBox "KAYIT İŞLEMİ TAMAMLANDI", 32, "Kayıt Bilgisi"

End If

End Sub
09/10/2009, 14:07

mehmetdemiral

Buradaki sorunu anlayamadım ben.. Kayıt varsa üzerine mi yazmıyor?. Tam anlatır mısınız?
09/10/2009, 14:55

orcunerkek54

listeden seçerek metin kutularını dolduruyorum değişiklikleri yaptıktan sonra tekrar kaydet dediğimde aynı kaydın üzerine değişiklikleri kaydetsin istiyorum. bu kodun hem kaydet hem değişiklikleri kaydet butonu olmasını istiyorum. tüm kutucuklar bağımsız hepsini elle ben koydum ve isimlendirdim. ilginiz için teşekkürler.
09/10/2009, 15:58

arzuu

bence 2 buton koymalısın birisi yaptığın şeyleri kaydedicek diğeride o kayıtla ilgili değişiklik yapmak istediğinde değiştirecek (kaydet butonu-güncelle butonu)
09/10/2009, 16:09

mehmetdemiral

Sayın arzuu

O konu kodla halledilebilir bir şeydir. Mevcut kayıtlar varken, yani alanlar doluyken bir değişiklik yapılırsa farklı kayıt kodları, alanlara yeni kayıt girilirse farklı kodlar gelir..

Gelir gelmesine de....ben şunu anlayamadım. Access ile kaydetmek için ayrı koda ihtiyaç yok ki? Kayıt değişikliği yapıldığında ve sağlıklı bir şekilde kayıt terkedildiğinde veri kaydedilir. Onu engelleyen bir silme, iptal veya undo koymadıysanız bu böyledir. Bu açıdan bunu anlayamadım.
09/10/2009, 16:31

echoes

sanırım istediğiniz gibi. örneği ekledim ekte. seçileni düzenle seçeneği
1 2 3