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. |