jjafferr

السلام عليكم اخي محمود مو اتفقنا انه عند وضعك للسؤال ، ان توضح ايش المطلوب بالضبط انا انزلت مرفقك ولكني لم اعرف ما الذي يجب اختياره في النموذج ، وما النتيجة التي تريدها في التقرير جعفر

وعليكم السلام هناك الكثير من المواضيع التي تخص جهاز البصمة ، وقد لا تجد موضوعا عن هذا الجهاز بالذات ، ولكنها جميعا تقريبا تعمل بنفس الطريقة استعمل خاصية البحث في المنتدى وان شاء الله سترى طرف الخيط جعفر

تفضل A1 = "[امتار الإنتاج]" A2 = "امر التشغيل" A3 = "لوحة تحكم" A4 = "تاريخ الصب" A5 = "المنتج" A6 = "نوع" Me.n1 = DSum("[A1]", "A2", "[A6]='" & [Forms]![A3]![M] & "' AND [A5]='" & [Forms]![A3]![B2] & "' AND [A4]=#" & [Forms]![A3]![MM] & "#") يعني استعمل الكود التالي ، وذلك بعدما ضبطناه في السطر السابق Me.n1 = DSum("[امتار الإنتاج]", "امر التشغيل", "[نوع]='" & [Forms]![لوحة تحكم]![M] & "' AND [المنتج]='" & [Forms]![لوحة تحكم]![B2] & "' AND [تاريخ الصب]=#" & [Forms]![لوحة تحكم]![MM] & "#") وعلشان نضع صفر بدل الحقل الفارغ Me.n1 = NZ(DSum("[امتار الإنتاج]", "امر التشغيل", "[نوع]='" & [Forms]![لوحة تحكم]![M] & "' AND [المنتج]='" & [Forms]![لوحة تحكم]![B2] & "' AND [تاريخ الصب]=#" & [Forms]![لوحة تحكم]![MM] & "#"),0) جعفر

السلام عليكم تم عمل اللازم في هذا الرابط: جعفر

السلام عليكم لم استطع تعطيل النقر على الفأرة اليمنى تم استبدال ActiveX الى: . وهذا الكود بالكامل ، مع استعمال الاسهم للذهاب الى الصفحة السابقة ، او الرجوع للصفحة التي كنت عليها Option Compare Database Public web As Object Private Sub cmd_Back_Click() web.GoBack 'Go Back one Page End Sub Private Sub cmd_Forward_Click() web.GoForward 'Go Forward one Page End Sub Private Sub Form_Load() 'specify that the browser is an object in the Form Set web = Me.objIE.Object 'give the initial web page name web.Navigate "E:\" End Sub جعفر 569.Database1.accdb.zip

