merhaba
Resolved olarak seçtiğimde bana 3 gün sonra active olarak gözükmesini istiyorum.ve istediğimde günü nasıl değiştirebilirim
örnek ektedir.
hatırlatma
Sayın svs007, istediğiniz böyle bir şey mi?
nsahin, 16-11-2009 tarihinden beri AccessTr.neT üyesidir.
desteğiniz için teşekkürler,
öncelikle Date()-2)) -1 olarak değiştirdim (1 gün sonra değişmesi gerekir diye düşünüyordum bugün baktığımda herhangi bir değişiklik göremedim
"resolved" dan "active " geçmedi. bir eksiklik mi var ?
Private Sub Form_Load()
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Cases SET Cases.Status = 'Active', Cases.[Resolved Date]= Null WHERE (((Cases.Status)='Resolved') And ((Format([Resolved Date],'Short Date'))<Date()-1)) "
Form.Requery
End Sub
öncelikle Date()-2)) -1 olarak değiştirdim (1 gün sonra değişmesi gerekir diye düşünüyordum bugün baktığımda herhangi bir değişiklik göremedim
"resolved" dan "active " geçmedi. bir eksiklik mi var ?
Private Sub Form_Load()
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Cases SET Cases.Status = 'Active', Cases.[Resolved Date]= Null WHERE (((Cases.Status)='Resolved') And ((Format([Resolved Date],'Short Date'))<Date()-1)) "
Form.Requery
End Sub
aşağıdaki kodu deneyin
DoCmd.RunSQL "UPDATE Cases SET Cases.Status = 'Active', Cases.[Resolved Date]= Null WHERE Cases.Status='Resolved' And cvdate([Resolved Date])<Date()-1"
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)
Bilgisayar Programcısı (1989'dan beri)
Yollar biter Access bitmez.
Aşağıdaki gibi değiştirdim. 1 gün bekleyeceğim yarın aktive durumuna gelmesi gerekir. teşekkürler,
Private Sub Form_Load()
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Cases SET Cases.Status = 'Active', Cases.[Resolved Date]= Null WHERE Cases.Status='Resolved' And cvdate([Resolved Date])<Date()-1"
Form.Requery
End Sub
Private Sub Form_Load()
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Cases SET Cases.Status = 'Active', Cases.[Resolved Date]= Null WHERE Cases.Status='Resolved' And cvdate([Resolved Date])<Date()-1"
Form.Requery
End Sub
hatta emniyet olsun diye
yapın
****And cvdate([Resolved Date])<cvdate(Date()-1)"
yapın
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)
Bilgisayar Programcısı (1989'dan beri)
Yollar biter Access bitmez.
Konuyu Okuyanlar: 1 Ziyaretçi