Skip to main content

AccessTr.neT


kaydet ve değişiklikleri kaydet butonu

kaydet ve değişiklikleri kaydet butonu

Çözüldü #1
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

Cevapla
Çözüldü #2
Buradaki sorunu anlayamadım ben.. Kayıt varsa üzerine mi yazmıyor?. Tam anlatır mısınız?
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #3
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.
Cevapla
Çözüldü #4
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)
"Gülümsemenin, parasal değeri yoktur. Satın alınmaz, ödünç verilmez, dilenilmez, çalınmaz ama verilmedikçe hiç alınamaz."
Baştan sona Sql veritabanı oluşturma
Cevapla
Çözüldü #5
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.
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #6
sanırım istediğiniz gibi. örneği ekledim ekte. seçileni düzenle seçeneği
.rar 1deneme.rar (Dosya Boyutu: 103,13 KB | İndirme Sayısı: 160)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task