هديل الحارثي قام بنشر فبراير 2, 2017 مشاركة قام بنشر فبراير 2, 2017 السلام عليكم ورحمة الله وبركاته هل من الممكن المساعدة في البحث بين تاريخيين بشرط في نفس دالة البحث الموجودة بالميثال مع فائق شكري إلكم Employees.rar رابط هذا التعليق شارك More sharing options...
هديل الحارثي قام بنشر فبراير 2, 2017 الكاتب مشاركة قام بنشر فبراير 2, 2017 رابط هذا التعليق شارك More sharing options...
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 رابط هذا التعليق شارك More sharing options...
أبو نادر قام بنشر فبراير 2, 2017 مشاركة قام بنشر فبراير 2, 2017 وهذي طريقه بسيطه ثانية Employees2.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 2, 2017 مشاركة قام بنشر فبراير 2, 2017 السلام عليكم اخي أبونادر البحث السابق كان لجميع الحقول ، والبحث الجديد يجب ان يكون لجميع الحقول و بين التاريخين ، والظاهر انك نسيت البحث في الحقول ، وعملت البحث بين تاريخين فقط جعفر 2 رابط هذا التعليق شارك More sharing options...
هديل الحارثي قام بنشر فبراير 2, 2017 الكاتب مشاركة قام بنشر فبراير 2, 2017 9 دقائق مضت, jjafferr said: السلام عليكم اخي أبونادر البحث السابق كان لجميع الحقول ، والبحث الجديد يجب ان يكون لجميع الحقول و بين التاريخين ، والظاهر انك نسيت البحث في الحقول ، وعملت البحث بين تاريخين فقط جعفر أشكرك اخى جعفر انت دائما رائع في البرمجة رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 2, 2017 مشاركة قام بنشر فبراير 2, 2017 رابط هذا التعليق شارك More sharing options...
هديل الحارثي قام بنشر فبراير 2, 2017 الكاتب مشاركة قام بنشر فبراير 2, 2017 9 دقائق مضت, jjafferr said: أخى جعفر لا يزال لا يبحث مثلا عند أدخال من تاريخ 01/01/2016 إلى تاريخ 05/01/2016 لا يعمل تصفية للبيانات لا اعلم المشكلة رابط هذا التعليق شارك More sharing options...
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 رابط هذا التعليق شارك More sharing options...
هديل الحارثي قام بنشر فبراير 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 شكرا أخى جعفر .. بالفعل البحث يعتمد على كل الحقول واحيانا فقط التاريخ من إلى .... رابط هذا التعليق شارك More sharing options...
هديل الحارثي قام بنشر فبراير 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 لا تظهر نتبجة ولا اعرف السبب رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 2, 2017 مشاركة قام بنشر فبراير 2, 2017 ارفق لكي نفس البرنامج مرة اخرى ، كل شئ عندي تمام . جعفر 566.Employees.mdb.zip رابط هذا التعليق شارك More sharing options...
هديل الحارثي قام بنشر فبراير 2, 2017 الكاتب مشاركة قام بنشر فبراير 2, 2017 3 دقائق مضت, jjafferr said: ارفق لكي نفس البرنامج مرة اخرى ، كل شئ عندي تمام . جعفر 566.Employees.mdb.zip الاحظ معاك تاريخ الترقية 01Jan-16- بينما معاي 01/01/2016 فهل تعتقد من إعدادات تنسيق التاريخ ؟ ؟ رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 2, 2017 مشاركة قام بنشر فبراير 2, 2017 الظاهر هكذا !! بس لوسمحتي تأخذين صورة للشاشة وارسليها ، يمكن اعدادات تنسيق التاريخ عندك نظام امريكي ، يعني الشهر / اليوم / السنة ، والمشكلة هاي ما تبين إلا في التواريخ الاكبر من 12 !! ولكن ومثل ما تفضلتي ، غيري تنسيق التاريخ في جهازك واخبريني التجربة. ولكن ، رجاء تجربي هذا المرفق اولا وقبل تغيير اي شئ جعفر 566.1.Employees.mdb.zip 1 1 رابط هذا التعليق شارك More sharing options...
هديل الحارثي قام بنشر فبراير 2, 2017 الكاتب مشاركة قام بنشر فبراير 2, 2017 1 دقيقه مضت, jjafferr said: الظاهر هكذا !! بس لوسمحتي تأخذين صورة للشاشة وارسليها ، يمكن اعدادات تنسيق التاريخ عندك نظام امريكي ، يعني الشهر / اليوم / السنة ، والمشكلة هاي ما تبين إلا في التواريخ الاكبر من 12 !! ولكن ومثل ما تفضلتي ، غيري تنسيق التاريخ في جهازك واخبريني التجربة. ولكن ، رجاء تجربي هذا المرفق اولا وقبل تغيير اي شئ جعفر 566.1.Employees.mdb.zip طيب لحظات اخى جعفر اخى العزيز جعفر الآن البحث يعمل بشكل دقيق وممتاز ولكن ممكن تخبرني وتشرح شو كانت المشكلة وشو عملت عشان نتعلم منك .. رابط هذا التعليق شارك More sharing options...
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 جعفر رابط هذا التعليق شارك More sharing options...
هديل الحارثي قام بنشر فبراير 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 جعفر رائع اشكرك على المساعدة والمعلومة رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 2, 2017 مشاركة قام بنشر فبراير 2, 2017 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان