عبد الله قدور

السلام عليكم لا يوجد اي اقتراحات بشأن البرنامج

بعد وضع كلمة المرور للقاعدة الجداول من قاعدة النماذج احذف الجداول وقم باضافة الجداول المرتبطة من البداية او هناك حل اخر ضع هذه الكود في وحدة نمطية Public Function CreateTableLink(strBEPath, strSourceTableName, strPassword) As Boolean Dim db As DAO.Database Dim tdf As DAO.TableDef Dim strConnect As String Dim strLinkName As String strLinkName = strSourceTableName strConnect = "MS Access;PWD=" & strPassword & _ ";DATABASE=" & strBEPath Debug.Print strConnect Set db = CurrentDb Set tdf = db.CreateTableDef tdf.Connect = strConnect tdf.SourceTableName = strSourceTableName tdf.Name = strLinkName db.TableDefs.Append tdf Set tdf = Nothing Set db = Nothing End Function وقم باستدعائه بالكود التالي Call CreateTableLink(NewDatabase, "tbale name", "password") وللأمانة العلمية هذا الكود من ابداع معلمنا الرائع أبو أدم تحياتي له

Dim ask As Single ask = MsgBox("åá ÊÑíÏ ÍÐÝ ÇáÓäÏ", vbDefaultButton1 + vbInformation + vbMsgBoxRight + vbYesNo, "ÊäÈíå") If ask = vbYes Then 'هنا تضع الكود الذي سينفذ بعد الضغط على زر نعم end if

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

السلام عليكم يجب عليك القيام بالخطوات التالية 1- انشاء عمود في جدول المستودع عندك تسجل فيه الافرع 2- عمود رقم العملية id لن يكون ترقيم تلقائي 3- يجب ان يكون رقم العملية id و العمود الجديد الافرع مفتاحين اساسين لمنع تكرار السجلات القادمة 4- ربط جدول المستودع القادم من الفرع بالبرنامج عندك (جدول مرتبط) 5- انشاء استعلام الحاق يقوم بالحاق البيانات من الجدول المرتبط الى جدول المستودع

السلام عليكم اخي الكريم اليك الحل db3.rar

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

السلام عليكم اليك ما طلبت اخي الكريم لكن عندي ملاحظة صغيرة وهي ان الزر العادي يفي بالغرض الذي تريده حسب ما فهمت من طلبك ايضا يفضل ان تكون المسميات باللغة الانكليزية لسهولة البرمجة Aziz2.rar

أرحني بها يا محمد أيمن

السلام عليكم اخواني الكرام هذا التعبير يعطني الجمع التراكمي للسجلات لكن المشكلة فيه انه عندما اقوم باعادة ترتيب السجلات لا يتغير الجمع التراكمي بما يتناسب مع السجلات لان الكود يعتمد في شرطه على قيمة المفتاح الرئيسي لانه سيكون تسلسلي balance: Nz(DSum("nz( [kadebit] )-nz( [kacrdit] )";"tblkashf";"[id]<=" & [id]);0) فهل يمكن ان يكون الشرط يعتمد على رقم ترتيب السجل الحالي بدل من رقم المفتاح التسلسلي

السلام عليكم حسب معلوماتي في هذا المجال هو المنبه الوحيد لذلك هو صوت ups الذي يصدر عنه كل 10 ثواني تقريبا

فيه معلومات جيدة لكن انا اريد لما أحول التقرير الى افقي يتم تمدد عناصر التقرير نحو الاتجاه الفارغ من التقرير فما حاجتي لتحويله الى افقي وتبقى المعلومات عمودية

فكرة جيدة اخي صالح وسأقوم بتجربتها ان شاء الله

هذا خيار لتستطيع اختيار شكل التقرير أفقي أم عمودي من جدول اسمه tblreport و من عمود اسمه check فإن كان قيمة Check = 1 فالتقرير افقي واذا كانت 2 فالتقرير عامودي

السلام عليكم كنت قد طرحت هذا الموضوع في المنتدى بمشاركة في هذا الرابط الرابط

السلام عليكم اهتديت الى هذا الحل ولكني لم اقتنع به بشكل كامل بحيث اقوم بضرب عرض عنصر التحكم ب 1.44 Me.ta1.width = Me.ta1.width * 1.44 Me.address.width = Me.address.width * 1.44 Me.pagenumber.width = Me.pagenumber.width * 1.44

فكرة لا بأس بها اخي محمد ايمن لكن اذا كان البرنامج يحتاج الى 20 تقرير تقريبا فيجب علي انشاء 40 تقرير

السلام عليكم استخدم هذا الكود لتغيير طريقة عرض التقرير من افقي الى عمودي اعتمادا على قيمة من جدول ولكن يجب علي ايضا ان اعيد ترتيب عناصر التقرير في حال تم تحويله الى افقي بحيث يجب ان تذهب بعض العناصر الى اليسار وبعضها الى اليمين وبعضها يجب ان يتمدد ليملأ النموذج If DLookup("[check]", "tblreport", "[id]=1") = 1 Then Me.Printer.Orientation = acPRORLandscape ElseIf DLookup("[check]", "tblreport", "[id]=1") = 2 Then Me.Printer.Orientation = acPRORPortrait End If فهل يمكن تعديل الكود ليتم ذلك فخاصية الارتساء غير موجودة في التقارير

السلام عليكم هذا قصدك أخي الكريم أليس كذلك

اليك التعديل الذي طلبه اخي ضع بدل مربع النص بدن النموذج BackColor.rar

السلام عليكم اخي الكريم البرنامج يحمل اسم accurate على ما اظن اما القاعدة التي اسمها 2014 فهي قاعدة البيانات وليست البرنامج وعلى كل حال قاعدة البيانات كلمة مرورها 123.

طبعا هو نفسه

السلام عليكم اليك التعديل في المرفق اخي الكريم وضعت الكود في حدث بعد التحديث للوزن المحمل والوزن الفارغ compny.rar

السلام عليكم ضع الكود التالي في حدث عند التحميل للنموذج Me.ÊÝÕíá.BackColor = 15151515 * Rnd