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

مشكلتك اخي انك تقع بنفس الاخطاء تريد تبحث عن شي وهو اسمه غير الشرط اتفضل On Error Resume Next Dim aboyaseen As String Dim farFilter As Variant farFilter = Null If Not IsNull(Me.n1) Then farFilter = "[Expr6] LIKE '*" & [Forms]![Sersh_F]![n1] & "*'" DoCmd.OpenReport "Sersh_rpt", acViewReport, , aboyaseen End If If Not IsNull(Me.k1) Then farFilter = (farFilter + " AND ") & "[Stype] LIKE '*" & [Forms]![Sersh_F]![k1] & "*'" DoCmd.OpenReport "Sersh_rpt", acViewReport, , aboyaseen End If ' كود البحث بين تاريخين If Not IsNull(Me.Date1) Or IsNull(Me.Date2) Then aboyaseen = (farFilter + " AND ") & "[Sdate] Between [Forms]![Sersh_F]![Date1] And [Forms]![Sersh_F]![Date2]" DoCmd.OpenReport "Sersh_rpt", acViewReport, , aboyaseen End If With Me.SershExpense_Sub.Form If Not IsNull(farFilter) Then .DataEntry = False .Filter = farFilter .FilterOn = True Else .FilterOn = False End If .Requery End With بدل Mostvid غيرتها الى Expr6 وبامكانك تغير Expr6 الى Mostvid

اخي Khalf انا جربت هذا الكود عملته بداله ثم استدعيته عند الفتح وهو شغال Function AddRefs() Dim loRef As Access.Reference Dim intCount As Integer Dim intX As Integer Dim blnBroke As Boolean Dim strPath As String On Error Resume Next 'Loop through each reference in the database 'Add all references Debug.Print "----------------- Add References -----------------------" With Access.References .AddFromFile "C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll" .AddFromFile "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll" .AddFromFile "C:\Program Files\Microsoft Office\Office\msacc9.olb" .AddFromFile "C:\Program Files\Common Files\System\ado\msado15.dll" .AddFromFile "C:\Program Files\Common Files\System\ado\msado25.tlb" .AddFromFile "C:\Program Files\Common Files\System\ado\msadox.dll" .AddFromFile "C:\WINNT\System32\stdole2.tlb" .AddFromFile "C:\WINNT\System32\scrrun.dll" .AddFromFile "C:\windows\syswow64\scrrun.dll" End With ' Call a hidden SysCmd to automatically compile/save all modules. Call SysCmd(504, 16483) End Function

اخواني الاكارم البرنامج التالي يخص محلات بيع النظارات و اطباء العينية و هو مأجور و ليس مجاني الأجرة ( دعوة صالحة لي و لمعلمي ( أبو آدم )) :rol: اترككم مع المرفق و انا بانتظار الردود ( في حال وجود خطأ لا سمح الله ) -------------------------------------------------------------------------------------------------------------------------- اعتذر لجميع الاخوة يرجى اضافة المرفق التالي مع المرفق الأول وهو وحدة نمطية لمنع التحرك بين السجلات عن طريق دولاب الفارة فقط استخرج المف المرفق وضعه في فولدر البرنامج MyCustomerData.rar std.rar

فى نص حل قدامك انك مثلا فى النطاق من A1:A10 عندك ارقام وعندك معادلات اللى هى ضرب مثلا هتظلل على النطاق ومن home هتروح ل Find وبعدين تختار formula هيتظلل على الخلايا التى بها معادلات هتختار من home لون الخلفية الخاصة بالخلية اصفر وهتعمل module وهتكتب فيه الكود دا Sub ListColors() For Each c In Selection c.Offset(0, 1).Value = c.Interior.Color Next c End Sub ثم هتعلم النطاق تانى وهتشغل الماكرو هتظهرك ارقام فى B وهتلاقى الخلايا اللى ليس لديها لون رقمها 16777215 هتعمل دالة if =IF(B1=16777215,A1,"") طبعا لو الضرب بيبقى فى 2 دايما هتعمل الدالة دى ويبقى بقه عندك حل كامل لو الضرب بيكون دايما فى 2 =IF(B1=16777215,A1,A1/2)

طبعا هذا لا يمكن عمله ويكاد يكون من المستحيل

كل شي بالممارسه والخبرة ان لم تغلط لن تتعلم ولكن لازم تستفيد من الاخطاء تحياتي

ان شاء الله تستفيد نشوفك خبير عن قريب

