Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
08/03/2019 12:23
Konu Sahibi
aliyuzen
Yorumlar
3
Okunma
164
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
aliyuzen

aliyuzen

Aktif Üye
24363
Al.... Yü....
 41
 40
 154
 02/09/2010
0
 İstanbul
 Müşteri Hizmetleri
 Ofis 2019 64 Bit
 10/07/2019,17:49
Çözüldü 
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




halily

halily

Uzman
65596
ha....
 26
 1.269
 30/07/2014
215
 -
 
 Ofis 2019 64 Bit
SIP_DON_TARIHI.Value =Null denediniz mi?



...........
halily

halily

Uzman
65596
ha....
 26
 1.269
 30/07/2014
215
 -
 
 Ofis 2019 64 Bit
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ı



aliyuzen

aliyuzen

Aktif Üye
24363
Al.... Yü....
 41
 40
 154
 02/09/2010
0
 İstanbul
 Müşteri Hizmetleri
 Ofis 2019 64 Bit
 10/07/2019,17:49
Dediğiniz şekilde, Null değer oldu... teşekkürler.




...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü İki Tarih Arası Sorgulma Sorunu HORZUM 4 316 05/07/2019, 19:25
Son Yorum: halily
Çözüldü İki Tarih Ve İki Saat Arası Sorgu Formülü furens 5 248 18/06/2019, 15:28
Son Yorum: furens
Çözüldü İki Tarih Arası Ay Bazında Satır Ekleme fkilic76 6 370 06/03/2019, 09:13
Son Yorum: halily
Çözüldü İki Tarih Arası Satır Ekleme Ve Veri Kaydetme fkilic76 5 267 26/02/2019, 18:04
Son Yorum: fkilic76
Çözüldü Tarih Kayıt zaferlacin 2 232 30/01/2019, 16:40
Son Yorum: zaferlacin

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.