jjafferr

سهله 🙂 بدل ما نأخذ اسم ملف الجداول ومساره من BE_Path = DLookup("[Database]", "MSysObjects", "[Flags]=2097152") 'Path and BE name انت اكتبه يدويا، هكذا BE_Path = "D:\myDB\my_BE.mdb" 'Path and BE name او BE_Path = application.currentdb.path & "\myDB\my_BE.mdb" 'Path and BE name جعفر

ممتاز 🙂 اروح آخذ غفوة الظهيرة ، والليلة خير ان شاء الله 🙂 جعفر

1. هل طابعتك ملونه ؟ 2. ادخل في اعدادات الطابعة ، ابحث عن نقاوة الطباعة ، واختار Normal او Best (قد يكون بمسمى آخر) . او قد تكون اعدادات الطابعة كالصورة في اسفل ، فلا تختار المربع . رجاء تجرب الطباعة بعد هذه التعديلات. جعفر

سؤال أخير: كم سجل عندك في الجدول Imagetable ؟

اخي محمد ، رجاء انزل المرفق الجديد ، شغل البرنامج ، وشغل التقرير ، اريدك لوسمحت تعمل صورة من الشاشة ، واطبع التقرير ، واريد صورة من الورقة المطبوعة 🙂 هذه آخر افكار على بالي ، فرجاء تنفيذها 🙂 جعفر 1186.1.accdb

يا باشمهندس ، عندي طلب لوسمحت (غير الكاهي والباقلة والدهن 🙂 ) ، علشان اعرف ان تفكيري صح او خطأ !! انسخ مجلد البرنامج ، واللي فيه البرنامج ومجلد الصور ، وخليه في كمبيوتر ثاني (يجب ان يكون كمبيوتر او لابتوب آخر غير اللي الموجود عليه البرنامج) ، شغل البرنامج هناك ، واعمل بحث لسجل فيه صورة jpg موجودة في المجلد ، المفروض انك ما تشوف اي من الصور ، في اي من السجلات !! اذا كان تفكيري صحيح ، رجاء تخبرني علشان ننتقل للخطوة التالية ان شاء الله 🙂 جعفر

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

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

السلام عليكم 🙂 عملت بعض الاضافات في مشاركتي السابقة ، وهذه هي الجزئية التي تتأكد ان الحقول مليانة : Private Sub cmd_Update_Click() If (Len(Forms!الرئيسية![44 form]![التسلسل] & "")) = 0 Then MsgBox "حقل التسلسل فارغ" Forms!الرئيسية.Form![44 form].SetFocus Forms!الرئيسية![44 form]![التسلسل].SetFocus Exit Sub ElseIf (Len(Forms!الرئيسية![44 form]![named] & "")) = 0 Then MsgBox "حقل الاسم فارغ" Forms!الرئيسية.Form![44 form].SetFocus Forms!الرئيسية![44 form]![named].SetFocus Exit Sub ElseIf (Len(Forms!الرئيسية![5 form]![تاريخ التولد] & "")) = 0 Then MsgBox "حقل تاريخ التولد فارغ" Forms!الرئيسية.Form![5 form].SetFocus Forms!الرئيسية![5 form]![تاريخ التولد].SetFocus Exit Sub ElseIf (Len(Forms!الرئيسية![8 form]![العمر] & "")) = 0 Then MsgBox "حقل العمر فارغ" Forms!الرئيسية.Form![8 form].SetFocus Forms!الرئيسية![8 form]![العمر].SetFocus Exit Sub ElseIf (Len(Forms!الرئيسية![form1]![المهنة] & "")) = 0 Then MsgBox "حقل المهنة فارغ" Forms!الرئيسية.Form![form1].SetFocus Forms!الرئيسية![form1]![المهنة].SetFocus Exit Sub ElseIf (Len(Forms!الرئيسية![form1]![رقم الموظف] & "")) = 0 Then MsgBox "حقل رقم الموظف فارغ" Forms!الرئيسية.Form![form1].SetFocus Forms!الرئيسية![form1]![رقم الموظف].SetFocus Exit Sub End If ShowBalloonTooltip "رجاء الانتظار ...", "تم تحديث معلومات :" & vbCrLf & "اسم الموظف ورقمه بنجاج", btWarning ' ShowBalloonTooltip "النتائج التي تم حفظها :", "التسلسل: " & Forms!الرئيسية![44 form]![التسلسل] & vbCrLf & _ "اللاسم: " & Forms!الرئيسية![44 form]![named] & vbCrLf & _ "المهنة: " & Forms!الرئيسية![form1]![المهنة] & vbCrLf & _ "رقم الموظف: " & Forms!الرئيسية![form1]![رقم الموظف], _ btWarning End Sub جعفر 1191.1.222.accdb.zip

