30/12/2019, 12:26
ozanakkaya
F_TEKLIF_REV isimli formdaki ACK_DURUM isimli açılan kutunun güncelleştirme sonrasında olayına,
Kodu ekleyiniz. Bu veriler T_SIPARIS isimli tabloya aktarılır.
If Me.ACK_DURUM = "2" Then
If MsgBox("Satıldı Olarak İşaretlensin Mi?", vbInformation + vbYesNo) = vbYes Then
DoCmd.RunSQL "INSERT INTO T_SIPARIS (FIRMA_ID, TEKLIF_ID, REV_ID, SDURUM) VALUES ('" & Me.ACK_FIRMA_ID & "', '" & MTN_TEKLIF_ID & "', '" & [Alt2_R].Form![MTN_REV_ID] & "', '0')"
End If
End If
Kodu ekleyiniz. Bu veriler T_SIPARIS isimli tabloya aktarılır.