Recent content by tanatif

intStore = DCount("[id_amlyat]", "[form_amlyat]", "[date end] <=DateFromServer() AND [check_box] =True ") yes yes yes :D i try and try and try i change =-1 to =True and its working good in sql server the last =-1 its working only with mdb or accdb thanks for all freinds

thank you for try with me but not working try again please? :(

yes here is problems if i remove AND [check_box] =-1 Private Sub Form_Load() Dim intStore As Integer intStore = DCount("[id_amlyat]", "[form_amlyat]", "[date end] <=DateFromServer()+2 ") If intStore = 0 Then Exit Sub Else If MsgBox("found " & intStore & "title " & _...

but the DCount not working its result all time =0 :confused: and MsgBox not working becouse the result not change Private Sub Form_Load() Dim intStore As Integer intStore = DCount("[id_amlyat]", "[form_amlyat]", "[date end] <=DateFromServer()+2 AND [check_box] =-1 ") If intStore = 0...

Yes not same ! But please try to fix by sample please ? Or write the code after change the correct code

please help

or this Private Sub Form_Load() Dim intStore As Integer smsm = DLookup("MASARDATE", "MASARDATE") Dim smsm As Integer intStore = DCount("[id_amlyat]", "[form_amlyat]", "[date end] <=smsm+2 AND [check_box] =-1 ") If intStore = 0 Then Exit Sub Else If MsgBox("found " & intStore &...

please help me to fix this code this is working with mdb database and date() i wont working in sql i try every thing is working great but the date() i wont change to DateFromServer() its not working Private Sub Form_Load() Dim intStore As Integer intStore = DCount("[id_amlyat]"...

please se this and how to do in example object

YES working very good thank you :)

hi in events how to copy data between field and combobox Column (1) example [field]=[Forms]![combobox].[Column](1) but not working and field to field working good [field]=[Forms]![field]

yes this is short and best for me thank you again :d

THANK YOU THANK YOU THANK YOU THIS IS MY CODE Public Function DateAndTimeFromServer() As String Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim Mssdate As String Set db = CurrentDb strSQL = DLookup("MASARDATE", "MASARDATE3") Mssdate = strSQL DateAndTimeFromServer =...

GOOD JOB YOU CAN HELP ME PLEASE COMPLEAT WITH ME SEE HERE I WONT USE THE QUERY RESULT SAME MSG TXT TO STRING I'M SORRY ABOUT MY POOR ENGLISH