كيف تبحث عن ملف pdf ، اعطني مثال ؟ وهل بيانات الحقل ImagePath دائما فاضية ؟ ولما تبحث عن ملف jpg ، كيف تبحث ، اريد مثال ؟ واريد صورة شاشة من احد المجلدات اللي فيها ملفات الـ pdf ، وصورة شاشة من احد المجلدات اللي فيها ملفات الـ jpg . جعفر

وعليكم السلام 🙂 الكود يحفظ ملفات jpg و pdf بنفس الطريقة : . والمسار يصير: مجلد قاعدة البيانات / comp1 / ثم E_ID هذه اختيارات comp1 : . وهذا نوع الحقل E_ID . في هذا الرابط انت سألت عن كيف عرض ملف pdf في النموذج : وبالاضافة الى تغيير الكائن في النموذج ، جواب الكود كان: web.Navigate Me![ImagePath] . بينما الكود عندك : Private Sub PicFile_AfterUpdate() On Error Resume Next Me![objIE].Object = Me![PicFile] '<----- End Sub . وقيمة الحقل PicFile . واللي اصلا غير عن: . وكذلك حقل ImagePath في الجدول فارغ !! . لذا ، وبإختصار شديد: شليله و ضايع راسها !! جعفر

وعليكم السلام 🙂 يا ريت تعرض لنا الجواب هنا 🙂 القوائم اعلى النوافذ ، تتحكم في اظهارها / اخفائها بالامر الذي وضعته انت في مشاركتك الاولى ، بينما التحكم في الاطار اسفل النافذة (وهو طلبك) ، فالامر هو : إخفاء Application.SetOption "Show Status Bar", False إظهار Application.SetOption "Show Status Bar", True . ويمكن استعمال هذا الكود اول ما يعمل البرنامج ، فلا يظهر في البرنامج ككل ، واذا اردنا إظهاره في نموذج معين ، ثم اخفائه في بقية النماذج ، فنستعمل كود الاظهار عند فتح النموذج (او عند تنفيذ امر معين) ، ونخفيه عند اغلاق النموذج (او عند الانتهاء من الامر المطلوب) 🙂 جعفر

طريقة العمل: . 1. من برنامجك ، تستورد الوحدتين النمطية ، BalloonTooltip و basBalloonTooltip ، من البرنامج BalloonToolTipSample.mdb ، واذا اردت ان تعمل نسخ ولصق للوحدتين النمطية ، تأكد بأنك تلصق كل وحدة نمطية في مكانها الصحيح : basBalloonTooltip في Module BalloonTooltip في Class Module 2. تشغل برنامج اللي في رابط مشاركتي اعلاه : BalloonToolTipSample.mdb ، ثم تضع النص اللي تريده ، 3. اختار احد الاختيارات ، 4. جربه ، وشوف نتيجته ، 5. ولما تختار من رقم 3 ، انقر على الرقم 5 حتى يعطينا البرنامج الكود الذي نستعمله ، 6. ننسخ الكود في الذاكرة ، ثم نلصقه في برنامجنا : Private Sub cmd_Update_Click() ShowBalloonTooltip "رجاء الانتظار ...", "تم تحديث معلومات :" & vbCrLf & "اسم الموظف ورقمه بنجاج", btWarning End Sub . . وانواع الايقونات هي : btNone btInformation btWarning btCritical . ونستطيع التوسع ، وجعل بيانات معينة تظهر ، مثل: . والذي عملناه بهذا الكود : ShowBalloonTooltip "النتائج التي تم حفظها :", "التسلسل: " & Forms!الرئيسية![44 form]![التسلسل] & vbCrLf & _ "اللاسم: " & Forms!الرئيسية![44 form]![named] & vbCrLf & _ "المهنة: " & Forms!الرئيسية![form1]![المهنة] & vbCrLf & _ "رقم الموظف: " & Forms!الرئيسية![form1]![رقم الموظف], _ btWarning . وهناك كمية معينة من البيانات التي ممكن اظهارها ، وإلا ، فلن يظهر إلا الكم المسموح به فقط 🙂 . الى هنا وينتهي العمل . ---------------------------------------------------------------- اذا عملنا ايقونه خاصه لبرنامجنا ، انا عملت حرف J باللون الازرق : . ومن اعدادات البرنامج ، نختار صورة الايقونه للبرنامج : . فنلاحظ انه تظهر في اعلى يسار الشاشة : . وكذلك ستظهر الايقونه مع الرسالة : . جعفر 1191.222.zip

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

