Skip to main content

AccessTr.neT


Tarih Bilgisini Silemiyorum.

Tarih Bilgisini Silemiyorum.

Çözüldü #1
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
Son Düzenleme: 08/03/2019, 12:32, Düzenleyen: aliyuzen.
Cevapla
#2
SIP_DON_TARIHI.Value =Null denediniz mi?
Cevapla
#3
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ı
Cevapla
#4
Dediğiniz şekilde, Null değer oldu... teşekkürler.
Teşekkürler,
Saygılarımla,

Power BI İş Analitiği Danışmanı

Ali Yüzen
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task