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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Tarih Bilgisini Silemiyorum. - Yazar: aliyuzen - 08/03/2019, 12:23
Cvp: Tarih Bilgisini Silemiyorum. - Yazar: berduş - 08/03/2019, 12:38
Cvp: Tarih Bilgisini Silemiyorum. - Yazar: berduş - 08/03/2019, 13:56
Cvp: Tarih Bilgisini Silemiyorum. - Yazar: aliyuzen - 08/03/2019, 15:02
Task