ابوخليل
-
Posts
11,027 -
تاريخ الانضمام
-
Days Won
171
Community Answers
-
ابوخليل's post in السلام عليكم ابحث عن طريقه عند كتابة اى اسم يبداء بعبد يأخذ مسافه تلقائيه بدون استعلام was marked as the answer
جميل .. واذا الاسم عبدون هل سيفصله؟ .. عندنا عائلة اسمها العبدان
-
ابوخليل's post in مطلوب جمع معادلات في التقرير واظهار اجمالي ما سبق في كل صفحة was marked as the answer
تفضل :
جمع كل صفحة / ومجموع ما قبله / والمجموع الكلي .
اولا تم التجميع على مستوى الاعمدة ثم استخراج الاجمالي حسب المعادلة
حقول التجميع تمت تغطيتها بحقول الاجمالي بحيث تختفي تحتها
DataFarms.rar
-
ابوخليل's post in استفستر بخصوص عدم تكرار مدخلات الا فى حالة تحقق شروط was marked as the answer
تفضل
هي اربعة شروط ولم اتمكن من الجامها الا باستخدام استعلام
1- البحث عن رقم الهاتف + الخدمة
2- النظر في حالة الخدمة ( وهنا لا اعتبار لهما اذا التاريخ اكبر من اليوم )
3 - النظر في تاريخ الانهاء اذا اكبر من تاريخ اليوم
لو اكتفينا بحالة الخدمة ..لتم ضبط الشرط بسطر برمجي واحد فقط
Example.rar
-
ابوخليل's post in كيفية حساب الساعات الاضافية was marked as the answer
الخطأ في تصميم الجدول في التسميات
التعديلات والاصلاح عندي يكون لها تبعات عندك
على كل حال .. ابشر
-
ابوخليل's post in عند فتح التعديل لايفتح السجل المحدد was marked as the answer
تصدق حتى مع هذه الصور لم افهم بالضبط
كل الصور تشير الى السجل كذا ... ومسألة الحقل ليس في قاموسك
السجل عبارة عن سطر يحمل عدة حقول
على كل حال وحسب مافهمت .. وحسب السهم الذي يشر الى الحقل الذي يحمل رقم 3
فهمت التالي :
بناء على المعرف الرئيسي .. افتح النموذج الثاني على السجل الذي حقل الكود فيه = 3
DoCmd.OpenForm "tblTexts", acNormal, , "kod_alad5al=" & Me.kod_alad5al & " And LangCode=3" اذا غير ذلك زدني تفصيلا في الشرح
سجل المحدد للتعديل2.rar
-
ابوخليل's post in السلام عليكم اريد كود فتح النموذج كما هو موضح was marked as the answer
هذاالمرفق برنامج كامل لوحده .. ضعت فيه بين الوحدات النمطية والاكواد التابعة
---------------------------------------------------
انظر : عملت لك تحديد لمكان الفورم حسب دقة شاشة الحاسب
الرقم المضروب بالدالة هو لدقة القرب او البعد عن حواف الشاشة ... يمكنك التجربة بانقاص الرقم او زيادته
----------------------------------------------
playsound2.rar
-
ابوخليل's post in ترقيم جديد للنموذج الفرعي was marked as the answer
سبب الخطأ ان قيمة مربع التحرير = صفر وليس null
جرب هذا
=IIf([ItemCode]=0;Null;Nz(DCount("ItemCode";"SalesOrderDetailsT";"SaleID=" & [SaleID] & "AND SaleOrder <" & [SaleOrder]);0)+1)
-
ابوخليل'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
-
ابوخليل's post in طلب فتح نموذج من خلال زر أمر بنموذج فرعى مع تغيير مصدر السجل فى النموذج وفتح السجل المطلوب was marked as the answer
يبدوا اني فهمت عليك الآن .. صحيح فهم السؤال نصف الاجابة
شوف اعلنا عن اسم ياخذ اسم مصدر بيانات من النموذج الأول عند النقر على الزر .. ويكون هذ المعلن هو مصدر بيانات نموذج الملاحظات
يمكنك تكرار سطر الاعلان عند حدث زر اي نموذج تريد
Example3.accdb
-
ابوخليل's post in طلب اخفاء الحقول الخالية في التقرير was marked as the answer
نصيحتي لك اذا تأخذ بها : ابق على تقريرك ، فأنا ارى لا مشكلة في وجود الحقول الفارغة او يوم الخميس
لأن العملية سهلة وسلسة .. وخفيفة على البرنامج
حاولت اطبق ما تفكر به وخرجت بنتيجة غير مرضية وتوقفت فقط في عرض النموذج فهو يعرض من اليسار .. حاولت وحاولت ولكني لم اصل للحل
المهم العملية تتم كالتالي :
1- الاستعانة بجدول مؤقت يتم حذفه والحاقه عند كل عملية
2 - عمل استعلام جدولي لترتيب العملية .. ثم الحاق البيانات في الجدول المؤقت
3- صعب جدا عرض المادة والمعلم كما في النموذج .. فقمت بدمج المادة ومعلمها في حقل واحد
4- تصميم تقرير مؤقت بواسطة الاكواد يأخذ البيانات من الجدول المؤقت عند عملية التحديث
5- ايضا التقرير المؤقت يتم حذفه عند كل عملية تحديث ، ولكنه يبقى قابل للعرض ما لم يتم التحديث
عندما تفتح المثال وتجرب لا تشعر بكل ما ذكر اعلاه
من اجل كل هذا اعطيتك رأيي بان تبقى على تقريرك الخفيف المليح
times25.rar
-
ابوخليل's post in مساعده تغيير اللغه فى جميع النماذج عند اختيار لغه was marked as the answer
المعروف او المتعارف عليه في البرامج التي تدعم اكثر من لغة .. هو اختيار اللغة المراد عرض التسميات فيها ( فقط منسدلة وتختار اللغة الافتراضية )
ويتبقى الرسائل المنبثقة والاشعارات وهذه ايضا لها عمل خاص منفصل او لنقل برمجة خاصة
لتنفيذ هذه الفكرة ( ترجمة التسميات ) عليك تنفيذ العمل كالتالي :
نموذج البداية يشتمل فقط واكرر فقط على مربع تحرير يتم اختيار اللغة منها ... او عمل ما يسمى صندوق خيارات (لكل لغة خيار ) بعدد اللغات الموجودة
جدول يشتمل على اعمدة بعدد اللغات المطلوبة + ترقيم تلقائي يكون هو معرف السجل .. وهذا انت عملته ولكني لم افهم ما الغرض من الاعمدة الأخرى
الترقيم التلقائي هذا هو دليل النص ( العنوان) المطلوب ظهوره في حقل التسمية داخل النموذج
يجب اعطاء كل حقل من حقول التسمية داخل النموذج رمزا يشير الى مكان وجود السجل من الجدول كالتالي :
مثلا في جدولك السجل 11 يحمل اسم : (مسلسل ) ............. ففي النموذج وفي خصائص حقل التسمية المحدد / لسان التبويب بيانات / علامة (tag) > اكتب الرقم 11
وهكذا نعمل مع جميع التسميات داخل النموذج كل تسمية تأخذ علامة هي عبارة عن رقم السجل في الجدول
بعد ذلك يأتي دور الجمل البرمجية والاكواد لتطبيق الفكرة
-
ابوخليل's post in هل بالامكان جعل نموذج واحد فقط للمشتريات والمبيعات ورد الشراء والبيع was marked as the answer
انظر هنا
ما تفكر به نفسه
-
ابوخليل'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
-
-
-
ابوخليل's post in كيف يمكن الجمع في التقرير على مستوى كل منطقة وعمل خلاصة تجميعة لجميع المناطق was marked as the answer
مشاركة مع اخوتي واحبتي
اليك المرفق حيث تم تحقيق طلبك الأول
اما بالنسبة لطلبك الثاني ، فانت بحاجة الى انشاء جدول جديد ( يبنى من نتيجة الاستعلام ) يشتمل على اربعة اعمدة تنقل اليه البيانات كالتالي :
1- الموقع او المنطقة
2- الفئة
3- المبلغ
4- الشهر
وعلى اعتبار المناطق 3 والفئات 12 فسوف يشتمل الجدول على 36 سجل
هذا الجدول سيكون هو مصدر بياناتك لجدول عمليات الأرصدة
ويمكنك جعل هذا الجدول هو مكان صرف الحوافز بدلا من جدول الارصدة .. فتضيف عمودا للمصروف وعمودا آخر للمتبقي
hafez-4.rar
-
ابوخليل's post in تجاهل الرقم غير الموجود فى واتساب was marked as the answer
الطلب الاول
نضيف للكود بعد الذهاب لحقل البحث سطرين واحد لتحديد النص والثاني لحذفه
Call SendKeys("^{a}", True) Sleep 500 Call SendKeys("{DEL}", True) اما الطلب الثاني فهو موجود ضمن المثال الأصلي هنا في النموذج SendWhatsMoreMsg
sendwatsWebAll2.rar
-
ابوخليل's post in تنسيق تقرير -تغيير مكان نص- was marked as the answer
اعمل تذييل لمقطع الاسم وضع التاريخ فيه
انظر المثال
base2.rar
-
ابوخليل's post in عرض قائمة الطابعات was marked as the answer
عليكم السلام
DoCmd.RunCommand acCmdPrint
-
ابوخليل's post in هل بالامكن الغاء رسائل الاكسس وجعلها نماذج فورم ماسج was marked as the answer
بارك الله فيك
اولا : اكسس يحفظ تلقائي ولست بحاجة الى عمل زر للحفظ ، حتى لو عدلت على سجل سابق سوف يحفظ التعديل تلقائيا بدون اوامر
لذا وضع زر للحفظ تحصيل حاصل
ويوجد اجراءات اخرى غير الحذف مثل : الطباعة / استيراد وتصدير / الحاق بيانات / تحديث / وغيرها من الاجراءات التي تستلزم الموافقة من عدمها
لذا يجب ان تكون الازرار في الرسالة ( موافق / الغاء ) لشمولها للجميع
ايضا فورم الرسالة هذا يجب ان يكون شامل لجميع النماذج ( اي يعمل ويخدم جميع النماذج ) طبعا غير منطقي ان تخصص فورم رسالة لكل نموذج
اذا وجدت الوقت الكافي ان شاء الله سوف اعمل قالب لنموذج رسالة
سبب الخطأ عندك ان فورم الرسالة غير منضم .. فلا يوجد سجلات يحذفها
فأنت بين امرين :
اما ان تجعل فورم الرسالة يفتح على نفس مصدر النموذج وبالتحديد على السجل نفسه .. ويتم امر الحذف من فورم الرسالة
واما ان تعمل وحدة نمطية للحذف في النموذج الرئيسي وتستدعيها من فورم الرسالة
-
ابوخليل's post in تغيير بينات مصدر عنصر التحكم عند تغيير قيمة مربع سرد وتحرير was marked as the answer
تفضل
لاحظ انك مخير بالادخال في هذه الحقول
الذي تدخل فيه البيانات هو الذي سيظهر معك في الجدول
ملحوظة :
عند اجراء تعديل على جدول اسبوعي سابق حتى لو تعديل حصة واحدة .. يجب ان تقوم بالحفظ ثم التحديث
التحديث : هو عملية حذف للجدول بالكامل ثم اعادة الحاقه
times23.rar
-
ابوخليل's post in اريد مجموع على فورم الرئيسي was marked as the answer
Me.text31 = Nz(DSum("total", "conform_mdfo", "fatora=" & Me.fato))
sum2.rar
-
ابوخليل's post in مشكلة بالرقم القومي was marked as the answer
الرقم القومي يجب ان يكون نوع الحقل نصي
فائدة :
اي ارقام لا يتم اجراء عمليات حسابية عليها مثل الرقم القومي او ارقام العناوين او الهاتف الافضل يكون نوع الحقل نصي
-
ابوخليل'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
-
ابوخليل's post in بعد التحية ربط بين ثلاثة حقول في جدولين لمنع التكرار was marked as the answer
تفضل تعديل طفيف على الكود وعلى الحدث
اتمنى ان يعمل عندك
جمعية4.rar