السلام عليكم 🙂 اليكم طريقتي . وهذا هو الكود ، ولكن تذكر ان تحذف السطر الذي لا تريده : Dim ID As Long Dim ID As String ID = Me.txtID Me.Requery Me.RecordsetClone.FindFirst "[ID]=" & ID Me.RecordsetClone.FindFirst "[ID]='" & ID & "'" Me.Bookmark = Me.RecordsetClone.Bookmark . وهذه الطريقة اعلاه ، ولكنها غير مختصرة : . وهذا هو الكود ، ولكن تذكر ان تحذف السطر الذي لا تريده : Dim rst As dao. Recordset Dim ID As Long Dim ID As String ID=Me.txtID Me.Requery Set rst = Me.RecordsetClone rst.FindFirst "[ID]=" & ID rst.FindFirst "[ID]='" & ID & "'" Me.BookMark=rst.RecordsetClone.BookMark جعفر

بدل ان يكون عندك حقل صورة ، خليه حقل نص ، ثم اكتب نفس المعادلة اعلاه ، ولكن بتغيير اسم الحقل الذي في النموذج (الاسم وليس مصدر البيانات) 🙂 جعفر

شوف هذا الرابط ، قد يفيدك 🙂 جعفر

تفضل 🙂 . جعفر

اليك الرابطين التاليين : . جعفر

هذا شيء غريب وعجيب ، لأن لغات برمجة صفحات الانترنت تعمل على جميع المتصفحات الجديدة 🙂 رجاء ترفق هذا الرابط 🙂 جعفر

وهذه طريقتي 🙂 انا تعمدت وخليت التقرير طويل ، علشان يبان الجمع لأكثر من صفحة ، وطبعا انت لاحقا اعمله بالحجم اللي يناسبك 🙂 . . والنتيجة : الصفحة 1 ومجموعها : . والصفحة 2 ومجموعها + مجموع ما قبلها: . جعفر 1189.الكمية444.accdb.zip

اخي jo 🙂 انت عندك موضوع اكبر من اللي اخبرتنا عنه 🙂 فجواب سؤالك: '1 Private Sub AA_AfterUpdate() Me.BB = -1 End Sub '2 Private Sub AB_Click() Me.AA = -1 End Sub . جعفر

اخي الفاضل 🙂 للتوضيح : . بالنسبة لـ نعم / لا او صح / خطأ او تشغيل / إيقاف تشغيل : فهو ليس زر ، وإنما اختيار ، وهناك 3 اشكال له (كما هو واضح من الصورة اعلاه) ، والكود عادة نضعه على الحدث "بعد التحديث" ، ويكون في حالتين ، عند اختياره تكون قيمته تساوي -1 ، وعند عدم الاختيار تكون قيمته صفر (وهناك حالة ثالثه خاصة لهم ، وهي حالة Null) ، عند وضع المعيار (في الاستعلام مثلا) ، وبسبب ان الكائن ممكن يكون في 3 حالات (حالة الصفر وحالة Null معناهما انه لم يتم الاختيار) ، لذا ، فالافضل هو ان نستعمل: اذا كنا نريد الحقول المختارة ، فيكون الاختيار -1 ، بينما اذا اردنا الحقول الغير مختارة ، فيكون الاختيار <>-1 جعفر

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

هذا ليس التقرير الذي عملته انا وارفقته في مشاركتي اعلاه ، هذا تقريرك انت القديم !! انا عملت التقرير الجديد الذي اسمه Report1 ، وهذا شكله : . رجاء افتح التقرير اللي اسمه Report1 ، وبدون تعديل ، وشوف النتيجة. جعفر