هديل الحارثي قام بنشر فبراير 2, 2017 قام بنشر فبراير 2, 2017 السلام عليكم ورحمة الله وبركاته هل من الممكن المساعدة في البحث بين تاريخيين بشرط في نفس دالة البحث الموجودة بالميثال مع فائق شكري إلكم Employees.rar
jjafferr قام بنشر فبراير 2, 2017 قام بنشر فبراير 2, 2017 وعليكم السلام اختي كود البحث اصبح: Private Sub بحث_Click() On Error Resume Next Dim ctl As Control Dim Argcount As Integer Dim str As String Argcount = 0 MyCriteria = "" For Each ctl In Me.Controls If (ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acCheckBox) And ctl.Tag <> "" Then If ctl.Name <> "Date_From" And ctl.Name <> "Date_To" Then AddToWhere ctl.Tag, ctl.Value, "[" & ctl.Name & "]", MyCriteria, Argcount End If End If Next ctl If Len(Me.Date_From & "") <> 0 And Len(Me.Date_To & "") <> 0 Then MyCriteria = MyCriteria & " And [Date_BR] between #" & Me.Date_From & "# And #" & Me.Date_To & "#" End If 'Debug.Print MyCriteria myStr = "select * from S_NAMES where " & MyCriteria Me.S_NAME.Form.RecordSource = myStr Me.Requery End Sub . جعفر 566.Employees.mdb.zip 1
jjafferr قام بنشر فبراير 2, 2017 قام بنشر فبراير 2, 2017 السلام عليكم اخي أبونادر البحث السابق كان لجميع الحقول ، والبحث الجديد يجب ان يكون لجميع الحقول و بين التاريخين ، والظاهر انك نسيت البحث في الحقول ، وعملت البحث بين تاريخين فقط جعفر 2
هديل الحارثي قام بنشر فبراير 2, 2017 الكاتب قام بنشر فبراير 2, 2017 9 دقائق مضت, jjafferr said: السلام عليكم اخي أبونادر البحث السابق كان لجميع الحقول ، والبحث الجديد يجب ان يكون لجميع الحقول و بين التاريخين ، والظاهر انك نسيت البحث في الحقول ، وعملت البحث بين تاريخين فقط جعفر أشكرك اخى جعفر انت دائما رائع في البرمجة
هديل الحارثي قام بنشر فبراير 2, 2017 الكاتب قام بنشر فبراير 2, 2017 9 دقائق مضت, jjafferr said: أخى جعفر لا يزال لا يبحث مثلا عند أدخال من تاريخ 01/01/2016 إلى تاريخ 05/01/2016 لا يعمل تصفية للبيانات لا اعلم المشكلة
jjafferr قام بنشر فبراير 2, 2017 قام بنشر فبراير 2, 2017 أختي الظاهر انك بحثتي بالتاريخ فقط!! على العموم ، هذا الكود المعدل يعمل للبحثين معا ، او اي بحث مستقل (الحقول او التاريخ): Private Sub بحث_Click() On Error Resume Next Dim ctl As Control Dim Argcount As Integer Dim str As String Argcount = 0 MyCriteria = "" For Each ctl In Me.Controls If (ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acCheckBox) And ctl.Tag <> "" Then If ctl.Name <> "Date_From" And ctl.Name <> "Date_To" Then AddToWhere ctl.Tag, ctl.Value, "[" & ctl.Name & "]", MyCriteria, Argcount End If End If Next ctl If Len(Me.Date_From & "") <> 0 And Len(Me.Date_To & "") <> 0 Then If Len(MyCriteria & "") <> 0 Then MyCriteria = MyCriteria & " And " End If MyCriteria = MyCriteria & " [Date_BR] between #" & Me.Date_From & "# And #" & Me.Date_To & "#" End If 'Debug.Print MyCriteria myStr = "select * from S_NAMES where " & MyCriteria Me.S_NAME.Form.RecordSource = myStr Me.Requery End Sub جعفر 566.Employees.mdb.zip 1
هديل الحارثي قام بنشر فبراير 2, 2017 الكاتب قام بنشر فبراير 2, 2017 17 دقائق مضت, jjafferr said: أختي الظاهر انك بحثتي بالتاريخ فقط!! على العموم ، هذا الكود المعدل يعمل للبحثين معا ، او اي بحث مستقل (الحقول او التاريخ): Private Sub بحث_Click() On Error Resume Next Dim ctl As Control Dim Argcount As Integer Dim str As String Argcount = 0 MyCriteria = "" For Each ctl In Me.Controls If (ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acCheckBox) And ctl.Tag <> "" Then If ctl.Name <> "Date_From" And ctl.Name <> "Date_To" Then AddToWhere ctl.Tag, ctl.Value, "[" & ctl.Name & "]", MyCriteria, Argcount End If End If Next ctl If Len(Me.Date_From & "") <> 0 And Len(Me.Date_To & "") <> 0 Then If Len(MyCriteria & "") <> 0 Then MyCriteria = MyCriteria & " And " End If MyCriteria = MyCriteria & " [Date_BR] between #" & Me.Date_From & "# And #" & Me.Date_To & "#" End If 'Debug.Print MyCriteria myStr = "select * from S_NAMES where " & MyCriteria Me.S_NAME.Form.RecordSource = myStr Me.Requery End Sub جعفر 566.Employees.mdb.zip شكرا أخى جعفر .. بالفعل البحث يعتمد على كل الحقول واحيانا فقط التاريخ من إلى ....
هديل الحارثي قام بنشر فبراير 2, 2017 الكاتب قام بنشر فبراير 2, 2017 53 دقائق مضت, jjafferr said: أختي الظاهر انك بحثتي بالتاريخ فقط!! على العموم ، هذا الكود المعدل يعمل للبحثين معا ، او اي بحث مستقل (الحقول او التاريخ): Private Sub بحث_Click() On Error Resume Next Dim ctl As Control Dim Argcount As Integer Dim str As String Argcount = 0 MyCriteria = "" For Each ctl In Me.Controls If (ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acCheckBox) And ctl.Tag <> "" Then If ctl.Name <> "Date_From" And ctl.Name <> "Date_To" Then AddToWhere ctl.Tag, ctl.Value, "[" & ctl.Name & "]", MyCriteria, Argcount End If End If Next ctl If Len(Me.Date_From & "") <> 0 And Len(Me.Date_To & "") <> 0 Then If Len(MyCriteria & "") <> 0 Then MyCriteria = MyCriteria & " And " End If MyCriteria = MyCriteria & " [Date_BR] between #" & Me.Date_From & "# And #" & Me.Date_To & "#" End If 'Debug.Print MyCriteria myStr = "select * from S_NAMES where " & MyCriteria Me.S_NAME.Form.RecordSource = myStr Me.Requery End Sub جعفر 566.Employees.mdb.zip أخى جعفر .. أسفة عذبتك معاي في حالة البحث بين تارخين متطابقين تظهر نتيجة في البحث مثلا من 2016/01/01 إلى 2016/01/01 او من 2016/02/02 إلى 2016/02/02 اما في حالة البحث بين تارخين مختلفين مثال 2016/01/01 إلى 2016/01/06 لا تظهر نتبجة ولا اعرف السبب
jjafferr قام بنشر فبراير 2, 2017 قام بنشر فبراير 2, 2017 ارفق لكي نفس البرنامج مرة اخرى ، كل شئ عندي تمام . جعفر 566.Employees.mdb.zip
هديل الحارثي قام بنشر فبراير 2, 2017 الكاتب قام بنشر فبراير 2, 2017 3 دقائق مضت, jjafferr said: ارفق لكي نفس البرنامج مرة اخرى ، كل شئ عندي تمام . جعفر 566.Employees.mdb.zip الاحظ معاك تاريخ الترقية 01Jan-16- بينما معاي 01/01/2016 فهل تعتقد من إعدادات تنسيق التاريخ ؟ ؟
jjafferr قام بنشر فبراير 2, 2017 قام بنشر فبراير 2, 2017 الظاهر هكذا !! بس لوسمحتي تأخذين صورة للشاشة وارسليها ، يمكن اعدادات تنسيق التاريخ عندك نظام امريكي ، يعني الشهر / اليوم / السنة ، والمشكلة هاي ما تبين إلا في التواريخ الاكبر من 12 !! ولكن ومثل ما تفضلتي ، غيري تنسيق التاريخ في جهازك واخبريني التجربة. ولكن ، رجاء تجربي هذا المرفق اولا وقبل تغيير اي شئ جعفر 566.1.Employees.mdb.zip 1 1
هديل الحارثي قام بنشر فبراير 2, 2017 الكاتب قام بنشر فبراير 2, 2017 1 دقيقه مضت, jjafferr said: الظاهر هكذا !! بس لوسمحتي تأخذين صورة للشاشة وارسليها ، يمكن اعدادات تنسيق التاريخ عندك نظام امريكي ، يعني الشهر / اليوم / السنة ، والمشكلة هاي ما تبين إلا في التواريخ الاكبر من 12 !! ولكن ومثل ما تفضلتي ، غيري تنسيق التاريخ في جهازك واخبريني التجربة. ولكن ، رجاء تجربي هذا المرفق اولا وقبل تغيير اي شئ جعفر 566.1.Employees.mdb.zip طيب لحظات اخى جعفر اخى العزيز جعفر الآن البحث يعمل بشكل دقيق وممتاز ولكن ممكن تخبرني وتشرح شو كانت المشكلة وشو عملت عشان نتعلم منك ..
jjafferr قام بنشر فبراير 2, 2017 قام بنشر فبراير 2, 2017 التاريخ يخلق مشكلة في الكثير من الاحيان ، وبعض الاحيان بسبب اعدادات الكمبيوتر ، لهذا السبب انا عملت هذا الرابط . وبإستخدام الوحدة النمطية الموجودة في الرابط اعلاه والتي تهتم بالتاريخ ، اصبح الكود هكذا: Private Sub بحث_Click() On Error Resume Next Dim ctl As Control Dim Argcount As Integer Dim str As String Argcount = 0 MyCriteria = "" For Each ctl In Me.Controls If (ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acCheckBox) And ctl.Tag <> "" Then If ctl.Name <> "Date_From" And ctl.Name <> "Date_To" Then AddToWhere ctl.Tag, ctl.Value, "[" & ctl.Name & "]", MyCriteria, Argcount End If End If Next ctl If Len(Me.Date_From & "") <> 0 And Len(Me.Date_To & "") <> 0 Then If Len(MyCriteria & "") <> 0 Then MyCriteria = MyCriteria & " And " End If 'MyCriteria = MyCriteria & " [Date_BR] between #" & Me.Date_From & "# And #" & Me.Date_To & "#" MyCriteria = MyCriteria & " [Date_BR] between " & DateFormat(Me.Date_From) & " And " & DateFormat(Me.Date_To) End If 'Debug.Print MyCriteria myStr = "select * from S_NAMES where " & MyCriteria Me.S_NAME.Form.RecordSource = myStr Me.Requery End Sub جعفر
هديل الحارثي قام بنشر فبراير 2, 2017 الكاتب قام بنشر فبراير 2, 2017 10 دقائق مضت, jjafferr said: التاريخ يخلق مشكلة في الكثير من الاحيان ، وبعض الاحيان بسبب اعدادات الكمبيوتر ، لهذا السبب انا عملت هذا الرابط . وبإستخدام الوحدة النمطية الموجودة في الرابط اعلاه والتي تهتم بالتاريخ ، اصبح الكود هكذا: Private Sub بحث_Click() On Error Resume Next Dim ctl As Control Dim Argcount As Integer Dim str As String Argcount = 0 MyCriteria = "" For Each ctl In Me.Controls If (ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acCheckBox) And ctl.Tag <> "" Then If ctl.Name <> "Date_From" And ctl.Name <> "Date_To" Then AddToWhere ctl.Tag, ctl.Value, "[" & ctl.Name & "]", MyCriteria, Argcount End If End If Next ctl If Len(Me.Date_From & "") <> 0 And Len(Me.Date_To & "") <> 0 Then If Len(MyCriteria & "") <> 0 Then MyCriteria = MyCriteria & " And " End If 'MyCriteria = MyCriteria & " [Date_BR] between #" & Me.Date_From & "# And #" & Me.Date_To & "#" MyCriteria = MyCriteria & " [Date_BR] between " & DateFormat(Me.Date_From) & " And " & DateFormat(Me.Date_To) End If 'Debug.Print MyCriteria myStr = "select * from S_NAMES where " & MyCriteria Me.S_NAME.Form.RecordSource = myStr Me.Requery End Sub جعفر رائع اشكرك على المساعدة والمعلومة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.