jjafferr

البرنامج اللي ارفقته في مشاركتي الاخيرة: . . وقيمة الحقل هو رقم الصنف. ولا يمكن ان تُظهر القيمة والاسم مع بعض بعد ان ترك الماوس ، واذا اردت ، تقدر ان تعمل حقل مستقل لكل معلومة. جعفر

مشكلتك في نموذجك الفرعي ، اصلحه ، وكل شيء بيطلع لك

السلام عليكم اعمل هذه الخطوات لوسمحت: 1. لما تدخل كلمة السر وتكون في صفحة البيانات ، انقر على الزر رقم 4 (احفظ csv) ، والذي يقوم مقام الزر رقم 5 (احفظ في الجدول) ، البرنامج سينتج ملف SiteDetails.csv والذي سيكون في نفس مجلد قاعدة البيانات ، فرجاء ارفاقه هنا ، والذي نستطيع منه اخذ اسماء الحقول ، 2. ادخل في كود الزر رقم 5 (احفظ في الجدول) ، شوف السطر الذي في الصورة في الاسفل ، وانقر على المكان المؤشر عليه بالسهم ، السطر بيتغير لونه الى اللون البني (كما في الصورة) . 3. ارجع الى النموذج ، وادخل في موقع الوزارة ، وادخل كلمة السر ، وافتح صفحة البيانات ، 4. انقر على الزر رقم 5 (احفظ في الجدول) ، فالبرنامج بيأخذك الى السطر الذي به الكود ، وسيتحول السطر الى اللون الاصفر ، والذي معناه ان البرنامج لم ينفذ هذا السطر بعد ، 5. الآن اضغط على زر الكيبورد F8 ، فسترى ان السطر الاصفر انتقل الى السطر التالي ، 6. لاحظ على اي سطر يتوقف الكود ولا يتحرك ، واخبرني عنه ، مع العلم انه قد يجب عليك الانتظار قليلا (قد يصل الموضوع الى دقائق بسبب تفاعل الموقع مع برنامجنا) . . لوسمحت تعطيني الخطوات اللي تعملها (يعني على اي زر تنقر ، ثم اي زر ، ثم اي .....) ولا اريد كلمة السر ، وانما اريد اعرف خطوات وصولك للصفحة المطلوبة ، ونعم اعرف انه ما بستفيد من هذا ، ولكن لعلمي فقط ولا تنسى ، للاستخدام الامثل برجاء استخدام جهازك المحمول الخاص بك بالوضع الأفقي وتعمل صورة من صفحة البيانات (وقبل ان ترفقها هنا ، احذف معلوماتك الشخصية) ، اما الصفحة التي ارفقتها ، فلا فائدة برمجيه منها (هذا ما اخبرتك سابقا). جعفر

وعليكم السلام اذا تركت الاكسس يختار تصاميم وازرار والوان الوندوز ، فهذا ما ستحصل . جعفر

اخوي بدر هذا الكود لا يوجد به توقيت ، وانما كأنه تفعيل لحقل ، فالظاهر ان احد نماذجك فيها توقيت Timer ، وينتقل التركيز فيها الى كائن معين ، ولكن هذا المفروض لا يؤثر على الزر !! معنى كلامي ان المشكلة ليست هنا ، وانما في مكان آخر ، وانت فقط ترى عوارض المشكلة هنا (يا سلام ، كأني دكتور واتكلم ) جعفر

اخي طاهر تم عمل بعض التعديلات على البرنامج: بالاضافة الى الصور اعلاه ، الجدول قبل الاضافة . وبعد الاضافة . والكود لا يسمح بنسخ البيانات ، اذا كان هناك سجل واحد من البيانات موجود في الجدول مسبقا Private Sub cmd_Copy_From_Click() A = "Format([Forms]![الموظفين]![Date_From],'mmyyyy')" A = DCount("*", "sarfyomi1", "Format([التاريخ],'mmyyyy')=" & A) B = "Format([Forms]![الموظفين]![Date_To],'mmyyyy')" B = DCount("*", "sarfyomi1", "Format([التاريخ],'mmyyyy')=" & B) If Len(Me.Date_From & "") = 0 Then MsgBox "رجاء تعبئة التاريخ - من" Me.Date_From.SetFocus Exit Sub ElseIf Len(Me.Date_From & "") = 0 Then MsgBox "رجاء تعبئة التاريخ - من" Me.Date_From.SetFocus Exit Sub ElseIf A = 0 Then MsgBox "لا توجد بيانات لنسخها من الشهر" & vbCrLf & Me.Date_From Exit Sub ElseIf B > 0 Then MsgBox "بيانات الشهر " & vbCrLf & Me.Date_To & vbCrLf & "موجودة في الجدول" Exit Sub End If DoCmd.SetWarnings False DoCmd.OpenQuery "qry_Copy_From" DoCmd.SetWarnings True MsgBox "تم نسخ سجلات الشهر " & vbCrLf & Me.Date_From & vbCrLf & vbCrLf & _ "الى شهر " & vbCrLf & Me.Date_To End Sub جعفر 847.تجريبي.accdb.zip

