09/10/2009, 11:37
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