نجوم المشاركات

وعليكم السلام 🙂 معظم الوقت هناك بدائل في الاكسس (وليس دائما) ، عن معادلات الاكسل 🙂 فالافضل ان تفهم عمل دالة الاكسل ، ثم تعمل على البديل في الاكسس ، كما قال اخي حسنين 🙂 اما اذا كنت تعمل على الاكسس ، ولكن تريد ان تستعمل دالة/مكتبة الاكسل ، فنعم ممكن: 1. اختيار مكتبة الاكسل / مثلا: . 2. ثم اجعل معادلتك التي في الاكسل هنا ، مثل: MsgBox Excel.WorksheetFunction.SumProduct(array1, array2, array3) . وبهذه البساطة 🙂 وهنا اخونا @رمهان وضع مثال لدالة اخرى: . جعفر

تمت إضافة دالة الخطأ إلى المعادلة vlookup&choose .vba (1).xlsm

اخي رضوان ، ذهبت الى موقع الكلية ووجدت هناك استمارة اخرى غير التي ارفقتها انت ، فانزلتها وحولت الصفحات الى صورتين (بالاضافة الى صورتين الملف الاصلي الذي ارفقته انت) 🙂 الطريقة التي عملها لك اخي حسين طويله نوعا ما (ولكن تستطيع تكبير الصفحة وتضع حقول الكلمات بطريقة اسهل) ، ويمكنك ان تستعمل الصورتين في تقرير الاكسس كما ارفقته لك هنا (واحذف التقرير الذي لا تريده) ، وهذه هي الطريقة التي اقترحها عليك اخونا حسنين 🙂 الميزة في تقرير الاكسس ، هو انك تعرف كيف تتعامل مع الحقول وتسمياتها ، وتضبيط مكانها ، والتحكم بالسجلات 🙂 جعفر 1388.Fill_pdf_image.accdb.zip

تفضل قرعة.xlsm

ربما يكون المرفق ما تريد قمت ببعض الاضافة في الجدول وذلك لمنع تكرار العملية في نفس اليوم الكود يعمل عند فتح الملف قرعة.xlsm

تفضل أخي آمل أن يكون هذا هو المطلوب vlookup&choose .vba (1).xlsm

كان فيه خطأ في الكود و تم التعديل اسم الصورة رقم الهوية + الوقت الحالي بيانات.accdb

تفضل هذي الفكرة nabil2322.accdb

اتفضل هذا التعديل و لا تنسى اذا تضيف المكتبة للبرنامج الخاص فيك pdf3.zip