إن أي شيء يزاد في قاعدة البيانات سيزيد من حجمها و يقلل من سرعة أدائها . أوامر استعلامات جداول حقول ... و حتى البيانات نفسها .

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

في معايير الاستعلام الذي يجب أن يكون مصدر التقرير . ضع في معايير حقل الشهر و في معايير حقل السنة و في معايير حقل القسم : =forms![name_form]![name_field ] استبدل المسميات بين الأقواس المنكسرة اسم نموذجك و من ثم اسم الحقل في نموذجك و الذي ترغب بأن يكون معيار الحقل في الاستعلام . ضع هذه المعادلة في معايير الحقول مع تبديل اسم الحقل حسب المطلوب .

السلام عليكم حدث عندي مرارا ان Excel has stopped working الاكسيل يتوقف عن العمل عند فتح الملف ويصمم على عدم فتح الملف وفي حالات أخرى يعطيني رسالة cant find project or library وكنت اضطر الى اختيار وضع تعطيل كافة وحدات الماكرو فيفتح الملف وأنسخ مايلزم لنسخة موجودة احتياطيا من الملف ثم احذف الملف وكانت هذه عملية مرهقة وقد قرأت عن حلول لم تنفع معي وأخيرا وجدت حل وهو اختيار تعطيل كافة وحدات الماكرو فتح الملف ادراج موديول جديد ( او حذف موديول) تمكين وحدات الماكرو حفظ الملف الخروج اعادة فتح الملف وعندها بحمد الله يفتح تمام هذا لمن اراد ان يستفيد ولمن يريد ان يفيد هل هناك سريع حل للخطوات السابقة ؟ وفق الله الجميع

وجزاك الله خيرا اخي علي وبارك الله فيك و شكرا لك على كلماتك الرقيقة

السلام عليكم ورحمة الله وبركاته السادة الأفاضل نشكر لكم عظيم اهتمامكم ونتعلم منكم الكثير المرفق نموذج مصغر لحجز واستلام الكتب الجامعية والمطلوب عندالنقر على الحجز لمادة من المواد (يوضع تاريخ يوم الحجز كقيمة افتراضية) فى جدول أو استعلام وعند النقر على الاستلام لمادة من المواد ( يوضع تاريخ يوم الاستلام) فى جدول أو استعلام بحث يتسنى لنا بعد ذلك عمل استعلامات أو تقارير بيومى الحجز والاستلام شكر الله لكم جميل صنعكم 1.rar

السلام عليكم أخي الكريم بعد إذن الأخ محمد ، مرفق نفس الملف به التالي حماية بباسورد "123" مسموح للمستخدم فقط العمل في الأعمدة الثلاثة الأولي وبعد أن يكون الثلاثة أعمدة مليئة بالبيانات ، يتم أوتوماتيكيا التالي 1- يقوم الماكرو بفك الحماية 2- يسجل بالعمود الرابع والخامس إسم المستخدم و التاريخ 3- يقوم أخيرا بفرض الحماية مرة أخري مع منع السطر الأخير أيضا من التعديل تفضل الملف معرفة اسم مستخدم الجهاز.xlsm

السلام عليكم تتم هذه العملية بعمل استعلام تكوين جدول Tab ----- والمعلومات من جدول Tab1 بالتوفيق

جزاك الله خير

أحسنت بارك الله فيك استاذى الغالى

اتفضل Frame شفاف وغير لون الفورم هيتغير عادى جدا والكود بسيط جدا Frame1.xlsm

جزاكم الله خيرا

اولا الله يسامحك انك تجيب تسميات غير موجود في الجدول المطلوب اتفضل شوف التعديل Expr6: IIf([Stype]="سند صرف موظف";DLookUp("[EmployeeName]";"Employee_T";"[EmID]= " & [EmployeeID] & " ");IIf([Stype]="سند صرف عميل";DLookUp("[CustomerName]";"CustomersT";"[CustomerID]= " & [CustomersID] & " ");IIf([Stype]="سند صرف المصروفات";DLookUp("[ExpenseName]";"ExpenseName";"[ExpenseID]= " & [ExpenseID] & " ");IIf([Stype]="سند صرف مورد";DLookUp("[SupplierName]";"SuppliersT";"[SupplierID]= " & [SuppliersID] & " ")))))

