kaydet ve değişiklikleri kaydet butonu

1 2 3

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

Buradaki sorunu anlayamadım ben.. Kayıt varsa üzerine mi yazmıyor?. Tam anlatır mısınız?

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.

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)

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.

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

1 2 3

kaydet ve değişiklikleri kaydet butonu

orcunerkek54

mehmetdemiral

orcunerkek54

arzuu

mehmetdemiral

echoes