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

استاذى الجليل @د.كاف يار اطلب منكم على النظر فى هذا المرفق والرجوع الى بعد التجربة مسح ضوئى لاى عدد من الاوراق دون الاعتماد على اى برامج خارجية والتحويل الى pdf Scan With ms Access ADF.zip

تفضل أخي ترقيات.rar

السلام عليكم مرحبا أخي المصري استخدم هذا الكود Dim xdate As Date Dim xtime As Date xtime = "12:27:00" xdate = "2019/01/02" Time = xtime Date = xdate

If IsNull(إسم مربع النص المكتوب فيه عدد النسخ) = True Or إسم مربع النص المكتوب فيه عدد النسخ = 0 Then MsgBox "لم تدخل عدد النسخ" إسم مربع النص المكتوب فيه عدد النسخ.SetFocus Else DoCmd.OpenReport ("إسم التقرير"), acViewPreview ' open report DoCmd.PrintOut , , , , إسم مربع النص المكتوب فيه عدد النسخ, qty DoCmd.Close acReport, "إسم التقرير", acSaveNo End If

وهذا تعديل معلمى الجليل واستاذى القدير الاستاذ @essam rabea كما تفضل مشكور واختصر 100 سطر بـ بسطر واحد مش الصعايدة اللى عملوه الأول ولكن انا اضفت جزئية كام لابد منهاطالما اننا نحاول تلافى الاخطاء قدر المستطاع هههههههههه منا لازم احط التاتش الصعيدى مفجأه Change Characters (1).mdb

تفضل اخي Model.rar

السلام عليكم ورحمة الله تعالى وبركاته قمت بفضل الله بتصميم مكتبة dll يمكن اضافتها للاكسس نعم هى بسيطة ولكنها اول تجربة وان شاء الله احاول ان اصمم مكتبات اخرى هى اداة مثل البروجرس بار هذه شكلها بعد التسجيل ستجدها موجودة فى عناصر Active x وهذه صورة اثناء تصميم الاداة على vb.net قريبا ان شاء الله explorer bar وهذا فيديو اثبات عملى للاداة اما عن طريقة التسجيل فستجد ملف من نوع .bat ارفقته مع الاداه اسمه " تسجيل الاداة " قم بفتحة با النوتباد وقم بتغيير مسار الاداه وقم بحفظ الملف وعن التسجيل قم بفتح الملف كمسؤل وسيقوم بتسجيل المكتبةتلقائيا هذه هى المكتبة axload5.rar اتمنى ان تجربوها وتخبرونى بالنتائج دمتم لنا سندا حاجة اخيرة ايه ممكن استفاد من الاداة هذه ممكن مثلا تضعها فى نموذج مخفية وعند تنفيذ امر معين تظهرها وعند انتهاء الامر تقوم باخفائها وهكذا

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

بحثت ووجد طريقتين عن طريق expression في حالة القيم موجبة =Int(Expr)+IIf(Expr-Int(Expr)>0,1,0) في حاالة القيم سالبة =(Int(Abs(Expr))+IIf(Abs(Expr)-Int(Abs(Expr))>0,1,0))*IIf(Expr>=0,1,-1) كما يمكن القيام بها عن طريق vba Public Function RoundUp(X As Double, Optional I As Integer) As Double If IsMissing(I) Then RoundUp = -Int(-X) Else RoundUp = -Sgn(X) * Int(-Sgn(X) * X * 10 ^ I) / 10 ^ I End If End Function

غير هذا DoCmd.OpenReport ("إسم التقرير"), acViewPreview ' open report الى DoCmd.OpenReport ("إسم التقرير"), acViewNormal ' open report

تفضل أخي محمد H_R0210.rar

اخى Elsayed Bn Gemy هو المشكلة بالنسبالى ليه شغالة عندك ومش شغالة عندنا .. جهازك أحسن من جهازى فى ايه ولكن بعد كل هذا شغلنا الاولى بقى الله لا يسيئك.

بعد إذن أستاذنا القدير ابا جودى بارك الله له جرب المرفق اخى raafatfakhry New Microsoft Office Access 2007 Database.accdb

استخدم امر إيجاد الأخطاء التالي: مع تغيير ما يلزمك حسب رقم الخطأ On Error GoTo ErrorHandler '==== هنا الامر الذي تريد ErrorHandler: Select Case err.Number Case 3024 msgbox("هذا الخطأ بسبب كذاااااا") End Select واذا لم تستطع فتفضل كما ذكر لك الأخ عصام بارفاق مثال صغير للتعديل عليه

