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

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

لا تكمن المشكله فى صورة واحدة فقط انما مع مسح اكثر من ورقة دفعة واحدة adf Automatic Document Feeder

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

جرب المرفق مقارنه.mdb

بعد اذن اخي حسين هذا الكود 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.xlsm

تفضل اخي الكريم حساب التقاعد2003.mdb

أما إذا أردنا دمج الاسطر فقط دون اضافة فاصلة، بيتم استبدال السطر التالي 'replace with comma .Replacement.Text = ", " بالاتي ' replace only without comma .Replacement.Text = " "

السلام عليكم و رحمة الله و بركاته في المثال المرفق آلة حاسبة بمميزات رائعة الة حاسبة.rar

سؤال : هل يمكن حصر رموز الأخطاء التي تظهر في رسائل نظام الأكسيس ، للتعرف على وصف كل منها ، ضمن جدول و تطبيق للبحث يمكن من خلاله البحث عبر شبكة الانترنت ( Google تحديدا ) عن أسباب الخطأ و حلوله ؟ الجواب : نعم و الحل في التطبيق المرفق تنويه : الجدول يحمل 2977 رمز خطأ و و صفه باللغة الانجليزية ، هذه دعوة لتوسيع التطبيق و اضافة تراجم لأوصاف رموز الأخطاء في الجدول ، مع وصف للحلول و الحالات التي تطلق رسائل الخطأ لكل رمز ، لعموم الفائدة ، كما يمكن استخدامه كمكتبة شخصية لتجميع الملاحظات حول الاخطاء التي تواجه كل منا . و الله من وراء القصد ... NA__ErrorCodeArchive.accdb

فورم لترحيل اى عدد معين من البيانات الى صفحة الترحيلات الفيديو الصورة

أعجبتني فكرة الرجستري جرب هذا التعديل: za-font style and align-LAST.rar

السلام عليكم حسب علمي لا أظن أن هناك طريقة لإسترجاع الجداول المحذوفة لهذا السبب ينص دائما بأخذ نسخة إحتياطية من القاعدة من حين إلى آخر

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

هذه محاولة ان لم يعجبك انتظر احد الاساتدة ليجيبك Option Explicit Sub copy_list() Dim ws1 As Worksheet Dim ws2 As Worksheet Dim lr, x, r Dim rng1 Dim rng2 Application.ScreenUpdating = False Set ws1 = Sheets("main") Set ws2 = Sheets("list") With ws2 .Range("b6:c10000").ClearContents Set rng1 = .Range("g5") Set rng2 = .Range("i5") If rng1 = "" Or rng2 = "" Then Exit Sub r = 6 lr = ws1.Cells(Rows.Count, "c").End(xlUp).Row For x = 3 To lr Select Case ws1.Cells(x, "c").Value2: Case rng1 To rng2 .Range("b" & r).Resize(1, 2).Value = ws1.Cells(x, "c").Resize(1, 2).Value r = r + 1 End Select Next x End With Application.ScreenUpdating = True End Sub aaaa.xlsm

ممتاز بارك الله فيك استاذ@kha9009lid ذياده الخير خيرين مشكوررررررررررر يالغالي

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

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

جرب المرفق kera11.accdb Dim myc As Double

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

جرب المرفق ان لم يعمل فاظن ان المشكل في النظام لديك Total.xlsm

اذا انشئ استعلام اخر مبنى على نفس هذا الاستلام بدون اضافة التاريخ بحيث يكون فلتر التاريخ في الاستعلام الاول فقط تفضل الملف بعد التعديل * تم التعديل على معايير الاستعلام * تم انشاء استعلاميين Base de données4.accdb

غير الماكرو بهذا Sub TEST() Dim lr With Sheets("HR") lr = .Cells(Rows.Count, 1).End(3).Row + 1 If Application.WorksheetFunction.CountIf(.Range("A5:A10000"), .Range("y1")) > 0 _ Then MsgBox "الرقم الذي ادخاله موجود في القائمة", vbInformation: Exit Sub If .[y1] = "" Then Exit Sub .Range("a" & lr).Value = .[y1].Value .Range("e" & lr).Resize(1, 31).Value = .Range("am6").Resize(1, 31).Value End With End Sub

اخي الكريم اجعل التنسيق ارقام ثابته كما في الصورة

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

الحمدلله وصلت الى الحل احبتي الكرام

السلام عليكم اليك هذا الملف لعله يفى بالمطلوب برنامج التقرير.xlsm

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

اعتذر منك لم افهم المطلوب بشكل صحيح على كل حال لحساب المجموع التراكمي Nz(DSum("[حقل المجموع]";"الجدول";"[id]<=" & [id]);0)

تفضل جرب المرفق INI.xlsm

جرب المرفق بخصوص سعر الصرف حقل سعر الصرف اذا كان به رقم يحسب السعر الافرادي في سعر واذا كان فارغ يبقى السعر كماهو فارغ لا يساوي صفر 21.accdb

شكراً أ / نبيل على تعاونكم

بتوفيق

تفضل Database1 (1).accdb

حل رائع الاستاذ/ @د.كاف يار ولكن حسب ما فهمت من السؤال، الأخ @Alsalim1 يريد اضافة 1% كل سنة بعد تجاوز خدمة 20 سنة على 80% من أصل الراتب ، اذا كان المطلوب حسب فهمي جرب معادلة تالية: =[الراتب]/100*80+(([الراتب]/100)*IIf([مدة العمل]>20,(Nz([مدة العمل])-20),0))

وعليكم السلام تفضل هذه الفاتورة أتمنى ان تنال اعجابك وهذه أيضا فاتورة مصممة على الإكسيل وكمان هذه فاتورة خبورية مصممة على الإكسيل فاتورة احترافية.rar فاتورة مبيعات اوفيسنا.xls فاتورة خبورية.xls

اشكرك دكتور فكرة رائعة

تفضل هذا الاقتراح برنامج ارشفه.accdb

السلام عليكم أستاذ / عبد اللطيف سلوم تحياتي لك مرفق طريقة أخرى " البوم صور " Album.rar

file.rar

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

طبعا كل اساتذتى الكرام واخوانى الاحباب كفوا ووفوا جزاهم الله خيرا ومساهمة من العبد الفقيـر الى الله هذا المرفق للاستاذى الجليل ومعلمى القدير الاستاذ @أبو آدم جمال المرفق فى انه ان وجدت اكثر من طابعة يمكن فى كل مرة اختيار احداهم بكل يسر ومرونة NA_ReportPrenter.mdb

كما قال لك اخي حلبي اتفضل هذا بدون ضغط فقط اضف مجلد بجوار الملف واجعل اسمه StPic Database3 (1).accdb

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

وعليكم السلام تفضل اخى الكريم لك ما طلبت موعد استحقاق الايجار.xlsx

بارك الله فيك وجزاك الله كل خير واحسن الله اليك

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

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

وعليكم السلام تفضل فلترة بعدة شروط.xlsx

تفضل جعفر 260.الشبكة الإستدلالية للمرتبات.accdb.zip

السلام عليكم إنشاء pivot table نطاقات الدمج المتعددة.rar http://office.microsoft.com/client/helppreview.aspx?AssetId=HA102265859990&lcid=1025&NS=EXCEL&Version=12&CTT=5&origin=HP010095249 المطلوب غير واضح في أمان الله