Merhaba Üstadlarım,
Aşağıdaki kodda kırmızı renk ile işaretledğim satırları bir türlü çalıştıramadım. Kod çalışıyor. Ancak, o satırlarda yapmasını istediğim şeyi, yapamadım. Aktif ettiğimde, tarih eklensin ya da tarih silinsin istiyorum. Ama bu sefer de hata mesajı alıyorum. Yardımlarınızı rica ederim. Teşekkürler.
If Not IsNull(SIPARIS_NO) Then
Dim a As String
Dim b As String
Dim c As String
a = "UYARI !"
b = "Daha önceden oluşturulmuş bir satış siparişi mevcut." & Chr(13) & Chr(13) & "Sipariş No: " & SIPARIS_NO & Chr(13) & Chr(13) & "Satış siparişini silmek istiyorsanız Evet'e, İşlem iptali için Hayır'a basınız."
c = MsgBox(b, 4 + 32 + 256, a)
If c = 6 Then
DoCmd.OpenQuery "SIPARISE_DONUSTUR_Q4_1"
SIPARIS_NO.Value = ""
' SIP_DON_TARIHI.Value = "" 'Burada tarihi silemiyorum. Alanı boşalatamıyorum. Sorun var. Buraya ne yazmalıyım ki, yazılı olan tarih silinsin?
TEKLIF_DURUMU.Value = "Kabul Edildi"
DoCmd.RefreshRecord
MsgBox "Az önce, daha önceden oluşturduğunuz satış siparişini sildiniz. Teklif Durumu'nu da (Kabul Edildi) olarak değiştirdiniz.", vbInformation, "Artık, yeni sipariş oluşturabilirsiniz."
Else
TEKLIF_DURUMU.Value = "S - Kabul Edildi"
DoCmd.RefreshRecord
Exit Sub
End If
Else
TEKLIF_DURUMU.Value = "S - Kabul Edildi"
' SIP_DON_TARIHI.Value = Date 'Burada tarihi ekleyemiyorum. Sorun var. Buraya ne yazmalıyım ki, günün tarihi yazılsın?
MsgBox "Teklif Durumu'nu (S - Kabul Edildi) olarak değiştirdiniz.", vbInformation, "Bilgi !"
DoCmd.RefreshRecord
DoCmd.OpenQuery "SIPARISE_DONUSTUR_Q1_1"
DoCmd.OpenQuery "SIPARISE_DONUSTUR_Q2_1"
DoCmd.OpenQuery "SIPARISE_DONUSTUR_Q3_1"
MsgBox "Teklif, Siparişe Dönüştürüldü.", vbInformation, "Bilgi !"
Exit Sub
End If
End If
Teşekkürler,
Saygılarımla,
Power BI İş Analitiği Danışmanı
Ali Yüzen
Saygılarımla,
Power BI İş Analitiği Danışmanı
Ali Yüzen
Son Düzenleme: 08/03/2019, 12:32, Düzenleyen: aliyuzen.