jjafferr

بس رجاء ، الله يخليك ، احذف اسمي من قائمة الممونين ، وخليني على القوائم الاخرى ، لعلي استفيد :) جعفر

:)

تفضل :) تقدر ان تكتب اسم ومسار اي ملف في الكمبيوتر ، وتضغط على زر فتح الملف: والكود هو: Private Sub cmd_File_Path_Click() Me.AcroPDF1.Object.LoadFile Me.File_Path End Sub والمفروض انك تستطيع ان تكتب مسار ملف pdf على الانترنت كذلك ، ولكني لم احصل لا على نتيجة و…

أخي كريمو :) الكود التالي في الوحدة النمطية fAdd_Observations ، انتبه الى آخر سطر (للكود التالي) ، والذي يبدأ بالاشارة ' If Comp = "Bill" Then mySQL = "SELECT *" mySQL = mySQL & " FROM Bill" mySQL = mySQL & " WHERE CompanyID=" & ID mySQL = mySQL & " AND Month(…

تفضل :) عملت جدول فيه الحقول التالية: شهر ، سنه ، StopMdfy : وعند اختيارك للشهر والسنه التي لا تريد التغيير والحذف ان يتم في سجلاتها ، يجب عليك ان تختار StopMdfy من الجدول (لاحظ بان الشهر 10 لسنة 2014 تم اختياره من الجدول) ، والكود التالي في النموذج ، على حدث …

وعليكم السلام :) إذا فهمت طلبك صح ، فانت تريد: في النموذج UtilityFrm تريد ادخال الشهر والسنة (September 2014 مثلا) ، على اساس هذه الشهور ، تريد ان تمنع المستخدم من تغيير البيانات التابعة لهذا الشهر والسنة؟ هل فهمي صحيح ، وهل هناك شئ آخر يجب ان اعرفه قبل البدء …

ايش رايك انك تكمل البرنامج وتعمل فيه خيار الضغط والاصلاح اولا ، ثم حفظ النسخة؟ انا اميل الى هذا الخيار :) جعفر

طيب: 1. اذا كنت على اول خانة على اليمين ، وضغطت على زر السهم اليمين ، ويش لازم يصير ؟ 2. اذا كنت على اخر خانة على اليسار ، وضغطت على زر السهم اليسار ، ويش لازم يصير ؟ جعفر

يا ولد ، من قدّك :) تستاهل كل خير ، وشكرا على الإطراء والنسخة ، يمكن استطيع ان استفيد منها انا كذلك :) جعفر

اخي الفاضل :) انا وضعت لك كود طباعة التقرير حسب العدد الموجود في مربع النص في نموذجك ، واعطيتك طريقتين للإستعمال ، ولكنك لم تستخدم اي منهم في كودك :( اما بالنسبة الى: فغير هذين السطرين: If Not IsNumeric(txtCopy) Then MsgBox (" ادخل عدد الصفحات ") الى if len(me…

وعليكم السلام اخي :) رجاء مراجعة الرابط التالي للحصول على اسم برنامج الجداول المقسم: /index.php/topic/293420-نسخ-احتياطي-لقاعدة-البيانات/?p=1399191 اما ملاحظتك بعدم استخدام الضغط بكثرة حتى لا يحدث ضرر بالقاعدة ، فهذه المعلومة غير دقيقة ، ففي معظم الاوقات نستخد…

وعليكم السلام :) ضع هذا الكود في وحدة نمطية (انا فعلت هذا ، ولكن يمكنك وضعها اينما تريد :) : Public BE_Path As String Public Function GetDBPath() As String Dim strFullPath As String strFullPath = Mid(DBEngine.Workspaces(0).Databases(0).TableDefs("tbl_Personel_…

وعليكم السلام اخي كريمو :) > هذه آخر محاولة لي اي انها النسخة الاخيرة من الانتاج بعد التصحيح ، وليست نهاية المطاف ان شاء الله :) الخطأ الذي تفضلت واخبرتني عنه المفروض ان لا يظهر ، لأني غيرت طريقة العمل بالكامل ، واعتقد بأني ربطت زمام الجداول بحيث لا يحدث مثل ه…

وعليكم السلام اخي :) سؤالك غير واضح :( رجاء الايضاح بمثال ويفضل بصور كذلك ان امكن :) جعفر

وعليكم السلام :) انت لم تستخدم الكود الذي وضعته لك ، ولإستعماله في برنامجك ، بدل هذين السطرين: DoCmd.PrintOut , , , , 2 DoCmd.OpenReport stDocName, acNormal ' ØÈÇÚÉ استخدم for i= 1 to me.نص34 DoCmd.OpenReport stDocName, acNormal ' طباعة next i اما اذا اردت است…

:)

تفضلي اختي :) جعفر 269.1.الحركة.accdb.zip

:)

:)