08/03/2019, 12:23
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
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