ومن الممكن حل المثال بطريقة اسهل بكثير عن طريق استخدام الفلتر (وايضا استخدمه للتأكد من حلك ) هتستخدم هذه الدالة ضعها فى H1 =SUBTOTAL(9,C2:C501) وقم باستخدام الفترة وفى العواميد التى تحتوى ارقام هتجد كلمة number filter بالضغط عليها هتظهرك اختيارات مثل اكبر من ولا اقل من ولا اكبر من ويساوى .. الخ اختار واحد منهم واكتب الرقم فى السؤال وهتلاقى الناتج فى H1

بارك الله فيك استاذ أحمد الكود فعلا انا جربته يعمل تمام جدا جعله الله فى ميزان حسناتك وجزاك الله كل خير وعود حميدا وحشتنا

بارك الله في الجميع اخي kanory

بارك الله في أخي @ابو ياسين المشولي

تم حل المشكله كانت مشله ابو زاهر في التركز هو غير اسم النموذج من عربي الى انجليزي ولم يغير الكود

تم عملية الالحاق لاحظ الصورة .... ماهي المشكلة بالضبط ؟

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

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

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

السلام عليكم أخي العزيز من فضلك أعد إرسال الملف لأن المرسل به خلل

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

السلام عليكم تفضل أخي الكريم عسي أن يكون هذا ماتريد تقييم الطلاب.xlsx

السلام عليكم أخي الكريم مرفق مجلد به 32 ملف رمزي غير الملف الأساسي "Report.xlsm" ستجد زرين لكل واحد منهما كود الأول يعمل لك ليستة بالملفات الموجودة بالمجلد اللي موجود به الملف الأساسي "Report.xlsm" يجب أن تضغط عليه أولا ليعطيك قائمة بالملفات الموجودة بالمجلد بداية من الخلية B4 نزولا للأسفل ثم الزر الثاني يعمل لك الهايبر لينك للملفات الموجودة بالمجلد وموجود إسمها بالملف الأساسي "Report.xlsm" تفضل المجلد ولو لك أسئلة لاتتردد TEST.rar

استخدم الدالة دى وحطها فى C3 وانزل بيها اتوفيل لأخر خلية فى بيانات =IF(A3=1,100%,IF(A4="",1%,C2-(1/117))) على سبيل المثال انت لو عندك جدول فيه 100 طالب هتقول 1/100 لو 60 هتقول 1/60 وهكذا واول رقم هيحصل على 100 واخر رقم هيحصل على 1 وبالتالى الجدول التانى هتكون المعادلة كالأتى فى H3 =IF(H3=1,100%,IF(H4="",1%,J2-(1/12)))

السلام عليكم ورحمة الله وبركاته اخوتي الكرام اليكم مثال بسيط لترجمة الكلمات العربية الى لغة صوتية عربية بواسطة مترجم google يلزم ان يكون النت شغال ترجمة صوتية.rar

أخى الكريم لما لا تستخدم خاصية البحث فى المنتدى قبل رفع المشاركة فهناك العديد من المشاركات تناولت هذه المواضيع ومنها : https://www.officena.net/ib/topic/85960-طلب-برنامج-مخازن/?tab=comments#comment-545203 https://www.officena.net/ib/topic/81355-طلب-مساعدة-في-يرنامج-ادرة-مخزن-بسيط/?tab=comments#comment-518943 https://www.officena.net/ib/topic/80160-تسيير-مخزن/?tab=comments#comment-512690 بارك الله فيك

أخواني وأخواتي الأعزاء تحية طيبة وبعد ،،،،،،،، أقدم اليوم إليكم برنامج الرواتب والموارد البشرية حسب قانون الخدمة المدنية الفلسطيني قبل التعديل ، وأتمنى أن تستفيدوا من الأفكار والبرمجة الموجودة بداخله حيث أنه مفتوح المصدر. توجد به حركة الرواتب من 30/4/2004 وحتى 31/12/2005 حيث كان الاحتساب يبدأ بتاريخ نهاية كل شهر مثال ذلك 30/4/2004 أو 31/5/2004 أو 30/6/2004 أو 31/12/2005 وهكذا فإذا أردت طباعة أي استمارة راتب مثلاً كل ما عليك أن تدخل رقم الموظف في خانة من .. الى .. وتاريخ الاحتساب. أتمنى لكم التوفيق Salaries_2005.rar

تفضل أخي ابوياسين قم بتثبيتها وبعد الانتهاء قم بتفعيلها من الوظائف الاضافية في خيارات الاكسس اعد تشغيل الجهاز وستظهر الايقونة في شريط الحفظ الاداة الاضافية لحزمة التخزيم بالاكسس 2010.rar