بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
11,720 -
تاريخ الانضمام
-
Days Won
197
Community Answers
-
ابوخليل's post in كود تحديث حقل بحقل اخر داخل النموزج بشرط كل فاتورة يتم تحديثها منفصلة was marked as the answer
ان تبدأ بعمل مشروعك من جديد افضل الف مرة من تطويره
تفضل هذا طلبك :
update us prices4.rar
-
ابوخليل's post in خطأ #Name? عند استخدام دالة DLookUp was marked as the answer
تفضل مع لمسة ان لم يجد شيئا بدلا من الصفر عبارة : لا يوجد
text1=NZ(DLookUp("[UserName]","[tblUser]","[UserName] ='"& [Forms]![frmMain]![UserName] &"'"),"لا يوجد")
223.rar
-
ابوخليل's post in طلب تعديل على سكربت خفض أمان أكسس was marked as the answer
استبدلت ملفك بآخر تنفيذي
سيشتغل الملف ويقوم بتخفيض الأمان عند فتح البرنامج
وان اردت التخفيض قبل فتح البرنامج فقط انقر مزدوجا على الملف التنفيذي سيقوم بالمهمة بشكل مخفي لن تشعر به
jj2.rar
-
ابوخليل's post in عمل تسلسل صفحات في التقرير was marked as the answer
اعمل حقل نصي غير منضم في رأس الصفحة
الصق هذا الكود في مصدر بياناته
="قسم:" & [Page]+39 ستلاحظ ان الصفحة الاولى = 40 والثانية 41 وهكذا ...
اذا اردت الترقيم من 1 احذف علامة + والرقم الذي بعدها
اعتقد الفكرة واضحة
-
ابوخليل's post in مساعدة في تعديل كود ارسال الى واتساب was marked as the answer
هذا رابط لموضوع للواتساب ويب .. حاول ان تطلع على المشاركات والطلبات
ونزل المرفق الذي اسمه sendwatsWebAll
ويحتوي على ثلاث نماذج كلها للارسال
وطلبك ستجده في النموذج الذي اسمه SendWhatsMoreMsg
-
ابوخليل's post in هل يمكن ربط التاريخ الميلادي بالهجري بهذه الطريقة ؟ was marked as the answer
تفضل
Dim cal As Integer Dim r As Date Dim i As String cal = Calendar Calendar = 1 r = CDate(hijri.Text) Calendar = 0 i = CStr(r) ymd = Format(i, "YYYY/MM/DD") Calendar = cal
التاريخ2.accdb
-
ابوخليل's post in السلام عليكم هل بالامكان تفادى خطاء مطلوب سجل مرتبط اكسس was marked as the answer
اذا كل جدول فرعي يعتمد في بياناته على ما قبله فأنت ملزم بالطريقة 1 ... ستظهر لك هذه الحاجة عند تصميم التقارير
طريقتي في مثل (تصميمك) هو حذف العلاقات بين الجداول ، واعتمد في ادراج المعرف على : ( مربعات التحرير لأضمن عدم الخروج عن النص ) ، حسب التصميم وعلاقة كل جدول بالآخر
وفي التقارير تكون العلاقات داخل الاستعلام
-
ابوخليل's post in جدول الحضور والأنصراف اليومي للموظفين- حساب التأخرات was marked as the answer
تفضل
BASET5.rar
-
ابوخليل's post in طلب مساعدة فى عمل تقرير بارصدة الدين خلال فترات was marked as the answer
انا طبقتها على الجدول ..
كود تجريبي صغير ينفذ الفكرة اعلاه .. يمكن تطويره
GeneralTest2.rar
-
ابوخليل's post in تعديل واضافة كود عمل ماسح ضوئي مع برنامج (IrfanView) was marked as the answer
كان الخلل في قراءة رقم الكتاب
هذه تحدث احيانا وليست على اطلاقها .. وهي ان الكود لا يقرأ قيمة الحقل الا مع التركيز عليه
لذا اخذت بالاحتياط
وتم التحايل على فرق الوقت الذي تأخذه عملية المسح بين ملف وآخر ، بالاستعانة بعداد النموذج بدلا من sleep او wait
وهذه هي الجمل البرمجية كاملة ...
Option Compare Database Option Explicit Dim i As Integer Dim mypath As String '--------------------------------------------------------------------------------- Private Sub Form_Timer() Me.Refresh If funDirFile = 0 Then If i = 0 Then Me.bookNumber.SetFocus Shell ("c:\Program Files (x86)\irfanview\i_view32.exe /batchscan=(" & Me.bookNumber.Value & ",,,,," & mypath & " ,pdf,0) /scanhidden") i = 1 End If Else Me.TimerInterval = 0 End If Call Form_Current End Sub '---------------------------------------------------------------------- Private Sub scanpdf_Click() i = 0 Dim strFile As String, DirFile As String Me.bookNumber.SetFocus strFile = Trim(bookNumber.Value) & ".pdf" mypath = Application.CurrentProject.Path & "\My_Archive\Import\My_pdf\" DirFile = Dir(Application.CurrentProject.Path & "\My_Archive\Import\My_pdf\" & strFile) Me.TimerInterval = 3000 End Sub '--------------------------------------------------------------------------- Function funDirFile() Dim strFile As String, DirFile As String Me.bookNumber.SetFocus strFile = bookNumber.Value & ".pdf" DirFile = Application.CurrentProject.Path & "\My_Archive\Import\My_pdf\" & strFile funDirFile = Len(Dir(DirFile)) End Function '------------------------------------------------------------------------------------ Private Sub Form_Current() Dim sMyFileName As String sMyFileName = Application.CurrentProject.Path & "\My_Archive\Import\My_pdf\" & Trim(bookNumber.Value) & ".pdf" WebBrowser1.Navigate (sMyFileName) Me.Refresh End Sub
test6.rar
-
ابوخليل's post in عند غلق النموذج اعطاء رسالة بان الحقل الاساسي فارغ was marked as the answer
نيابة عن اخي خليفة
SavRefe as integr الموجود في الوحدة النمطية زائد لا يعمل والاستاذ خليفة غفل عن حذفه
يمكنك حذف الوحدة النمطية فهي زائدة
المتغير SavRef as integr داخل محرر النموذج هو الذي يعمل
لاحظ الفرق بين الكلمتين : حرف e
وهو على اسمه متغير حسب الحاجة .. تتبعه في الاحداث داخل محرر النموذج ،،، كل حدث اعطيناه قيمة مختلفة من اجل ضبط العملية
-
ابوخليل's post in سؤال عن نظام عروض بيع في الاكسس was marked as the answer
اخي الكريم
احب اساعدك بطريقة اكاديمية
البرمجة تتم تنفيذا لتصور عملية او فكرة محددة
فانت هنا تريد ان تمنح الزبون قطعة مجانية مقابل شراء قطعتين ، واحيانا تمنح قطعة مقابل قطعة ، واحيانا قطعة مقابل 3 او 4 او 5 .... الخ
ومن اجل تكون العملية مرنة عند البيع وعند الحسابات يلزم وضع آلية وتحكم لهذا الإجراء
اسهل واقرب آلية هي :
في جدول الاصناف :
عمل حقل تضع فيه نسبة محددة امام الصنف المستهدف ، يتم تحديثه او حذفه حسب الحال
عمل حقل آخر للحد الأدنى لعدد القطع المشتراه
ما زاد عن ذلك يكون السعر تبعا للنسبة ..
في مثالك اذا اشترى ثلاث سيدفع قيمة اثنتين واذا اشترى 6 سيدفع قيمة اربع
اذا اشترى 5 او 7 فالدفع سيكون حسب النسبة
وبهذه الطريقة تكون الأمور دقيقة وواضحة امام مدقق الحسابات
-
ابوخليل's post in تعديل كود حفظ مسار الصور من الماسح الضوئي (سكانر) was marked as the answer
السلام عليكم
التعديل تم كالتالي :
1- وجدت خلل غير ملاحظ وهو تسمية متغير بنفس اسم حقل الاسم ... وهنا تظهر فائدة Option Explicit في رأس المحرر
2- حذفت جميع ما يخص انشاء المجلدات وحذفها ، واذا اردنا حذف الملف وبياناته التي في الجدول فأرى من الأفضل تخصيص زر خاص بها
3- المشكلة الحقيقية كانت في ادخال مجلد قاعدة البيانات ضمن المسار .. فقمت باستبعاده عن المسار
اخيرا ازلت جميع المسافات في تسميات المجلدات .. للتنبيه فيما لو نقلت القاعدة بجانب مجلداتك
Newfolder.rar
-
ابوخليل's post in استفسار عن تقسيم الجداول was marked as the answer
مشاركة مع اخي قاسم
باختصار :
البيانات الثابتة في جدول ( الثابتة هي التي لا تتغير على الأقل خلال سنة مالية )
البيانات المتغيرة في جدول ( وهي التي تتغير كل شهر او كل فترة )
العلاقة التي تربط بين الجدولين هو حقل الرقم الوظيفي .
كما اشار الاستاذ قاسم ابتعد عن الحقول المحسوبة .. فالافضل ان المجاميع تتم في الاستعلام
في الاستعلام يتم ادراج البيانات المطلوبة من الجدولين ويتم الجمع
هذا الاستعلام سيكون هو مصدر التقرير (كشف الراتب )
-
ابوخليل's post in استعلام عن اليوم والحصة was marked as the answer
مشاركة مع اخوتي ..
تم تحقيق الفكرة مع مراعاة تغير نظام الحضور ( الشتوي / الصيفي)
Public Function funTestTimes() On Error GoTo err_idt Dim idt As String idt = DLookup("[hour_no]", "[Ttime]", "[time_from] <=#" & Time() & "# And [time_to] >=#" & Time() & "# ") funTestTimes = idt err_exit: Exit Function err_idt: If idt = "" Then MsgBox "لا يوجد حصص في الوقت الحالي" Resume err_exit End If End Function
TT2.rar
-
ابوخليل's post in شكل تجميلى للشجرة was marked as the answer
يجب تغيير اسم الصورة داخل الكود
انظر الى اسماء الصور .. خاصة الحالية ، وانظر مكانها من الكود
غير الاسم (اللي هو المفتاح في الخصائص) حسب الاختيار
-
ابوخليل's post in مطلوب تعداد خاص لقيم مختلفة ومتنوعة من خلال قائمة في نموذج was marked as the answer
انا غيرت في المسميات
في مثالك كانت الاسماء :
نوع CRJ CRI BOEING BOENIG AIRBUS AIRBUS CRJ BOING ARBUS ويبدوا ان فيها اخطاء املائية في الاسماء الثلاث .. وانت قلت : ( انها ثلاث انواع ولكن الارقام تختلف)
لذا قمت بتصحيح الاسماء
لاحظ BOEING كلها مختلفة عن بعضها .. والبقية مثلها
اذا هذه الاخطاء الاملائية موجودة عندك في الأصل وتريد تطبيق فكرتك فيلزمك التالي :
عمل حقل يحمل صفة محددة واحدة لهذه الاسماء مثلا .. BOEING ثلاث اسماء مختلفة يجب ان تضع امامها رقما او نصا واحدا .. اي انك تجعلها متشابهه في الصفة ولنقل تضع امام كل واحدة رقم 1
وهكذا تعمل مع بقية الاسماء ... ويكون تطبيق الكود على هذه الصفة
كيف تعرف ان الاسماء مختلفة ؟ اعمل استعلام تجميعي لحقل الاسم Group By من جدول TBL_T_TYPE_PLANE
-
ابوخليل's post in السلام عليكم ابحث عن طريقه عند كتابة اى اسم يبداء بعبد يأخذ مسافه تلقائيه بدون استعلام was marked as the answer
وهذا حل مشابه لما تفضل به اخوي موسى مع بعض الاضافات
Private Sub txt1_AfterUpdate() Dim i As String Me.txt1.SetFocus i = Me.txt1.Value i = Replace(i, "عبد", "عبد" & " ") Me.txt1 = i End Sub
الاسماء المركبة2.accdb
-
ابوخليل's post in هل من الممكن التعديل فى الترقيم التلقائي؟ ارجو المساعدة was marked as the answer
اهلا ابا طارق
لاحظت انك موضوعك هذا مكرر عن موضوعك السابق وكان الأولى ان تتابع هناك
على كل حال خذ مني هذه الفوائد :
1- الترقيم التلقائي هو ملك للجدول ولأكسس وليس للمبرمج .. ولا ينصح العبث به .. وغالبا يستخدم كمفتاح له ، ومن هذا الرقم يمكننا اكتشاف عدد السجلات المحذوفة
1- الترقيم التلقائي يصعب تغييره او التعديل عليه الا بكود خاص ونلجأ اليه غالبا عند ادراج ارقام مفقودة .
الخلل عندك من البداية حيث جعلت ترقيم الجدول التلقائي رقما للفاتورة .
الارقام لا تعني شيئا بجانب البيانات المصاحبة ..
اذا غرضك من هذا التعديل هو ترتيب العرض فأرى انه يمكنك معالجة وضعك باضافة حقل ترقيم بجانب رقم الفاتورة وتعمل فيه الترتيب الذي تريد ثم تستخدم الفرز والترتيب بناء على هذا الرقم
-
ابوخليل'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