نجوم المشاركات
Popular Content
Showing content with the highest reputation on 09/07/19 in all areas
-
الاخوة الاعزاء اسعد الله اوقاتكم بكل خير .. في عدة منتديات اجد كثير من المستخدمين يجدون صعوبة في جلب الصورة من الاسكانر لنموذج الاكسس و رأيت امثلة يصعب التعامل معها للمبتدئين و متوسطي الخبرة اليوم اقدم لكم نموذج سهل للتعامل مع الصورة ( صورة من رابط خارجي - صور من الماسح الضوئي - صورة من الجهاز ) كما وضعت متغيير لتسمية الصورة الممسوحة من الاسكانر تفاديا للتكرار من خلال التاريخ و الوقت الحالي كمان ارفقت صورة للمكتبات المستخدمة ليستفيد الجميع منها اتتمنى ان يحوز على استحسانكم .. و دمتم في رعاية الله و حفظه من فضلكم ليس هناك داعى لعمل اقتباس عند الرد فهذا يقوم بدوره بتشتيت المطلع والباحث عن نفس الموضوع مستقبلاً مثال للتعامل مع الصور.mdb
4 points -
لا تكمن المشكله فى صورة واحدة فقط انما مع مسح اكثر من ورقة دفعة واحدة adf Automatic Document Feeder3 points
-
الملف تمام ويعمل بكل كفاءة فقط دائما وابدا لحسن عمل اى كود لابد من تسمية الصفاحات بالإنجليزية وذلك لأن اللغة العربية عندك تحتاج ضبط تفضل Total.xlsm3 points
-
جرب المرفق مقارنه.mdb3 points
-
بعد اذن اخي حسين هذا الكود Option Explicit Sub copy_Form_to() Dim M As Worksheet: Set M = Sheets("Main") Dim L As Worksheet: Set L = Sheets("list") If Not IsNumeric(L.Range("g5")) Or L.Range("g5") = 0 Then Exit Sub If Not IsNumeric(L.Range("I5")) Or L.Range("I5") = 0 Then Exit Sub Dim lrM%: lrM = M.Cells(Rows.Count, 3).End(3).Row Dim RgC As Range: Set RgC = L.Range("C6:C35") L.Range("b5").CurrentRegion.Offset(1).ClearContents Dim My_Min: My_Min = Application.Min(L.Range("g5:I5")) Dim My_Max: My_Max = Application.Max(L.Range("g5:I5")) If My_Max > lrM - 2 Then My_Max = lrM - 2 Dim t%, K% Dim r%, c%, X% r = 6: c = 3 My_Min = Int(Abs(My_Min)): My_Max = Int(Abs(My_Max)) For t = My_Min To My_Max On Error Resume Next X = M.Range("c:c").Find(t, lookat:=1).Row If Err.Number Then Err.Number = 0: GoTo next_t If X Then K = K + 1 If K = (RgC.Rows.Count) * 2 + 1 Then Exit For L.Cells(r, c - 1) = t: L.Cells(r, c) = M.Cells(X, 4) r = r + 1 If K = RgC.Rows.Count Then r = 6: c = c + 2 End If next_t: Next End Sub الملف مرفق aaaa.xlsm2 points
-
تفضل اخي الكريم حساب التقاعد2003.mdb2 points
-
أما إذا أردنا دمج الاسطر فقط دون اضافة فاصلة، بيتم استبدال السطر التالي 'replace with comma .Replacement.Text = ", " بالاتي ' replace only without comma .Replacement.Text = " "2 points
-
السلام عليكم و رحمة الله و بركاته في المثال المرفق آلة حاسبة بمميزات رائعة الة حاسبة.rar2 points
-
Version 2.0.0
877 تنزيل
بسم الله الرحمن الرحيم كل عام أنتم بخير وسعادة ورضا بمناسبة عشر ذي الحجة وعيد الأضحى المبارك أعاده الله علينا جميعا بالصحة والسعادة استكمالا لسلسلة ما خف وزنه وغلا ثمنه موعدنا اليوم مع ملف يحتاجه كل مهتم بالتعامل مع قواعد البيانات النسخ الاجتياطي أو الضغط والإصلاح بطريقتين أولا لقاعدة البيانات الحالية والثانية لقاعدة بيانات يتم تحديدها مع إمكانية استعمال المجلد الحالي أو أي مجلد يتم تحديده كمكان للنسخ أو الضغط والنسخ وكل ذلك في نموذج واحد وبأبسط كود ممكن ويوجد في الملف الكثير من الأكواد التعليمية الرائعة مثل: استعمال متصفح الملفات المضمن في الأوفيس بدون دوال الويندوز استعمال متصفح المجلدات المضمن في الأوفيس بدون دوال الويندوز استخلاص اسم الملف من مساره الكامل استخلاص امتداد الملف من مساره استخلاص اسم الملف بدون امتداده من مساره استخدام أوامر الدوس داحل الأكسس ولا ينقصني سوى دعاؤكم لي بالخير في الدنيا والآخرة ********************** ملحوظة: الكود يعمل على كل إصدارات الأوفيس تم مشاهدة موضوع في نفس المجال وهو في هذا الرابط وتطوير الفكرة إلى ما وصلت عليه في هذا الملف ******************* دمتم في رعاية الله وحفظه وانتظرونا فالقادم أفضل بإذن الله إن شاء الله1 point -
السلام عليكم ورحمة الله وبركاته لقد أنشأت برنامج بسيط وجمعت به الأكواد التي نسنتخدمها باستمرار وصممته بحيث تكون الواجهة عبارة عن شاشة يتم تجميع بها الأكواد المراد نسخها الي شاشة الفيجوال بيسك لمشاهدة كيف يعمل البرنامج من هذا الرابط بنك الأكواد - demo-24-4-2019.accdb1 point
-
أعجبتني فكرة الرجستري جرب هذا التعديل: za-font style and align-LAST.rar1 point
-
السلام عليكم حسب علمي لا أظن أن هناك طريقة لإسترجاع الجداول المحذوفة لهذا السبب ينص دائما بأخذ نسخة إحتياطية من القاعدة من حين إلى آخر1 point
-
وعليكم السلام-تفضل لك ما طلبت جمع نطاق من ورقه إلى أخرى.xlsx1 point
-
ممتاز بارك الله فيك استاذ@kha9009lid ذياده الخير خيرين مشكوررررررررررر يالغالي1 point
-
ربنا يكرمك كلنا نتعلم من بعض وللاستفادة لعامة الإخوة غيرنا المتغير الذى نحفظ فيه قيمة ناتج الجمع من Integer إلى Double حيث يمكن وجود علامة عشرية و أرقام بعدها1 point
-
@عبد الفتاح كيرة بارك الله فيك استاذي واجدها فرصة مناسبه لشكرك على ماتقدم من دروس في قناتكم على اليوتيوب1 point
-
تمام يا فندم هذا هو المطلوب قلت أصلى العصر ثم أفتح مرفقك وجاءنى الحل نفسه و أنا أصلى بارك الله فيك1 point
-
:: الجداول هي التي تحفظ البيانات وليس حقول النموذج غير المنظمة. عموما ليس لدي طريقة للحفظ في النموذج.1 point
-
وعليكم السلام-تفضل وذلك بالتنسيقات الشرطية Expire.xlsx1 point
-
جزاك الله كل خير استاذى الكريم1 point
-
الحمد لله وبنعمته تتم الصالحات بالنسبة للطلب الثانى ضع نمودج في ملف اخر واشرح فيه ما تريد وارسله في موضوع جديد وهكذا سيستفيد الجميع بما فيهم انا وانت تحياتي لك استادkrimo1451 point
-
جرب المرفق ان لم يعمل فاظن ان المشكل في النظام لديك Total.xlsm1 point
-
اذا انشئ استعلام اخر مبنى على نفس هذا الاستلام بدون اضافة التاريخ بحيث يكون فلتر التاريخ في الاستعلام الاول فقط تفضل الملف بعد التعديل * تم التعديل على معايير الاستعلام * تم انشاء استعلاميين Base de données4.accdb1 point
-
كان يجب تحميل مثال عما تريد لكن جرب هذا الملف wwithout Breakets.xlsx1 point
-
مرورك هو الأجمل اخي الكريم ... شكرا لك1 point
-
وضعت مشاركتي ولم اشاهد ردك تقبل تحياتي1 point
-
الحمدلله وصلت الى الحل احبتي الكرام1 point
-
:: قاعدة بياناتك مافيها تقرير ؟ عموما قدمت لك فكرة وعليك السلام والتطبيق ... ده اقتراحي في القضية . Microsoft Office Access 2007 قاعدة بيانات جديد __.accdb1 point
-
مرحبا اخ عبدالفتاح هناك احتمالات والله اعلم وبالترتيب 1. يمكن ان ناتج الجمع في الكود قيمة خالية لاسباب عدة فتتحول القيمة الى صفر باستخدام nz .. هنا تاكد بعمل مسج بكس لتحديد المشكلة 2. اذا اعلاه تم التاكد بان الرسالة تعطي نص فانظر الى تنسيق مربع النص من الخصائص او هات مرفق خفيف به المشكلة بالتوفيق1 point
-
أحسنت استاذ محمد عمل رائع جعله الله فى ميزان حسناتك1 point
-
تفضل جرب المرفق INI.xlsm1 point
-
جرب المرفق بخصوص سعر الصرف حقل سعر الصرف اذا كان به رقم يحسب السعر الافرادي في سعر واذا كان فارغ يبقى السعر كماهو فارغ لا يساوي صفر 21.accdb1 point
-
تفضل Database1 (1).accdb1 point
-
وعليكم السلام تفضل هذه الفاتورة أتمنى ان تنال اعجابك وهذه أيضا فاتورة مصممة على الإكسيل وكمان هذه فاتورة خبورية مصممة على الإكسيل فاتورة احترافية.rar فاتورة مبيعات اوفيسنا.xls فاتورة خبورية.xls1 point
-
السلام عليكم برنامج صغير جدا لأرشفة الوثائق كل شخص 10 صور مطلوب أفكار أحسن من الطريقة اللي عملتها المرفقة برنامج ارشفه.accdb1 point
-
اشكرك دكتور فكرة رائعة1 point
-
تفضل هذا الاقتراح برنامج ارشفه.accdb1 point
-
شوف عملت لك توسط وحفظ لون الخط كمل الباقي لان وقتي والله مايسمح هي نفس الفكرة za-font style and align-LAST.mdb1 point
-
السلام عليكم أستاذ / عبد اللطيف سلوم تحياتي لك مرفق طريقة أخرى " البوم صور " Album.rar1 point
-
file.rar1 point
-
السلام عليكم استعمل هذا الكود mdb_Path_Name = CurrentProject.Path & "\db.accdb" 'مسار القاعدة الثانية DoCmd.TransferDatabase acExport, "Microsoft Access", mdb_Path_Name, acReport, "report112", "تقرير شهري", False1 point
-
السلام عليكم جرب المرفق اضغط فوق الزر الأحمر بالزر اليمين للفأرة سوف تظهر لك قائمة بها ثلاثة عناصر كل عنصر له أمر معين تستطيع التعديل على الأوامر و المسميات من الوحدة النمطية و وحدات الماكرو الكود.rar1 point
-
طبعا كل اساتذتى الكرام واخوانى الاحباب كفوا ووفوا جزاهم الله خيرا ومساهمة من العبد الفقيـر الى الله هذا المرفق للاستاذى الجليل ومعلمى القدير الاستاذ @أبو آدم جمال المرفق فى انه ان وجدت اكثر من طابعة يمكن فى كل مرة اختيار احداهم بكل يسر ومرونة NA_ReportPrenter.mdb1 point
-
بالتأكيد طبعا جرب بنفسك كل ما عليك هو سحب المعادلة الى الأسفل كلما قمت بكتابة بيانات جديدة1 point
-
بارك الله فيك وجزاك الله كل خير واحسن الله اليك1 point
-
أحسنت بارك الله فيك1 point
-
تفضل هذا بالكود وبكل الشروط واسرع بكثير فلترة بعدة شروط.xlsm1 point
-
وعليكم السلام تفضل فلترة بعدة شروط.xlsx1 point
-
أخي الكريم انظر النموذج في المرفق اذا كانت نتيجة النموذج صحيحة عندها ننتقل الى الطلبات الآخرى ما يهم الآن هو صحة النتيجة في نموذج frmsecreend BLOODS2.rar1 point
-
اخوتي الافاضل من منطلق الواجب بشكر الناس ( فمن لا يشكر الناس لا يشكر الله ) اتقدم بعميق الشكر و الامتنان لهذا المنتدى الطيب و لأساتذته وطلاب العلم فيه ، فهذه صفحة مفتوحة لشكر كل العمالقة و الاساتذة وطلاب العلم و كل من حاول وحقق نجاحا بسيطا أو كبيرا ... لكل من القى في هذا البحر كلمة انتفع منها طالب علم أو عالم عملاق . اجول في منتداكم اتعلم و اعمق ما لدي و اسمع و اتعلم واحمل برامج و افكار استمتع بها كما يستمتع باي شيئ جميل ، وحان الوقت - ربما - لاساهم قليلا بما علمني ربي . هذا جزء من نظام تخليص جمركي عامل في مؤسستي منذ عامين خضع لكثير من التعديلات ، و اخر هذه التعديلات لوحة الرقابة المرفقة لتدقيق المعلومات وصيانتها حال وجود خطأ من احد المستخدمين ، وآسفا اضطررت لازالة كثير من المحتويات لاصل لحجم مناسب يمكن تنزيله مع الحفاظ على سرية معلومات عملائي ، فكل المعلومات وهمية رغم قلتها فهي متكاملة لتشغيل النظام . هذه زكاة ... ما علمني ربي اتمنى منكم النصيحة و التشجيع و التواصل اخوكم نارت لبزو ( ابو آدم) SuperImp1.rar1 point
.thumb.gif.27c4a79ce23abc61b721f833e6899131.gif)