السلام عليكم شكرا اخوتي انس ورضوان (زين سمعنا صوتك) وشفان بدأ الموضوع بعدة اسأله عن امكانية التعامل مع مواقع الانترنت ، ومعظمها عن ارسال البيانات ، وخصوصا لموقع الشموس ، وعلمنا اخونا العود أبوخليل (اعرف انه متابع الموضوع) ، ان الاسئلة المتكررة يعمل لها موضوع مستقل فيه حل شامل ، فانا هنا احاول الاقتداء به بدأ المشروع بشئ صغير ، ولكن الفكرة توسعت ، لتسهل العمل على المبرمج ، وليكون البرنامج مكتبة لعمل العديد من الاشياء. وهذا جعلني اتأخر عن بعض زبائني ، والتأخر عن مساعدة العديد من الشباب في المنتدى عمل البرنامج (طبعا لن يشتغل البرنامج على جميع المواقع ، وبالتجربة فقط تستطيع معرفة عمله مع اي موقع) : النموذج frm_browse يحتوي على كائن Microsoft Web Browser ، ندخل اسم الموقع في حقل التحرير والسرد url_Address ، ثم نضغط على الزر Go ، والذي سيفتح الموقع في النموذج ، الزر "احفظ csv" سيقرأ كائنات الموقع ، ويحفظها في ملف بصيغة csv (اللي ينفتح بالاكسل) ، ثم يفتح الملف ، وفيه 3 طرق لإرسال معلومات الى اي حقل تريد (يعني يعطيك الكود جاهز لكل حقل) ، والافضل استعمال الكود الذي في العمود "Usage2" ، حيث ليست جميع الحقول لها اسماء (للأسف في بعض المواقع) ، الأفضل منه هو زر "احفظ في الجدول" ، حيث سيحفظ كائنات الموقع في جدول في البرنامج نفسه ، والاصعب كان حفظ بيانات حقول التحرير والسرد ، الزر "تجربة ارسال ، استيراد بيانات لهذا الموقع" يفتح النموذج frm_Send_Get وبه كائنات الموقع واسماء الحقول (حسب اسمها في البرنامج وليس حسب ظهورها على الموقع ، فالموضوعين غير مرتبطين للأسف في برمجة الموقع) ، هنا نستطيع تجربة اذا كان بإمكاننا ارسال/استرجاع بيانات الى/من الموقع ، فتختار اي حقل تريد التجربة عليه ، وتكتب المعلومة التي تريد ارسالها في الحقل Send_Data وبالنقر المزدوج على المعلومة ، وسترى انه تم ادخالها في الحقل في الموقع ، ويمكن التأكد كذلك من امكانية قراءة معلومة الحقل بالنقر المزدوج على الحقل Get_Data ، بالنسبة لحقول التحرير والسرد ، فالموضع يختلف قليلا ، لأنه مثل الاكسس ، فالمعلومة التي تراها في اختيار المعلومة من هذا الحقل ، ليس معناه انها نفس القيمة التي تُحفظ في الجدول ، لذلك يجب عليك النقر المزدوج على الحقل ref_Name ، فيعطيك قائمة الاختيار من النموذج frm_Options ، وبالنقر المزدوج على الحقل Opt_Value ستنتقل المعلومة الى الحقل في Send_Data النموذج frm_Send_Get ، والتي يمكن بالنقر المزدوج عليها ان ترسل المعلومة الى الحقل في الموقع (وهنا قد لا ترى التغير على الحقل في الموقع ، ولكن عندما تنقر عليه لتختار ، ستجد ان الاختيار قد تم حسب رغبتك) ، الى هنا وقلت اقفل الموضوع!! ولكن ، صحيح اني قدمت كود ارسال/استرجاع البيانات ، وبيانات حقول التحرير والسرد ، ولكن العملية متعبة في عمل جدول جديد ونموذج وكود لكل حقل ووو ، فرأيت ان اواصل العمل ، ولم اعرف مدى صعوبة عمل والتحكم بقاعدة بيانات خارجية ، فلهذا السبب اخذ وقت اكثر بكثير مما كنت اعتقد: فعملت الزر "عمل نموذج ارسال ، استيراد بيانات لهذا الموقع" ، والذي يفتح النموذج frm_Make_Form ، والزر السحري فيه هو "اعمل النموذج" ، والذي: يعمل قاعدة بيانات جديدة ، حسب اسم المسار واسم البرنامج الذي تريده ، ويعمل فيها 4 جداول تحتوي على معلومات الموقع وكائناته ، ثم يعمل النموذج الخاص بهذا الموقع ، وتكون الحقول جاهزة للإستعمال ، مع حقول التحرير والسرد ، ويكون هذا النموذج مربوطا بالجدول tbl_web_Send_Get ، النموذج به زر "Send Data" وزر "Retrieve Data" ، العمل المتبقي هو عمل الكود لهذه الازرار ، بحيث يكون النموذج جاهز 99% ، وتبقى الـ 1% للتعديلات التي قد لا اطالها. ارفق لكم البرنامج الى حيث وصلت (مع العديد من الاشياء التجريبية التي يجب حذفها في البرنامج النهائي) ، وان شاء الله لما اكمل الجزء المتبقي ، سارفقه كذلك (حينها سأقوم بتعديل الموضوع من اول وجديد ، ترتيب الصور مع الشرح والمرفق الاخير ، ان شاء الله). جعفر Pre-WebBrowser.zip

اسمائنا وارقام هواتفنا وتاريخ ميلادنا موجودين في السجلات

السلام عليكم تفضل أخي الكود اصبح: Option Compare Database Public Ok_to_Print As Integer Private Sub Form_BeforeUpdate(Cancel As Integer) 'On Error Resume Next Beep If Ok_to_Print = 0 Then If MsgBox("هل ترغب بحفظ الفاتوره؟" & vbCrLf & _ "أضغط (نعـم) للحفظ ، أو (لا) لإلغاء الأمر .", _ vbInformation + vbMsgBoxRight + vbOKCancel + vbDefaultButton2, _ "تنبيـــه : تاكيد") = vbOK Then Ok_to_Print = 1 Else Cancel = True Me.Undo 'DoCmd.RunCommand acCmdUndo End If End If End Sub Private Sub أمر67_Click() Call Form_BeforeUpdate(True) If Ok_to_Print = 1 Then DoCmd.RunCommand acCmdSaveRecord DoCmd.OpenReport "rpt_Cash_invoice", acViewPreview, , "[رقم السند]=" & Me.[رقم السند] Ok_to_Print = 0 End If End Sub جعفر 568.احتاج مساعدتكم اخواني.accdb.zip