وعليكم السلام هل هذا قصدك: نعمل استعلام تجميع لكل من التخصصات ، (هنا نأخذ التبريد كمثال فقط) . ولكن هناك فراغات ، . يجب ان نملئها بإسم التخصص ، وعدد كل مجموعة . البيانات الكاملة لتخصص التبريد ، والذي يجب اتباع نفس الخطوات للتخصصات الاخرى ، . نحول الاستعلام من وضع تصميم الى وضع SQL . هذا هو الاستعلام بصيغة SQL . الآن نعمل نفس الاستعلام لبقية التخصصات ، ولكن لا داعي لعمل الاستعلام بالطريقة اعلاه لبقية التخصصات ، وانما نحن بحاجة الى اخذ SQL استعلام التبريد ، وتطبيقه على بقية التخصصات ، وبين كل تخصص وآخر ، نكتب union all SELECT IIf(Len([Trshh] & "")=0,"تبريد",[Trshh]) AS T, Case, Wrship, Count([Nr]) AS [Counter] FROM تبريد GROUP BY IIf(Len([Trshh] & "")=0,"تبريد",[Trshh]), Case, Wrship union all SELECT IIf(Len([Trshh] & "")=0,"زخرفة",[Trshh]) AS T, Case, Wrship, Count([Nr]) AS [Counter] FROM زخرفة GROUP BY IIf(Len([Trshh] & "")=0,"زخرفة",[Trshh]), Case, Wrship union all SELECT IIf(Len([Trshh] & "")=0,"ملابس",[Trshh]) AS T, Case, Wrship, Count([Nr]) AS [Counter] FROM ملابس GROUP BY IIf(Len([Trshh] & "")=0,"ملابس",[Trshh]), Case, Wrship . والنتيجة: . جعفر 853.db1.mdb.zip

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

هل هذا الذي تريده؟ 846.1.STOCK.accdb.zip

وعليكم السلام انت قلت ، يعلق ، ولكن هل ارسل اي معلومة (انا ما اعرف اي زر قصدك في: اختيار ارسال البيانات الى الجدول) ؟ عندك اختيارين: 1. اما ان ترفق اسم الموقع ، 2. واما ان ترفق البرنامج جعفر

المتصفح الذي كنت استعمله ، والذي هو جزء من مايكروسوفت ، ويمكن تخاطب البرامج برمجيا ، فهو المتصفح Internet Explorer ، وهناك طرق لإستعمال متصفح الكروم والفايرفوكس ، ولكني لم اتطرق اليها. ولكن ، البرنامج المرفق ، ينتج لك قاعدة بيانات مستقلة ، تخاطب الموقع الذي تريده ، ولكن ، عندما تنقر على الزر "Open Browser" ، فتستطيع برمجيا ان تجعل المتصفح مخفي (اذا شئت). جعفر

هلا والله

اعصابك اعصابك انت محق ، وانا اعتذر منك ، تلخبطت الاسماء عليّ هذا الرابط الصحيح جعفر

هل جربت طريقتي؟

وعليكم السلام اعطنا مثال من برنامجك لوسمحت جعفر

جرب هاي Private Sub Amountofservice_BeforeUpdate(Cancel As Integer) If Me.Payment_type = "نقدا (cash )" And Me.Amountofservice <> Nz(Me.Net, 0) Then MsgBox "Amountofservice يجب ان يساوي Net" Cancel = True End If End Sub Private Sub Payment_type_BeforeUpdate(Cancel As Integer) If Me.Payment_type = "نقدا (cash )" Then Me.Amountofservice = Nz(Me.Net, 0) End If End Sub جعفر 850.1.تجريي2.accdb.zip

افضل طريقة ان تضع مثل هذا الكود على حدث "قبل التحديث" للحقل الذي تريد فحصه. Private Sub tel_BeforeUpdate(Cancel As Integer) If Len(Me.tel & "") = 0 Then MsgBox "الحقل الفلاني فاضي", vbCritical + vbMsgBoxleft, "رسالة تحذيرية" Cancel = True End If End Sub جعفر

السلام عليكم . Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If Me.Count_Each_ED <> Me.S_Ed Then Me.Cont = "continue..." & Me.edara Me.Cont.Visible = True Me.edara.Visible = False Me.lbl_Ed.Visible = False Else Me.Cont.Visible = False Me.edara.Visible = True Me.lbl_Ed.Visible = True End If End Sub . . . جعفر 849.test1.accdb.zip 849.test1.mdb.zip

هذه الاحداث ليست بالتسلسل ، هذا الرابط عملته خاص للتوضيح جعفر

الله يخليك سريع ، لأني توني متعشي جعفر

تفضل . جعفر 850.تجريي2.accdb.zip

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

تفضل هذا الكود ، ولكن يجب ان لا تضع الكود على هذا الحدث ، فهذا الحدث هو آخر حدث قبل الخروج من النموذج Private Sub Form_Close() If len(me.Text1 & "")=0 Then MsgBox "الحقل الفلاني فاضي", vbCritical + vbMsgBoxleft, "رسالة تحذيرية" Exit Sub end if جعفر

لا يمكن تجزأت السطر هذا ، فإما تُظهره بالكامل ، او تخفيه بالكامل. جعفر

وحصلت على الاجابة