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

وعليكم السلام تفضل جعفر 958.1.سند قبض.accdb.zip

وعليكم السلام ورحمة الله وبركاته تفضل عزيزي: Database1 (1).rar

وعليكم السلام اذا مصدر النموذج عبارة عن جدول او استعلام ، فمصدر قيمة حقل النص يكون من الجدول/الاستعلام ، فيمكنك في الجدول ان تغيّر اعدادات الحقل ، بحيث يكون مفهرس وغير قابل للتكرار ، واما في النموذج اذا اردت ان تستعمل كود للتأكد من عدم تكرار قيمة الحقل قبل حفظ السجل ، فيمكنك عمل حدث قبل التحديث للحقل ، وعمل مثل هذا الكود: private sub ....BeforUpdat(... dim Counter as integer Counter= dcount ("*", "Table Name", "[Field Name in Table]='" & me.FieldNameInForm & "'") 'اذا كان نوع الحقل في الجدول، نص 'Counter= dcount ("*", "Table Name", "[Field Name in Table]=" & me.FieldNameInForm) 'اذا كان نوع الحقل في الجدول، رقم if Counter>0 then cancel=true 'me.undo msgbox "عفوا ، هذه القيمة مكررة ولا يمكن حفظها" end if end sub جعفر

1. شو أستاذنا شكلك راح تشتري عكاز 2. جرب هذا المرفق أخي حربي 1. العكاز لا يحل مشكلة البطارية 2. الحمدلله ان اخونا حربي رضى عنا بالمرفق جعفر

حياك الله اخي العزيز عبد اللطيف كنت اكتب لك فظهر ردك الاخير

اها وصلت اشكرك

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

شو أستاذنا شكلك راح تشتري عكاز جرب هذا المرفق أخي حربي أجريت بعض التعديلات الطفيفة ProgTime20.rar

السلام عليكم ورحمة الله أخواني الكرام وعلمائنا وأساتذتنا العباقرة في هذا الصرح العملاق والأكثر من رائع بعد إنتهاء ولله الحمد من برمجة برنامج شؤون الموظفين والمرتبات ونشره في الموقع منذ فترة وجيزة على هذا الرابط برنامج شؤون وإدارة الموظفين بحلته وشكله الجديد أحببت اليوم بعد طلبات من الاصدقاء أن أقوم برفع البرنامج مفتوح المصدر لكي تتم الفائدة منه في كافة النواحي العلمية والعملية وذلك من (خلال الكودات وطريقة التصميم) ماعليكم سوا فك الضغط عن الملف المرفق وتنصيب البرنامج بكل سهولة وفي الاخير تفعيل الماكرو يعمل البرنامج على كافة أنظمة ويندوز وكافة نسخ أوفيس من 2007 ومافوق لاتنسونا من الدعاء بظهر الغيب في هذه الايام المباركة الملف بامتداد zip هو الملف كاملا Office Soft.Employ & Salary-Source.zip Office Soft.Employ _ Salary-Source.rar

بعد اذن اخي جعفر jjafferr سوف اشرح ماتم عمله من قبل الاخ جعفر تم عمل داله وهي كالاتي Function make_visible() On Error GoTo err_make_visible [EmployeeID].Visible = False [SuppliersID].Visible = False [CustomersID].Visible = False [ExpenseID].Visible = False If [Stype] = "سند صرف موظف" Then [EmployeeID].Visible = True Me![الاسم] = Me![EmployeeID].Column(1) ElseIf [Stype] = "سند صرف مورد" Then [SuppliersID].Visible = True Me![الاسم] = Me![SuppliersID].Column(1) ElseIf [Stype] = "سند صرف المصروفات" Then [ExpenseID].Visible = True Me![الاسم] = Me![ExpenseID].Column(1) ElseIf [Stype] = "سند صرف عميل" Then [CustomersID].Visible = True Me![الاسم] = Me![CustomersID].Column(1) End If Exit_Function: Exit Function err_make_visible: If err.Number = 2165 Then 'cannot hide a control which has focus 'ignore it Resume Next Else MsgBox err.Number & vbCrLf & err.Description End If End Function ثم تم استدعها عند التالي والسابق والاو والاخير هكذا Call make_visible

هذا الفيديو يوضح ذلك

تفضل هذه المحاولةتسلسل جديد بشرط.xlsx

السلام عليكم ورحمة الله وبركاته لدي ملف بسيط فيه نموذجين anas يمثل الغير نمدفوع و mad هو المدفوع المطلوب عندما اكتب تم الدفع هو حذف السجل من نموذج anas ونقله الى نموذج mad مع الشكر للجميع Database1.accdb

مشاركة مع اخي AlwaZeeR اتفضل شوف المرفق التاريخ.mdb

استبدل , بـ ;

هذا معناه انك عملت لتركيز على النموذج الفرعي فقط ، مما يعني ان الحقل المطلوب رقمه صفر في قائمة Tab Index واذا لم يكن ، فيمكنك التركيز على النموذج الفرعي ، ثم التركيز على الحقل ، هكذا: me.SubformNANE.setfocus me.SubformNANE!ProdNoAccTab.setfocus وحياك الله جعفر

اشكرك اخي وجاري التجربة

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

افضل برنامج كامتازيا 9 ابحث عنه من جوجل وحمله مجانا

السلام عليكم رجاء الالتزام بقوانين المنتدى : سؤال واحد لكل موضوع. جعفر

تم معالجة الامر Salim_Sum WITH PROTECTION_new.xlsx

تفضل:

LIST ITEM EDIT FORM صحيح ؟

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

حل لا باس به بس ممكن اعرف انت عملت ايه علشان اتعلم منها

كل المحبة والاحترام

الكود موجود فى الخلية غير منضم numx = numx + x x = 0

اخي الكريم @AlwaZeeR ممكن توضح كيف يتم ذلك ؟؟ يعني كيف جعلت التراكمي يقرأ من حقل نص غير منظم ؟ ولم اجد أي اكواد ؟؟

تفضل لعل هذا الامر يكون ما تريده حياك الله اخي الكريم test00 987.rar

وعليكم السلام ورحمة الله وبركاته هذا ما قصده الحبيب صالح استبدل الرقم خمسة بمربع نص غير منضم وسميه مثلا x test0 987.rar

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

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

السلام عليكم استخدم الكود التالي: Me.numx = Me.numx + 5

بارك الله فيك

للعلم الاستعلام هو العمود الفقري لقواعد البيانات قواعد البيانات عبارة عن: ادخال بيانات ، فرز وتصفية ، واخراج بيانات ، والاستعلام هو القوة والسرعة في الفرز والتصفية ثم ان التعامل مع الاستعلام هو عيناً نفس الطريقة في التعامل مع الجدول جعفر

وعليكم السلام اجعل مصدر النموذج الفرعي استعلام ، واجعل معيار الحقل المطلوب 1-<> جعفر

وعليكم السلام هناك طريقتين لعمل اللي تريده: اولا (لاحظ الصورة) : 1. كائنات النموذج لها ترقيم تسلسلي يبدأ بالرقم صفر ، فتستطيع تعيد ترتيب اين يبدأ واين ينتقل مؤشر الكتابة (سواء بالضغط على TAB او Enter على الكيبورد) ، 2. واذا لم تشاء ان يتوقف المؤشر على كائن في النموذج ، فاختار لا . . ثانيا: في حدث تحميل النموذج ، تستطيع ان تتحكم كائن تركيز المؤشر ، هكذا: me.ProdNoAccTab.setfocus جعفر

المساعده فى اظهار اخر سطر مكتوب فى الصفحة فى (فروم تعديل صرف البونات ) حسب اختيار اسم الشيت الاسم / زيوت الباسورد / 123 زيوت 1.rar

اجعله في رأس التقرير وليس رأس الصفحة حتى يظهره مره واحدة في بدابة التقرير ولا يتكرر

تفضل لك ما طلبت بعد الغاء القائمة المنسدلة استدعاء بيانات2.xlsx

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

للاخوة المبتدئين في اكسس عمل نموذج بحث عن شيء محدد مرفق قاعدة البيانات ورابط الفيديو التعليمي الموظفين.accdb

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

مخزن سيد.rar

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

المقصود بالسؤال ، عند ضغط ALT+F11 هل يظهر الملف الذي تم استيراده تحت اسم الملف الحالي او تحت اسم Normal بالنسبة للكود هذا هو ، و ما يتغير فى كل مرة هو هذا السطران فقط: .Text = " ." .Replacement.Text = "." Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " ." .Replacement.Text = "." .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " :" .Replacement.Text = ":" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " º" .Replacement.Text = "º" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll

اخي الفاضل xkxkx عمل جميل جداً وفيه فائد كبيرة سلمت يمينك وبعد اذنك سوف اقوم برفعه بنسخة 2003 لمن ليس لديهم 2007 وهناك خطاء في التقويم الهجري (تم اصلاحة في النسخة المفتوحة) في الرابط http://www.4shared.com/file/bb3uXhJZ/__1901_-_3000__11.html و نتمنى منك رفعة بدون حماية ( بالنسبة لي تم ازالة كلمة المرور ) وساقوم باذن الله برفعة بدون حماية في ما بعد ليستفيد الجميع من المعادلات والفكرة فهدف النتدى هو نشر العلم والافكار وليس عرضها ابو احمد

السلام عليكم: ان شاء الله يقدم المثال المطلوب والدالة كما تلاحظ هي DLookup. DLookup.rar