Umarım isteğinizi doğru anlamışımdır.
Alıntı:bizim isteğimiz şu: sizin yaptığınız kopyalama uygulaması sonunda, örneğin F00 LCNi içindeki ilgili alanları F00AA, F00AC.. içine kopyaladık diyelim. bu kopyalama uygulamasına ilave bir kod yazarak, kopyalama sonunda ilgili LCNler için save to history komutu da çalıştırılabilir mi? bu şekilde, F00'ı F00AA'ya kopyalayacak ve hemen ardından kopyaladığı verileri history alanında birleştirecek.
LCN'nin kopyalamadan önceki eski bilgilerinin History alanında saklanmasını istiyorsunuz sanırım.
Ben sadece "Valid.Req." kısmındaki "Validation_req remarks History:" (Command172)
ve "Validation_req Mt action remarks history:" (Command173) komutlarındakileri yaptım.
İnceleyip mantığını anlarsanız, gerisini siz tamamlayabilirsiniz.
Kod:
Private Sub Command207_Click()
'On Error Resume Next
Dim Secilen_LCN
'Uyarı mesajları kapatılıyor
DoCmd.SetWarnings False
'Listeden seçilenler tek tek işleme alınıyor
For Each Secilen_LCN In Me.List205.ItemsSelected
'Önce üstüne kopyalanacak olan LCN'nin History Bilgileri kaydediliyor
'Command172
'Me.Validation_reqremarksHistory = Me.Validation_reqremarksHistory & "(Date of Record : " & Date & " / Statu: " & " " & Me.Validation_reqstatus & " " & " / Remark: " & Me.Validation_reqremarks & ") ___ "
DoCmd.RunSQL "Update ref_table Set [Validation_req remarks History]=[Validation_req remarks History] & '(Date of Record : " & Date & " / Statu: ' & [Validation_req status] & ' ' & ' / Remark: ' & [Validation_req remarks] & ') ___ ' Where LCN='" & Me.List205.Column(0, Secilen_LCN) & "'"
'Command173_Click()
'Me.Validation_reqMtactionremarkshistory = Me.Validation_reqMtactionremarkshistory & "(Date of Record : " & Date & " / Statu: " & " " & Me.Validation_reqMtaction & " " & " / Remark: " & Me.Validation_reqMtactionremarks & ") ___ "
DoCmd.RunSQL "Update ref_table Set [Validation_req Mt action remarks history]=[Validation_req Mt action remarks history] & '(Date of Record : " & Date & " / Statu: ' & [Validation_req Mt action] & ' ' & ' / Remark: ' & [Validation_req Mt action remarks] & ') ___ ' Where LCN='" & Me.List205.Column(0, Secilen_LCN) & "'"
'Formda seçilen LCN'nin bilgileri seçilen LCN'lere kopyalanıyor
DoCmd.RunSQL "Update ref_table Set [Validation_req status]=forms!form1.Validation_reqstatus, [Validation_req remarks]=forms!form1.Validation_reqremarks, [Validation_req Mt action]=forms!form1.Validation_reqMtaction, [Validation_req Mt action remarks]=forms!form1.Validation_reqMtactionremarks Where LCN='" & Me.List205.Column(0, Secilen_LCN) & "'"
'Listedeki seçim kaldırılıyor
Me.List205.Selected(Secilen_LCN) = False
Next Secilen_LCN
'Liste güncelleniyor
Me.List205.Requery
'Uyarı mesajları açılıyor
DoCmd.SetWarnings True
End Sub
