چك كردن تاريخ هنگام ثبت ركورد

[بهزادانلاين]

سلام
ميخواهم هنكامي كه دكمه ثبت زده ميشه تاريخ وارد شده تكراري باشه از ثبت ركورد جلوگيري كنه
ممنون

[AmirHarirbafan]

فیلد موردنظر رو میتونید به صورت Uniqe تعریف کنید

[wolfstander]

سلام
یک راهش ، راهیه که دوست خوبمون AmirHarirbafan گفتن
یک راه دیگه اش اینه که با استفاده از دستور Dlookup بگردی تو جدولت ببینی وجود داره یا نه
اگه بود، اجازه ثبت نده به کاربر

[بهزادانلاين]

سلام
یک راهش ، راهیه که دوست خوبمون AmirHarirbafan گفتن
یک راه دیگه اش اینه که با استفاده از دستور Dlookup بگردی تو جدولت ببینی وجود داره یا نه
اگه بود، اجازه ثبت نده به کاربر



ممنون از لطفتون
اما دوست عزيز اگه به نمونه اي كه قرار دادم توجه كرده باشي بادستور Dlookup اين كار روانجام دادم ولي چرا جواب نميده؟:ناراحت:

[stabesh]

با سلام
شما چون فرمتون bound هست باید در before update خود text box اینو چک کنید اگر که تکراری بود cancel رو true کنید توی کامند که cancel نداریم
یا باید فرم unbound باشه وقتی روی کامند کلیک کردن اون وقت دیتا رو در جدول insert کنید یا با recordset در جدول درج کنید این طوری که نوشتید فکر نکنم درست باشه

[بهزادانلاين]

شما چون فرمتون bound هست باید در before update خود text box اینو چک کنید اگر که تکراری بود cancel رو true کنید

خيلي ممنون دوست عزيز stabesh
اينكارو انجام دادم ولي مشكل اصلي من اينكه دستور Dlookupدرست كار نيكنه هر تاريخي را وارد كني ميگه تو بانك هستش در حالي كه تو بانك نيست

[stabesh]

این طوری برای نوع datetime باید نوشت


Private Sub datee_BeforeUpdate(Cancel As Integer)
Dim strNum
strNum = DLookup("date", "Tbl_hozorGyab", "date=#" & Me.datee & "#")
If Not IsNull(strNum) Then
MsgBox "invalid date"
Cancel = True
End If
End Sub

[masoud903]

سلام دوست عزیز
میتونی ازکدهای زیر استفاده کنی
چون حسابی دستت واسه هر کاری باز میشه
یه سری تغیرات دیگه خودت توش انجام بده اگه نتونستی بگو نمونه رو برات بذارم



Private Sub Command43_Click()

Dim stDocName As String
Dim stLinkCriteria As String
Dim rst As dao.Recordset
Dim strSQL As String
Dim intCode As Double
Dim strDate As String

intCode = Me.eid
strDate = Me.datee

strSQL = "SELECT Tbl_hozorGyab.eid, Tbl_hozorGyab.date FROM Tbl_hozorGyab WHERE " & _
"(((Tbl_hozorGyab.eid)=" & intCode & ") AND ((Tbl_hozorGyab.date)='" & strDate & "' ));"

Set rst = CurrentDb.OpenRecordset(strSQL)

If rst.RecordCount > 0 Then
MsgBox " kode " & intCode & " ghablan " & Format(strDate, "0000/00/00") & _
" sabt shode ast ", vbCritical, "tekrari"

Else
'------'
'saving'
'------'
Dim db As Database
Set db = CurrentDb
Dim rst1 As Recordset
Set rst1 = db.OpenRecordset("Tbl_hozorGyab")
rst1.AddNew
'saving to tbl1
rst1.Fields("eid") = eid.Value
rst1.Fields("date") = datee.Value
rst1.Update
rst1.Close
DoCmd.Close
End If
End Sub

[بهزادانلاين]

سلام دوست عزیز
میتونی ازکدهای زیر استفاده کنی
چون حسابی دستت واسه هر کاری باز میشه
یه سری تغیرات دیگه خودت توش انجام بده اگه نتونستی بگو نمونه رو برات بذارم



Private Sub Command43_Click()

Dim stDocName As String
Dim stLinkCriteria As String
Dim rst As dao.Recordset
Dim strSQL As String
Dim intCode As Double
Dim strDate As String

intCode = Me.eid
strDate = Me.datee

strSQL = "SELECT Tbl_hozorGyab.eid, Tbl_hozorGyab.date FROM Tbl_hozorGyab WHERE " & _
"(((Tbl_hozorGyab.eid)=" & intCode & ") AND ((Tbl_hozorGyab.date)='" & strDate & "' ));"

Set rst = CurrentDb.OpenRecordset(strSQL)

If rst.RecordCount > 0 Then
MsgBox " kode " & intCode & " ghablan " & Format(strDate, "0000/00/00") & _
" sabt shode ast ", vbCritical, "tekrari"

Else
'------'
'saving'
'------'
Dim db As Database
Set db = CurrentDb
Dim rst1 As Recordset
Set rst1 = db.OpenRecordset("Tbl_hozorGyab")
rst1.AddNew
'saving to tbl1
rst1.Fields("eid") = eid.Value
rst1.Fields("date") = datee.Value
rst1.Update
rst1.Close
DoCmd.Close
End If
End Sub


باعرض سلام وخسته نباشد خدمت اساتيد بزگوار
دوست عزيز اقاي masoud903 ممنون كه به سوال بنده پاسخ گفتيد
دوستون stabestلطف كردن مشكم حل شده ولي اگه براتون زحمتي نسيت يه نموه بزارين چون من تازه كارم وبراي يادگيري ميتونه مفيد باشه
اگه براتون مقدور نيست بازم دستتون درد نكنه