اذهب الي المحتوي
أوفيسنا

ابوخليل

أوفيسنا
  • Posts

    11,027
  • تاريخ الانضمام

  • Days Won

    171

Community Answers

  1. ابوخليل's post in السلام عليكم ابحث عن طريقه عند كتابة اى اسم يبداء بعبد يأخذ مسافه تلقائيه بدون استعلام was marked as the answer   
    جميل .. واذا الاسم عبدون هل سيفصله؟ .. عندنا عائلة اسمها العبدان 
  2. ابوخليل's post in مطلوب جمع معادلات في التقرير واظهار اجمالي ما سبق في كل صفحة was marked as the answer   
    تفضل :
    جمع كل صفحة / ومجموع ما قبله / والمجموع الكلي .
    اولا تم التجميع على مستوى الاعمدة ثم استخراج الاجمالي حسب المعادلة
    حقول التجميع تمت تغطيتها بحقول الاجمالي بحيث تختفي تحتها
    DataFarms.rar
  3. ابوخليل's post in استفستر بخصوص عدم تكرار مدخلات الا فى حالة تحقق شروط was marked as the answer   
    تفضل
    هي اربعة شروط ولم اتمكن من الجامها الا باستخدام استعلام
    1- البحث عن رقم الهاتف + الخدمة 
    2- النظر في حالة الخدمة ( وهنا لا اعتبار لهما اذا التاريخ اكبر من اليوم )
    3 - النظر في تاريخ الانهاء اذا اكبر من تاريخ اليوم 
    لو اكتفينا بحالة الخدمة ..لتم ضبط الشرط بسطر برمجي واحد فقط
    Example.rar
  4. ابوخليل's post in كيفية حساب الساعات الاضافية was marked as the answer   
    الخطأ في تصميم الجدول في التسميات
    التعديلات والاصلاح عندي يكون لها تبعات عندك 
    على كل حال .. ابشر
  5. ابوخليل's post in عند فتح التعديل لايفتح السجل المحدد was marked as the answer   
    تصدق حتى مع هذه الصور  لم افهم  بالضبط
    كل الصور تشير الى السجل كذا ... ومسألة الحقل ليس في قاموسك
    السجل عبارة عن سطر يحمل عدة حقول
    على كل حال وحسب مافهمت .. وحسب السهم الذي يشر الى الحقل الذي يحمل رقم 3
    فهمت التالي :
     بناء على المعرف الرئيسي .. افتح النموذج الثاني على السجل الذي حقل الكود فيه = 3
    DoCmd.OpenForm "tblTexts", acNormal, , "kod_alad5al=" & Me.kod_alad5al & " And LangCode=3" اذا غير ذلك زدني تفصيلا في الشرح
    سجل المحدد للتعديل2.rar
  6. ابوخليل's post in السلام عليكم اريد كود فتح النموذج كما هو موضح was marked as the answer   
    هذاالمرفق برنامج كامل لوحده .. ضعت فيه بين الوحدات النمطية والاكواد التابعة
    ---------------------------------------------------
    انظر : عملت لك تحديد لمكان الفورم حسب دقة شاشة الحاسب 
    الرقم المضروب بالدالة هو لدقة القرب او البعد عن حواف الشاشة ... يمكنك التجربة بانقاص الرقم او زيادته
    ----------------------------------------------
     
     
    playsound2.rar
  7. ابوخليل's post in ترقيم جديد للنموذج الفرعي was marked as the answer   
    سبب الخطأ ان قيمة مربع التحرير = صفر  وليس null
    جرب هذا
    =IIf([ItemCode]=0;Null;Nz(DCount("ItemCode";"SalesOrderDetailsT";"SaleID=" & [SaleID] & "AND SaleOrder <" & [SaleOrder]);0)+1)  
  8. ابوخليل's post in اريد عند اختيار مسار الصورة يتم نسخ الصورة إلى مجلد was marked as the answer   
    يصبح الكود هكذا
    Dim ons As String Dim typefld As String ons = [id_Flightpermits_lab] SourceFile = filepath_att typefld = Right(SourceFile, Len(SourceFile) - InStrRev(SourceFile, ".")) DestinationFile = CurrentProject.Path & "\image\" & ons & "." & typefld FileCopy SourceFile, DestinationFile [link_file] = DestinationFile MsgBox "تم النسخ بنجاح"  
    قاعدة2.rar
  9. ابوخليل's post in طلب فتح نموذج من خلال زر أمر بنموذج فرعى مع تغيير مصدر السجل فى النموذج وفتح السجل المطلوب was marked as the answer   
    يبدوا اني فهمت عليك الآن .. صحيح فهم السؤال نصف الاجابة
    شوف اعلنا عن اسم ياخذ اسم مصدر بيانات من النموذج الأول عند النقر على الزر .. ويكون هذ المعلن هو مصدر بيانات نموذج الملاحظات
    يمكنك تكرار سطر الاعلان عند حدث زر اي نموذج تريد
    Example3.accdb
  10. ابوخليل's post in طلب اخفاء الحقول الخالية في التقرير was marked as the answer   
    نصيحتي لك اذا تأخذ بها : ابق على تقريرك ، فأنا ارى لا مشكلة في وجود الحقول الفارغة او يوم الخميس
    لأن العملية سهلة وسلسة .. وخفيفة على البرنامج
    حاولت اطبق ما تفكر به وخرجت بنتيجة غير مرضية وتوقفت فقط في عرض النموذج فهو يعرض من اليسار  .. حاولت وحاولت ولكني لم اصل للحل
    المهم العملية تتم كالتالي :
    1- الاستعانة بجدول مؤقت يتم حذفه والحاقه عند كل عملية
    2 - عمل استعلام جدولي لترتيب العملية .. ثم الحاق البيانات في الجدول المؤقت
    3- صعب جدا عرض المادة والمعلم كما في النموذج .. فقمت بدمج المادة ومعلمها في حقل واحد
    4- تصميم تقرير مؤقت بواسطة الاكواد  يأخذ البيانات من الجدول المؤقت عند عملية التحديث
    5- ايضا التقرير المؤقت يتم حذفه عند كل عملية تحديث ، ولكنه يبقى قابل للعرض ما لم يتم التحديث
    عندما تفتح المثال وتجرب لا تشعر بكل ما ذكر اعلاه
    من اجل كل هذا  اعطيتك رأيي بان تبقى على تقريرك الخفيف المليح
     
    times25.rar
  11. ابوخليل's post in مساعده تغيير اللغه فى جميع النماذج عند اختيار لغه was marked as the answer   
    المعروف او المتعارف عليه في البرامج التي تدعم اكثر من لغة .. هو اختيار اللغة المراد عرض التسميات فيها ( فقط منسدلة وتختار اللغة الافتراضية )
    ويتبقى الرسائل المنبثقة والاشعارات وهذه ايضا لها عمل خاص منفصل او لنقل برمجة خاصة
    لتنفيذ هذه الفكرة ( ترجمة التسميات ) عليك تنفيذ العمل كالتالي :
    نموذج البداية يشتمل فقط  واكرر فقط  على مربع تحرير يتم اختيار اللغة منها ... او عمل ما يسمى صندوق خيارات (لكل لغة خيار ) بعدد اللغات الموجودة
    جدول يشتمل على اعمدة بعدد اللغات المطلوبة + ترقيم تلقائي يكون هو معرف السجل  .. وهذا انت عملته ولكني لم افهم ما الغرض من الاعمدة الأخرى
    الترقيم التلقائي هذا هو دليل النص ( العنوان) المطلوب ظهوره في حقل التسمية داخل النموذج
    يجب اعطاء كل حقل من حقول التسمية داخل النموذج رمزا يشير الى مكان وجود السجل من الجدول كالتالي :
    مثلا في جدولك السجل 11 يحمل اسم : (مسلسل ) .............  ففي النموذج وفي خصائص حقل التسمية المحدد /  لسان التبويب بيانات  / علامة (tag) > اكتب الرقم 11
    وهكذا نعمل مع جميع التسميات داخل النموذج  كل تسمية تأخذ علامة هي عبارة عن رقم السجل في الجدول
    بعد ذلك يأتي دور الجمل البرمجية والاكواد لتطبيق الفكرة
     
  12. ابوخليل's post in هل بالامكان جعل نموذج واحد فقط للمشتريات والمبيعات ورد الشراء والبيع was marked as the answer   
    انظر هنا
    ما تفكر به نفسه
  13. ابوخليل's post in منع الطباعة بشرط was marked as the answer   
    If IsNull(Me.mont) Then msgbox "معلومات غير مكتملة" Exit Sub Else DoCmd.OpenReport "table1", acViewPreview 'لعرض التقرير DoCmd.RunCommand acCmdPrint End If  
  14. ابوخليل's post in جعل النموذج مطاطي؟ was marked as the answer   
    انا اضفت هذه الأسطر فقط داخل الحدث
     

  15. ابوخليل's post in مشكل مع التواريخ was marked as the answer   
    المرفق 
    teste2.rar
  16. ابوخليل's post in كيف يمكن الجمع في التقرير على مستوى كل منطقة وعمل خلاصة تجميعة لجميع المناطق was marked as the answer   
    مشاركة مع اخوتي واحبتي
    اليك المرفق حيث تم تحقيق طلبك الأول
    اما بالنسبة لطلبك الثاني ، فانت بحاجة الى انشاء جدول جديد ( يبنى من نتيجة الاستعلام ) يشتمل على اربعة اعمدة تنقل اليه البيانات كالتالي :
    1- الموقع او المنطقة
    2- الفئة
    3- المبلغ
    4- الشهر
    وعلى اعتبار المناطق 3  والفئات 12 فسوف يشتمل الجدول على 36 سجل 
    هذا الجدول سيكون هو مصدر بياناتك لجدول عمليات الأرصدة
    ويمكنك  جعل هذا الجدول هو مكان صرف الحوافز  بدلا من جدول الارصدة .. فتضيف عمودا للمصروف وعمودا آخر للمتبقي
    hafez-4.rar
  17. ابوخليل's post in تجاهل الرقم غير الموجود فى واتساب was marked as the answer   
    الطلب الاول
    نضيف للكود بعد الذهاب لحقل البحث سطرين واحد لتحديد النص والثاني لحذفه
    Call SendKeys("^{a}", True) Sleep 500 Call SendKeys("{DEL}", True) اما الطلب الثاني فهو موجود ضمن المثال الأصلي هنا   في النموذج  SendWhatsMoreMsg
    sendwatsWebAll2.rar
  18. ابوخليل's post in تنسيق تقرير -تغيير مكان نص- was marked as the answer   
    اعمل تذييل لمقطع الاسم وضع التاريخ فيه
    انظر المثال
    base2.rar
  19. ابوخليل's post in عرض قائمة الطابعات was marked as the answer   
    عليكم السلام
    DoCmd.RunCommand acCmdPrint  
  20. ابوخليل's post in هل بالامكن الغاء رسائل الاكسس وجعلها نماذج فورم ماسج was marked as the answer   
    بارك الله فيك
    اولا : اكسس يحفظ تلقائي ولست بحاجة الى عمل زر للحفظ ، حتى لو عدلت على سجل سابق سوف يحفظ التعديل تلقائيا بدون اوامر
    لذا وضع زر للحفظ تحصيل حاصل
    ويوجد اجراءات اخرى غير الحذف مثل : الطباعة / استيراد وتصدير /  الحاق بيانات / تحديث / وغيرها من الاجراءات التي تستلزم الموافقة من عدمها
    لذا  يجب ان تكون الازرار في الرسالة (  موافق / الغاء )  لشمولها للجميع
    ايضا فورم الرسالة هذا يجب ان يكون شامل لجميع النماذج ( اي يعمل ويخدم جميع النماذج ) طبعا غير منطقي ان تخصص فورم رسالة لكل نموذج
    اذا وجدت الوقت الكافي ان شاء الله  سوف اعمل قالب لنموذج رسالة
     
    سبب الخطأ عندك ان فورم الرسالة غير منضم  .. فلا يوجد سجلات يحذفها
    فأنت بين امرين :
    اما ان تجعل فورم الرسالة يفتح على نفس مصدر النموذج وبالتحديد على السجل نفسه .. ويتم امر الحذف من فورم الرسالة
    واما ان تعمل وحدة نمطية للحذف في النموذج الرئيسي وتستدعيها من فورم الرسالة
  21. ابوخليل's post in تغيير بينات مصدر عنصر التحكم عند تغيير قيمة مربع سرد وتحرير was marked as the answer   
    تفضل
    لاحظ انك مخير  بالادخال في هذه الحقول
    الذي تدخل فيه البيانات هو الذي سيظهر معك في الجدول
    ملحوظة :
    عند اجراء تعديل على جدول اسبوعي سابق حتى لو تعديل حصة واحدة .. يجب ان تقوم بالحفظ ثم التحديث
    التحديث : هو عملية حذف للجدول بالكامل ثم اعادة الحاقه
     
     
    times23.rar
  22. ابوخليل's post in اريد مجموع على فورم الرئيسي was marked as the answer   
    Me.text31 = Nz(DSum("total", "conform_mdfo", "fatora=" & Me.fato))  
    sum2.rar
  23. ابوخليل's post in مشكلة بالرقم القومي was marked as the answer   
    الرقم القومي يجب ان يكون نوع الحقل نصي
    فائدة :
    اي ارقام لا يتم اجراء عمليات حسابية عليها مثل الرقم القومي او ارقام العناوين او الهاتف  الافضل يكون نوع الحقل نصي
  24. ابوخليل's post in عند عدم وجود سجلات للحذف تظهر رساله بعدم وجود سجلات للحذف was marked as the answer   
    وهذا تنبيه عند التراجع اذا لم يحدث تغيير
    On Error GoTo ErrHandler DoCmd.RunCommand acCmdUndo MsgBox "تم التراجع", vbOKOnly, "تنبيه" ErrHandler: If Err.Number = 2046 Then MsgBox "لا يوجد تغيير للتراجع", vbOKOnly, "تنبيه" End If  
    لايوجد سجل للحذف2.rar
  25. ابوخليل's post in بعد التحية ربط بين ثلاثة حقول في جدولين لمنع التكرار was marked as the answer   
    تفضل تعديل طفيف على الكود وعلى الحدث
    اتمنى ان يعمل عندك
    جمعية4.rar
×
×
  • اضف...

Important Information