ـفضل from excel.rar

جرب هذا الملف My_filter.xlsm

اتفضل دوس كليك يمين Test.accdb وهنا فكرة أخرى

على قد ما فهمت بقى جرب ورد بالتوفيق مثال اوفيسنا منع تجاوز الرصيد معدل.rar

تفضل Invoice1.xlsm

انا لله وانا اليه راجعون ... عظم الله اجركم وغفر لميتكم والهمكم الصبر والسلوان

عظَّم الله أجرك، وأحسن الله عزاءك، وغفر الله لميتك انا لله وانا اليه راجعون

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

استخدم هذا الكود ..... Dim c, i c = DCount("[المعرف]", "daraga") DoCmd.GoToRecord , , acFirst For i = 1 To c If IsNull(Me.Date1) Or IsNull(Me.date2) Then Exit Sub Me.age = CalcAge(Me.Date1, Me.date2) Me.tdate = CalcAged(Me.Date1, Me.date2) Me.tmonth = CalcAgem(Me.Date1, Me.date2) Me.tyear = CalcAgey(Me.Date1, Me.date2) DoCmd.GoToRecord , , acNext Next i MsgBox "تم الحساب", vbInformation + vbMsgBoxRight, "حساب"

بسم الله الرحمن الرحيم لاحظت في الفترة الأخيرة كثرة الأسئلة عن موضوع نسيان كلمات مرور ملفات الإكسل أو بعض ورقات العمل بالملف فأحببت أن أشارك إخوتي وأحبّتي أعضاء ومشرفي وخبراء منتدانا الرائع هذه الإضافة MasNoPass لفك حماية أوراق العمل في ملفات الإكسل وتعمدت تسهيل عملها &&&&&&&&&&& فقط تحتاج لإضافة الوظيفة الإضافية: 1 في ويندوز xp نسخ المرفق إلى المسار التالي C:\Documents and Settings\***\Application Data\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم 2 في ويندوز 7 نسخ المرفق إلى المسار التالي C:\Users\***\AppData\Roaming\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم ****************** بالنسبة لمستخدمي إكسل 2003 من خلال: فتح برنامج الإكسل والضغط على قائمة أدوات tools ===> وظائف إضافية Addins ===> ثم اختر MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2007 يتم ذلك من خلال : فتح برنامج الإكسل والضغط على زر الأوفيس ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Addins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2010 وما بعدها يتم ذلك من خلال : فتح برنامج الإكسل والضغط على قائمة ملف file ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Add-ins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok /////////////////// طريقة العمل:- بعد تسجيل الوظيفة الإضافية تجد ظهور قائمة جديدة باسم (فك الحماية) وتحتاج فقط إلى فتح الملف المحمي ثم الضغط على قائمة فك الحماية واختيار (إزالة كلمة المرور) بعدها سيتم البدء في عدّ المحاولات والوقت المنقضي في إجراء العملية بعدها تظهر رسالة تفيد أنه تم إزالة كلمة المرور عن الملف وبعد الضغط على الرسالة ستجد الملف مفكوك بين يديك $$$$$$$$$$$$$$$$ و أذكّر نفسي وإياكم بأن الصحابة عليهم رضوان الله كان الواحد منهم إذا أراد أن يدعو لنفسه دعا لأخيه فيقول له الملك آمين ولك مثلها فلا ينقصني سوى دعائكم وأخيرا أذكر بخطورة الموقف وأرجو عدم استعمالها فيما حرّم الله وعند النقل يجب ذكر المصدر منتديات أوفيسنا اللهم قد بلّغت ... اللهم فاشهد أخوكم محمد صالح فيديو لشرح كيفية استعمال الأداة ولا ينقصني سوى دعاؤكم ينصح بالاشتراك في القناة وتفعيل جرس التنبيه ليصلكم كل جديد ومفيد وقت صدوره MasNoPass.rar New_MasNoPass.rar

حل عبقرى وجديد (بالنسبة لى) ويضاف لمكتبتى التى امتلأت بأفكار أساتذة هذا المنتدى الرائع جزاك الله خيرًا

السلام عليكم جرب الملف المرفق لعل فيه ما تريد.... تم إضافة عمود مساعد في شيت "الملاحظات" تجنبا لمعادلات الصفيف... بن علية حاجي استفسار33.zip

الاخوة الكرام اسف جدا اكتشفت الخطأ ..... في هذا الجزء والتصحيح بحث يالأحرف الأولي.rar