ali_khaluzadeh
شنبه 03 بهمن 1388, 22:54 عصر
با سلام خدمت اساتید گرامی
در جدول del_Morakhasi_Roozaneh یک دستور Select دارم که در هر حالتی 0 برمیگرداند.
من میخوام وقتی که یک کد پرسنلی در یک روز خاص وجود دارد مقدار یک را برگرداند ولی نمیشه ، به نظر خودم شکل کار درسته ولی ....
Private Sub Az_Tarikh_Exit(Cancel As Integer)
Dim rst6 As Recordset
Set rst6 = CurrentDb.OpenRecordset("select * from Morakhasi_Roozaneh where ((Morakhasi_Roozaneh.Code_Personeli =" & [Forms]![del_Morakhasi_Roozaneh]![Code_Personeli] & ") and (Morakhasi_Roozaneh.Az_Tarikh =" & [Forms]![del_Morakhasi_Roozaneh]![Az_Tarikh] & "))")
X = rst6.RecordCount
MsgBox X
'If X = 0 Then
' MsgBox "Çíä ÊÇÑíÎ æÌæÏ äÏÇÑÏ", vbOKOnly + vbInformation, "ÇØáÇÚ"
' End If
End Sub
در جدول del_Morakhasi_Roozaneh یک دستور Select دارم که در هر حالتی 0 برمیگرداند.
من میخوام وقتی که یک کد پرسنلی در یک روز خاص وجود دارد مقدار یک را برگرداند ولی نمیشه ، به نظر خودم شکل کار درسته ولی ....
Private Sub Az_Tarikh_Exit(Cancel As Integer)
Dim rst6 As Recordset
Set rst6 = CurrentDb.OpenRecordset("select * from Morakhasi_Roozaneh where ((Morakhasi_Roozaneh.Code_Personeli =" & [Forms]![del_Morakhasi_Roozaneh]![Code_Personeli] & ") and (Morakhasi_Roozaneh.Az_Tarikh =" & [Forms]![del_Morakhasi_Roozaneh]![Az_Tarikh] & "))")
X = rst6.RecordCount
MsgBox X
'If X = 0 Then
' MsgBox "Çíä ÊÇÑíÎ æÌæÏ äÏÇÑÏ", vbOKOnly + vbInformation, "ÇØáÇÚ"
' End If
End Sub