AccessTr.neT
Tarih Bilgisini Silemiyorum. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tarih Bilgisini Silemiyorum. (/konu-tarih-bilgisini-silemiyorum.html)



Tarih Bilgisini Silemiyorum. - aliyuzen - 08/03/2019

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


Cvp: Tarih Bilgisini Silemiyorum. - berduş - 08/03/2019

SIP_DON_TARIHI.Value =Null denediniz mi?


Cvp: Tarih Bilgisini Silemiyorum. - berduş - 08/03/2019

uygulamanızı görmeden söylemek zor ama tablo yapınızdan yada ilişkilerden kaynaklı bir şey olabilir.
kırmızı olan kodlar bende sorunsuz çalıştı


Cvp: Tarih Bilgisini Silemiyorum. - aliyuzen - 08/03/2019

Dediğiniz şekilde, Null değer oldu... teşekkürler.