[FORM] İki tarih alanına bakıp mesaj verme

ebruakman · 28-07-2012, 22:48

Sayın Hocalarımız Merhaba
Bir örneğim var bu örneğimde Form1'de haftayı seçip tarihi giriyorum alt formum açılıyor girdiğim bu tarihe göre alt formumda ISLEM PLANLAMA TARIHI alanıma bakıp eğer tarihim bugün ve öncesinde bir tarih olup ISLEM GERCEKLESME TARIHI alanım boş ise bana mesaj vermesini istiyorum.ISLEM NO alanınındaki sayıyı yazıp tarih alanlarını kontrol et plana uymuyor uyarısı almak istiyorum bu konuda bana yardımcı olabilirseniz çok sevinirim.

adnanyurdakul · 29-07-2012, 12:06

konu anlaşılmıyor. yeni kayıt açtık dedik sonrasını uygulayarak maddeler halinde açıkça yazınız

ebruakman · 29-07-2012, 15:00

Sayın adnanyurdakul örneğimde Form1'i açtığımda;
1-HAFTA SEÇİNİZ alanına 30 giriyorum.Ardından İŞLEM TARİHİ alanımdan 27.07.2012 tarihini seçtiğimde alt formumdaki veriler İŞLEM TARİHİ alanında hangi tarihi seçiyor isem ona bağlı olarak açılıyor.
2-Benim burdaki amacım ISLEM PLANLAMA TARIHI alanımdaki tarihlerim eğer bugünün tarihinden önce ise ve ISLEM GERCEKLESME TARIHI alanım boş ise bana bir mesaj vermesini istiyorum bu mesajı verirkende ben bunu işlem tarihi alanını açılan kutudan seçerken vermesini isitiyorum örneğimde 27.07.2012 ve 28.07.2012 tarihlerini seçtiğimde bu uyarıyı vermeli çünkü kriterlere uymuyor ama 29.07.2012 tarihini seçtiğimde açılan kutudandan mesaj vermemeli .
3-Mesaj verirken ISLEM NO alanımdaki diyelim ki 6000,8000 ISLEM NO'lu kayıtlarda tarih alanlarını kontrol et plana uymuyor uyarısı almak istiyorum umarım açıklayabilmişimdir hocam.

adnanyurdakul · 29-07-2012, 16:28

Aşağıdaki kodu form1 deki işlem tarihinin güncelleme sonrasına yapıştırın. Bu arada anlamadığım bir şey var hafta 30 u seçtiğin halde ayın 26 ındaki kayıt neden getirilmiyor?

Visual Basic
Private Sub ISLEM_TARIHI_AfterUpdate()
On Error Resume Next
Dim sql As String
Dim plan()
Dim rs As New ADODB.Recordset
a = DatePart("ww", [ISLEM_TARIHI])
 
sql = "SELECT Tablo1.[ISLEM GERCEKLESME TARIHI], Tablo1.[ISLEM PLANLAMA TARIHI], datepart('ww',[ISLEM PLANLAMA TARIHI]) AS hafta " & _
"FROM Tablo1 " & _
"WHERE datepart('ww',[ISLEM PLANLAMA TARIHI])=" & DatePart("ww", [ISLEM TARIHI])
 
rs.Open sql, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
ReDim plan(0)
Do Until rs.EOF
If rs(1) < Date And IsNull(rs(0)) Then
plan(UBound(plan)) = rs(1)
ReDim Preserve plan(UBound(plan) + 1)
 
End If
rs.MoveNext
Loop
rs.close
If UBound(plan) > 0 Then
MsgBox Join(plan, vbCrLf) & " tarihlerindeki kayıtları kontrol et plana uymuyor"
End If
End Sub

ebruakman · 29-07-2012, 17:43

Sayın adnanyurdakul yardımınız için öncelikle teşekkür ederim.Hafta 30'u seçtiğimde 26.07.2012 tarihlerini getirmemesinin nedeni alt form ISLEM TARIHI alanına bağlı o alanda bu tarihe ait veri olmaması.Yardımınız için bir kez daha teşekkür ederim.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[FORM] Teslim Tarihi Alanına Göre Süzme, Filtreleme	programmer67	14	1.032	09-05-2024, 23:27 Son Mesaj: programmer67
	Formda Otomatik Sıra No Verme Nasil Olur?	mart02	2	481	15-09-2023, 09:21 Son Mesaj: akd27
	Ekleme Sorgusunda Ay/yıl Metin Değeri Tarih/saat Alanına Doğru Aktarma Hk.	adnnfrm	2	547	14-08-2023, 00:12 Son Mesaj: adnnfrm
	Sorgu Işlemi Sonunda Veri Yoksa Bulunduğu Hücreye 0 Olarak Otomatik Değer Verme	ofbayoglu61	12	1.124	21-07-2023, 10:09 Son Mesaj: onur_can
	[VBA] Mesaj Kutusunda Tüm Verilerin Görülmesi	tamersyilmaz	4	511	10-10-2022, 18:58 Son Mesaj: tamersyilmaz
	[VBA] Yazdırılıyor Mesaj Kutusunu Gizleme	hedefkaya	1	362	03-05-2022, 10:06 Son Mesaj: onur_can
	access çıkışta mesaj verdirmek	aydın3838	8	4.350	14-04-2021, 23:38 Son Mesaj: kamil_55
	[VBA] Mesaj Kutusuna Alan Ismi Yazmak	M_Kemal_Askeri	9	1.140	06-04-2021, 01:08 Son Mesaj: M_Kemal_Askeri

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL