عبد الله قدور

السلام عليكم من خصائص العمود اختر مصدر عنصر التحكم اكتب فيه 1= ثم خاصية تراكمي اجعلها شامل

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

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

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

السلام عليكم اعادة تسمية للامتداد تكفي اخي محمد سلامة ويمكنك وضع هذا الكود في النموذج الافتتاحي لتقوم باخفاء شريط اكسس والتأكد ان الامتداد صحيح وانه accdr DoCmd.ShowToolbar "ribbon", acToolbarNo Dim a As String a = Right(Me.Application.CurrentProject.FullName, 5) If a = "accdr" Then Else MsgBox "تم تغيير امتداد البرنامج ولا يمكن ان يعمل البرنامج بشكل صحيح إلا بعد إعادة الامتداد كما كان" DoCmd.Quit acQuitSaveAll End If

السلام عليم اكسس 2003 لم أعمل عليه ابدا لكن اعرف انه كان فيه صلاحيات مستخدمين تم الغاؤها في 2007 اكسس 2007 هو اعمل ما عملت عليه لا يوجد فيه صلاحيات مستخدمين ولكن تم اضافة تنسيقات جديدة بدل اكواد مثل مربع نص التاريخ كنت بحاجة الى كود ليظهر بجانبه مربع اختيار التاريخ في 2007 اصبح تعديل تنسيق يكفي لذلك مع تعديلات بسيطة في اكواد الاستيراد والتصدير ، لايمكنك تعديل التوبيبات او الاضافة عليها الا برمجيا فقط اكسس 2010 له علاقة سئية مع ويندوز اكس بي سيرفس باك تو اما الباك ثري يعمل عليه ولكن مشاكل الازالة والتثبيت لا تنتهي 2010 و 2007 يقبل استيراد وتصدير جدول من نوع dbf هذا الامتداد يستخدم في اجهزة البصمة حسب ما عرفت لاحقا بحيث يمكنه استيراد هذا النوع من الامتدادات والتعديل عليها واضافة سجلات لها لكن هذه الميزة المهمة جدا وخصيصا بالنسبة لي تم الغاؤها في اكسس 2013 . اكسس 2013 تنسيق جيد يليق بويندوز 8 و 8.1 لكن لا يوجد فيه صلاحيات مستخدمين ولا يقبل استيراد الملفات من نوع dbf وللاسف حاليا انا اعمل عليه بسبب انك اذا استخدمت هذه التنسيقات لا يمكن فتح برنامج على اكسس من اصدار سابق واخيرا عندك في 2007 و 2010 و 2013 هناك امتداد جديد هو accdr وهي نسخة مغلقة من برنامج يمكن ان تقدمها للعميل ليعمل عليها ويساعدك فيها ان تقدم للعميل مع برنامج runtime access 2007 و 2010 و 2013 حتى يتم تشغيل هذه الامتداد بدون الحاحة لتنصيب اوفيس

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

السلام عليكم بالنسبة لي للتنقل بين السجلات استخدم الوحدة النمطية التالية Function frst() On Error GoTo err: DoCmd.GoToRecord , "", acFirst Exit Function err: If err.number = 2105 Then MsgBox "áÇ íãßä ÇáÐåÇÈ Åáì ÇáÓÌá ÇáãØáæÈ", vbCritical + vbMsgBoxRight, "ÎØÃ" End If End Function Function nxt() On Error GoTo err: DoCmd.GoToRecord , "", acNext Exit Function err: If err.number = 2105 Then MsgBox "áÇ íãßä ÇáÐåÇÈ Åáì ÇáÓÌá ÇáãØáæÈ", vbCritical + vbMsgBoxRight, "ÎØÃ" End If End Function Function prev() On Error GoTo err: DoCmd.GoToRecord , "", acPrevious Exit Function err: If err.number = 2105 Then MsgBox "áÇ íãßä ÇáÐåÇÈ Åáì ÇáÓÌá ÇáãØáæÈ", vbCritical + vbMsgBoxRight, "ÎØÃ" End If End Function Function lst() On Error GoTo err: DoCmd.GoToRecord , "", acLast Exit Function err: If err.number = 2105 Then MsgBox "áÇ íãßä ÇáÐåÇÈ Åáì ÇáÓÌá ÇáãØáæÈ", vbCritical + vbMsgBoxRight, "ÎØÃ" End If End Function وفي زر الذهاب الى السجل الاول اضع الكود التالي call frst وفي زر الذهاب الى السجل الاخير اضع الكود التالي call lst وفي زر الذهاب الى السجل التالي اضع الكود التالي call nxt وفي زر الذهاب الى السجل السابق اضع الكود التالي call prev تحياتي للجميع

السلام عليكم اتمنى ان يكون هذا التعديل مساعد لك في الحل التصاريح.rar

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

السلام عليكم اخي الكريم ممكن يكون الشرح اوضح اكثر مع وضع مرفق لو تكرمت

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

السلام عليكم افتح محرر الفيجول بيسك واختر نموذج أذن إضافة ستجد فيه سطر واحد ولا يوجد اكواد قم بحذف هذا السطر ثم قم بالتحويل

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

السلام عليكم اليك ماطلبت الحاله الاجتماعيه.rar

تقول بعد اتمام العملية هل هذا يعني ان العملية نجحت لكن تظهر رسالة خطأ ان كان كذلك ضع الكود التالي في بداية الكود On Error Resume Next

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

السلام عليكم اليك الملف بعد التعديل كانت المشكلة عندك في نموذج اذن الاضافة كارت الصنف-up.rar

السلام عليكم اخي الكريم هذا الكود يقوم باخفاء اطار اكسس ويفتح النموذج الرئيسي داخله بشرط ان يكون النموذج الرئيسي غير منبثق DoCmd.ShowToolbar "ribbon", acToolbarNo

السلام عليكم اليك التعديل في المرفق 4.rar

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

السلام عليكم اخي الكريم هذا كود لاخفاء واظهار مربع النص استخدمه في عداد الوقت If Me.nuse.Visible = True Then Me.nuse.Visible = False Exit Sub End If If Me.nuse.Visible = False Then Me.nuse.Visible = True هناك كود اخر اقصر منه لكن لم اجده عندي

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

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

السلام عليكم اخي الكريم اذا كان هذا ما تريده فالحل في الارتساء