وعليكم السلام واهلا وسهلا بك في المنتدى الموضوع مخالف ، لذا رجاء كتابة موضوع جديد بعنوان واضح حسب المادة 3 ادناه قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف يُغلق - مُخالف. جعفر

السلام عليكم أخي وضاح الموضوع أُغلق لسببين: اولا: قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف ثانيا: مافي داعي تكتب موضوع جديد لسؤال مستمر ، كل اللي لازم تعمله لتكملة موضوعك السابق ، هو ان تكتب فيه : للرفع جعفر

السلام عليكم ورحمة الله وبركاته في الواقع صار لي حوالي الشهر اشتغل على هذه الهدية ، ولكني وللأسف لم انتهي منها الى الآن (باقي القليل والحمدلله) ، ولكن ولأن عندنا مناسبة غالية هذه الليلة ، فأحببت ان اكتب الموضوع ، واهديه الى صاحب المناسبة العمل اللي يقوم به البرنامج: سأترككم مع هذه الصور من النماذج ، وبعض صفحات المواقع التي جربت العمل عليها: . . . وللحديث تتمة ان شاء الله جعفر

التاريخ يخلق مشكلة في الكثير من الاحيان ، وبعض الاحيان بسبب اعدادات الكمبيوتر ، لهذا السبب انا عملت هذا الرابط . وبإستخدام الوحدة النمطية الموجودة في الرابط اعلاه والتي تهتم بالتاريخ ، اصبح الكود هكذا: 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 جعفر

الظاهر هكذا !! بس لوسمحتي تأخذين صورة للشاشة وارسليها ، يمكن اعدادات تنسيق التاريخ عندك نظام امريكي ، يعني الشهر / اليوم / السنة ، والمشكلة هاي ما تبين إلا في التواريخ الاكبر من 12 !! ولكن ومثل ما تفضلتي ، غيري تنسيق التاريخ في جهازك واخبريني التجربة. ولكن ، رجاء تجربي هذا المرفق اولا وقبل تغيير اي شئ جعفر 566.1.Employees.mdb.zip

ارفق لكي نفس البرنامج مرة اخرى ، كل شئ عندي تمام . جعفر 566.Employees.mdb.zip

الحمدلله ، انا وابوخليل ورمهان (هذيل اللي عرفتهم) موجودين في المشاركة شكرا اخي شفان جعفر

السلام عليكم أخي كريمو امر فتح التقرير عندك لازم يكون هكذا Dim stDocName As String stLinkCriteria = "EmployeeID=" & Me.EmployeeID stDocName = "x03" 'DoCmd.OpenReport stDocName, acPreview DoCmd.OpenForm "PrintPreviewFrm", , , , , acDialog, stDocName & ";" & Me.Name . انت لا تفتح التقرير ، وانما تفتح النموذج PrintPreviewFrm ، وترسل اليه اسم التقرير واسم النموذج الذي به زر فتح التقرير ، والنموذج PrintPreviewFrm هو الذي يقوم بفتح التقرير جعفر

أختي الظاهر انك بحثتي بالتاريخ فقط!! على العموم ، هذا الكود المعدل يعمل للبحثين معا ، او اي بحث مستقل (الحقول او التاريخ): 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

السلام عليكم اخي أبونادر البحث السابق كان لجميع الحقول ، والبحث الجديد يجب ان يكون لجميع الحقول و بين التاريخين ، والظاهر انك نسيت البحث في الحقول ، وعملت البحث بين تاريخين فقط جعفر

وعليكم السلام اختي كود البحث اصبح: 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

وعليكم السلام هناك عدة اسباب: منها: iif ، وحسب الدرس التالي: عيوبها: الدالة تختبر جميع الحالات ، ولا تختبر القيمة الاولى وتخرج (مثل الـ IF) وارى هنا انك تستعمل iif ستة مرات ، ولثلاثة حقول: . وهذا سبب آخر: . وفهرست الحقول في الجدول ، تلك التي تستخدمها كمعيار في الاستعلام ، وانت عندك الكثير منها في المثال اعلاه. وطبعا يكون في العديد من الاسباب الاخرى ، ونستطيع معرفتها بفحص البرنامج بدقة جعفر

تفضل: ولكني لا انصح بهذه الطريقة ، فالطريقة السابقة (استعمال استعلامين) جدا مرنه ، بينما يجب تغيير قيم DoctorCode و VisitDate في كل حقل بطريقة يدوية (إلا اذا كنت تأخذ هذ المتغيرات من نموذج مفتوح او جدول) . والنتيجة . جعفر 565.1.mdb.zip