استبدل الكود الخاص بأزرار التحديث بالكود التالي On Error Resume Next Dim db As DAO.Database Dim rs As DAO.Recordset Dim x, z As String Set rs = CurrentDb.OpenRecordset("Table") If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) x = Right(rs.Fields("PicPath2"), Len(rs.Fields("PicPath2")) - InStrRev(rs.Fields("PicPath2"), "\")) rs.Edit rs!PicPath2 = Application.CurrentProject.Path & "\" & "Pictures" & "\" & x rs.Update rs.MoveNext Wend End If rs.Close Set rs = Nothing DoCmd.Requery

اعتقد ان هذا الاجراء من اصدار 2010 و اكثر غير متوفر فعلا كنت استخدمها في اصدار 2007

اخوي امير ، هل جربت تعمل البرنامج بالطريقة اللي اقترحتها عليك: جعفر

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

جزاك الله خيرا يا ابا جودي وباذن الله هذا العمل الجميل في ميزان اعمالك اذا تسمح لي بمداخله بسيطة متعلقة بتمرير قيمة في امر فتح نموذج عن طريق OpenArgs في المثال الذي ارفقته اخي محمد 👇 DoCmd.OpenForm strFormName$, acNormal, , , , OpenArgs:=Time() وطالما صرحنا بـ OpenArgs فلا داعي لـ ,,,, ويمكن كتابة الكود هكذا 👇 DoCmd.OpenForm strFormName$, acNormal, OpenArgs:=Time() ولا يقتصر الامر على هذه الحالة فعند التصريح دائما يمكن تجاوز البارامترات مثال اخر لاستخدام معيار نصي في امر فتح نموذج DoCmd.OpenForm "FreaderL", , , "[x]='" & [y] & "'" يمكن التصريح بالشرط ليكون DoCmd.OpenForm "FreaderL", WhereCondition:="[x]='" & [y] & "'" اضافة الى العديد من الاختصار في الاوامر حيث ان لكل امر قيمة رقمية تغني عن كتابة الامر بشكل كامل مثال لبعض الاوامر DoCmd.RunCommand acCmdDatabaseSplitter = DoCmd.RunCommand 520 ----------------- DoCmd.RunCommand acCmdDeleteRecord = DoCmd.RunCommand 223 ------------------ DoCmd.RunCommand acCmdExportExcel = DoCmd.RunCommand 556 وكذلك لانواع الكائنات فيمكن التصريح بنوع الكائن ويمكن الاختصار بوضع القيمة الرقمية له مثال 👇 If ctli.ControlType = aclabel Then يمكن كتابته هكذا 👇 If ctli.ControlType = 100 Then وغيرها الكثير من الاختصارات مما لايتسع الوقت لذكره تحياتي وتقديري لاخي واستاذي محمد عصام

السؤال للأخ ha98 وهو:

اعزائي رواد المنتدى الفاضل اقدم لكم فكرة وطريقة في تحويل التاريخ الميلادي الى تاريخ ام القرى وهو الى حد ما التاريخ الهجري . وذلك باستخدام مكتبات الاكسل ! كما انه وعد مني للاخ والأستاذ أبو خليل وفي احد المناقشات وجب على الوفاء به ! وقد كانت هذه الفكرة طرحتها في احد المنتديات الشقيقة ولكن بدون مثال او تنفيذ . اترككم مع المثال املا الاستفادة منه وطرح آراؤكم ومقترحاتكم البناءة ! لكم خالص تحياتي Private Sub أمر4_Click() ''رمهان '' اوفيسنا ''abc_2_me@hotmail.com '' هدية للاخ ابو خليل Set xl = CreateObject("Excel.Sheet") xl.Application.Range("A1").Value = CDate(t2) xl.Application.Range("A1").NumberFormat = "[$-1170000]B2yyyy-mm-dd;@" t1 = xl.Application.Range("A1").Text xl.Application.Quit Set xl = Nothing End Sub رمهان - ام القرى.rar

السلام عليكم ورحمة الله وبركاته :- الطريقة التقليدية لعرض بيانات عميل مثلا ان نكتب في الاستعلام تحت رقم العميل بين قوسين اكتب رقم العميل ثم نربطه بالتقرير وعند فتح التقرير تظهر لنا رسالة ادخال قيمة معلمة ثم نضع رقم العميل وتظهر لنا البيانات ولكن لا نستطيع تغيير شكل هذه الرساله فما رأيك لو انك عملت نموذج (FORM) ووضعت فيه مربع فارغ وغيرت الوانه بنفسك وخصائصه ثم عند فتح التقرير يخرج لك هذا النموذج الصغير مكتوب فيه اكتب رقم العميل المراد البحث عنه فتتكتب رقم العميل ثم تظغط على OK ليفتح لك التقرير الا تبدو هذه الطريه اجمل اريد ان اشرح موضوعي بإستخدام المثال التالي :- لدي قاعدة بيانات بها معلومات عن العملاء احمد رقمه 1 محمد رقمه 2 سالم رقمه 3 واريد عرض بيانات محمد فقط فإن علي القيام بالآتي :- اولا : انشاء نموذج وليكن اسمه (تحديد بيانات عميل) ثانيا :- إنشاء استعلام ثالثاا : اشاء تقرير رابعا:انشاء وحدة نمطية في النموذج نضع تسمية ( لإعطاء بيانات عن العميل اكتب الرقم ) نضع مربع نص ونسميه رقم العميل افتح خصائص النموذج وفي تبويب "غير ذلك" امام خاصية منبثق حرر الى نعم نضع زر امر ونسميه (عرض ) ونفتح خصائص زر الامر وفي التبويب حدث امام الخاصية عند النقر انقر على انشاء حدث ثم اكتب بين السطرين Me.Visible = False اعمل زر آخر وسمه(الغاء) وفي خصائصه في حدث عند النقر اكتب الامر DOCMD.CLOSE وفي خصائص النموذج تحت التبويب حدث ننقر انشاء حدث عند الفتح ونكتب بين السطرين Me.Caption = Me.OpenArgs نتجه الآن الى الإستعلام ةفي عرض التصميم نكتب تحت رقم العميل عبارة SQL هذه [forms]![تحديد بيانات عميل]![رقم العميل] نتجه الآن الى التقرير افتح خصائص التقرير وفي التبويب حدث انقر امام اجراء حدث ستفتح لك الآن نافذة فيجوال بيسك اكتب بين السطرين : Private Sub Report_Open(Cancel As Integer END SUB الكود التالي : DoCmd.OpenForm "تحديد بيانات عميل", , , , , acDialog, "تحديد بيانات عميل" If Not IsLoaded("تحديد بيانات عميل") Then Cancel = True End If ملاحظة تبدو كتابة الكود معكوسة لذا ارجو نسخها ومن ثم لصقها في نافذة الكود في الاكسس وسوف تظهر انشاء الله بالشكل الطبيعي) اتجه الآن الى الوحدة النمطية وقم بنسخ ثم لصق الكود التالي:- Option Compare Database Option Explicit Function IsLoaded(ByVal strFormName As String) As Integer ' Returns True if the specified form is open in Form view or Datasheet view. Const conObjStateClosed = 0 Const conDesignView = 0 If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then If Forms(strFormName).CurrentView <> conDesignView Then IsLoaded = True End If End If End Function وعند طلبك الإستفسار عن عميل وهو غير مسجل لديك يتم عرض رسالة تقول بانه لا توجد بيانات لهذا العميل لعمل ذلك اتبع الآتي : افتح خصائص التقرير : في التبويب حدث وامام خاصية عند عدم وجود بيانات انقر انشاء حدث في نافذة الكود بين السطرين :- Private Sub Report_NoData(Cancel As Integer) End Sub انسخ ثم الصق الامر التالي MsgBox "لا توجد بيانات للعميل المراد البحث عنه تأكد من صحة كتابة الرقم " Cancel = True اعذروني على هذه الإطالة وكنت اريد ان ارفق مثال يوضح ما سبق ولكن لم اجد خاصية ارفاق ملف . إذا اعجبكم هذا الموضوع سوف نتابع انشاء الله كيفية عرض البيانات خلال فترة زمنية يعني مثلا عرض تفاصيل فاتورة العميل من الفترة حتى الفترة . وشكرا لكم .

السلام عليكم لدي نموذج , أريد أن يرسل لي رسالة عند تعديل أي قيمة فيه يخبرني بأن قيمة الحقل [ ] قد تغيرت فهل تريد حفظ التعديلات أو لا . فكرت في حل ذلك باحدى طريقتين : أولا : أن أضع تعليمة لحدث on change لكل حقل بحيث عند تغيير أي قيمة فيه يطلب مني تأكيد حفظ التغير أم لا , و اذا لم يتم تأكيد الحفظ يعمل text.oldvalue و لكن هذه الطريقة ربما فيها ركاكة و تعقيد ثانيا : وضع التعليمة عند حدث after update للنموذج , و لكن في هذه الحالة أحتاج الى مايلي : 1-في حال عدم الرغبة في حفظ التعديل , هل التعليمة هي : record.undo 2-أريد أن يخبرني عن الحقل الذي تم تفيير قيمته , كيف ؟ 3-حدث after update يعمل أيضا في حالة اضافة سجل جديد , فكيف يمكن حصر اعطاء التعليمة بالتغيير فقط , حيث لم أجد حدث اسمه form_ change

أستاتذتي : ممكن كود لعمل فورمات للمحركات الموجودة سواء a/c/d ثم رسالة بعد انهاء التهيئة ؟

لدي برنامج للموظفين به نماذج خطابات فمجرد ان اضع رقم الموظف يتم عمل الخطاب في حقل نص الخطاب والمشكلة انه عند ما اردت عمل الخطاب بنص ذو اسطر متساوية كما في الورد مثال (انسخ النص التالي وضعه على برنامج الورد ثم اختر اداة المحاذاة justify او ظبط سوف يظهر لك النص اسطر متساوية) تشهد ادارة الشركة بان الموظف فلان الفلاني قد عمل لديها من الفترة 01 /07 /2003 الى الفترة 01/04/2005 وقد كان من تبايسب بسيابتسي باسيبت ستسيابتبا بايستبايستباسي وقد منح هذهكذتهتبسينب ليبلت لتبيل لتبين بين لب لبيلل بييليبتسيبنبسيب يبيسب يسبيسبيسبيسبييبيسبيسبب يسبمسيتبنم سي.وقد منح هذه الشهادة بناء على طلبه. لا استطيع عمل ذلك بل لا يوجد غير خيارات محاذاة لليمين و محاذاة لليسار وتوسيط اما الخيار justify او ظبط فغير موجود هل يمكن عمل كود لذلك ام ان هناك طريقة اخرى.

بسم الله الرحمن الرحيم الى السادة اصحاب هذا المنتدىوالسادة المشرفين : تحية طيبة وبعد: جزاكم الله خيراً على هذا المنتدى الرائع والمفيد جداً ..جداً .. جداً .. جداً اطلب منكم المساحدة في موضوع الاستعلام في الاكسس وذلك من اجل ان تظهر رسالة لك قبل الدخول الى الاستعلام وذلك من اجل ادخال القيمة المطلوبة لفتحها وذلك بوضع قوسين في الخانة المطلوبة في الاستعلام والقوسين هما ---- [ ......] ------- فمن خلالهما يمكنك وضع قيمة ومن ثم بمجرد دخولك الاستعلام يرسل لك رسالة يطلب منك ان تدخل القيمة فمثلاً : ان كانت الخانة خانة مدن - فبمجرد كتابة دمشق يظهر لك كل بيانات التي فيها دمشق .....الخ لكن السؤال هو !!! ماذا افعل ان كانت الخانة ( شيك بوكس ) وهي التي تنقر عليها بالماوس وتفعلها ويضع في الصندوق اشارة صح بعد النقر عليها بالماوس فبمجرد ان تدخل الرسالة المطلوبة مع القوسين وتخرج بع التخزين وتفتح الاستعلام من جديد فيطلب منك ادخال البيان المطلوب هنا الســــــــــــــــــــــــــــــــــــــــــؤال:::: ماذا نفعل لا يمكن ادخال قيمة تناسب صندوق التفعيل ماذا افعل ولكم الشكر

لدي نموذج منبثق ويوجد علية زر امر طباعة ولكن عند الضغط على زر الطباعة لا يضهر التقرير في المقدمة بل يضهر في الخلف . مع الاكسيس 2000 مع الشكلر الجزيل

لتحديد ظهور بياناتك في التقارير خلال فترة زمنية اتبع الآتي: أولا : نفرض ان لدينا عملاء قمنا بإدخال حركات الوارد منهم تطبيق نفس الخطوات الواردة في موضوعي السابق (الاستعلامات والتحكم في ظهور البيانات في التقارير) يختلف في النموذج والإستعلام وهذا ما سأشرحه هنا 1- النموذج اعمل نموذج جديد في خصائص النموذج وفي التبويب "غير ذلك" حرر الخاصية منبثق الى نعم ضع تسمية في النموذج واكتب فيها عرض حركات العملاء من الفترة ثم ضع مربع نص وافتح خصائصه واجعل اسمه التاريخ الافتتاحي ثم ضع تسمية في النموذج واكتب فيه الى الفترة ثم ضع مربع نص آخر امام التسمية واجعل اسمه التاريخ الختامي - اجعل اسم النموذج هو عرض حركات العملاء خلال فترة زمنية في خصائص النموذج الخاصية عند الفتح انقر انشاء الحدث ثم اكتب الكود التالي: Me.Caption = Me.OpenArgs ضع كذلك في النموذج زر عرض وزر الغاء في الزر عرض اكتب الكود Me.Visible = False وفي الزر إلغاء اكتب الكود DoCmd.Close الآن اتجه الى الاإستعلام افتح التصميم للإستعلام وتحت حقل تاريخ الحركة (يراعى ان يكون نوع البيانات للحقل تاريخ/وقت طبعا هذا عند تصميم الجدول ) نكتب جملة SQLالتالية : [>=[forms]![عرض حركات العملاء خلال فترة زمنية]![التاريخ الافتتاحي] And <=[forms]![عرض حركات العملاء خلال فترة زمنية]![التاريخ الختامي] ثم راجع موضوع (الاستعلامات والتحكم في ظهور البيانات في التقارير) لتعرف ما تعمله مع التقرير . وقد ارفقت مثالا يوضح هذا الدرس هذا وبالله التوفيق.

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

السلام عليكم محاولة بسيطة لعمل أداة بالفيجوال بيسك . مع الإعتذار لمن يواجه مشاكل أو قصور حيث أخوكم غشيم فيجوال وهذه أول محاولة لي ، وإن شاء الله تعالى أقوم على تطويرها لاحقا . لا تنسوا تسجيلها مع أدوات الـ ActiveX controls لكي تعمل . تحياتي . UmDateBox.zip