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

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

جرب المرفق ProgLast.mdb

احتجت لتحويل عدد كبير من القوائم الي فقرات ، فقما باعداد هذا الكود ليحول القائمة الي فقرات بدمج الاسظر ووضع فاصلية بين المحتويات.، و لتفعيله اختار محتويات القائمة ثم شغل الكود. و هو يصلح لاي نوع من القوائم فى الوورد سواء كانت مرقمة او تبدأ باحدى علامات النقاط ، Numbered Lists , or Bullet points فسيقوم القوم بدمجها فى فقرة واحدة و اضافة فصلة بينها و هذا الأمر مفيد فى الأبحاث العلمية ، حيث هناك جانب كبير من المختصين لا يحبذ الإكثار من استخدام الفوائم فى كتابات البحث العلمي ، مثل الأوراق البحثية أو الرسائل العلمية. و ان كنت أرى ان القوائم اوضح كثيرا من الفقرات 😊 Sub ReplaceLineBreak() With Selection.Find .Text = "^p" 'replace with comma .Replacement.Text = ", " .Forward = True .Wrap = wdFindStop .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 End Sub

جرب غير حجم الحقل في الجدول الى مزدوج

أحسنت استاذ محمد عمل رائع جعله الله فى ميزان حسناتك

علم استاذ قاضي الان فهمت الموضوع الاستعجال شين تحياتي وتقديري لعلي احاول مره اخرى

الملف: انقر هنا وهذا رابط اخر للملف MediaFire

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

جرب هذا او ارفع مثال مصغر db.OpenRecordset("select nz(sum(mycc),0) from kaderc3 where kader_n ='" & i & "'" and empdepart =" & k)

حياك الله أخي اذننا دائما معك

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

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

لجعل الكود اسرع بحوالي 50 مرة 1-عملية Select تأخذ وقتاً طويلاً لذلك في اي كود يجب ان نتغاضى عنها قدر الامكان 2-استعمال With و End With مهمة جداً لتسريع اي كود 3-اعادة الحساب مع كل خلية تأخذ وقتاَ ايضاُ لذلك تم استعمال Calculation =Manual ليوقف البرنامج جميع العمليات الحسابية ريثما ينتهي الكود من عمله 4- اعادة Calculation الى Automatic بعد انتهاء الكود Option Explicit Sub REMOVE_DUPL_NEW() Dim S As Worksheet: Set S = Sheets("salim") Dim F2 As Worksheet: Set F2 = Sheets("Feuil2") With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With With S .Range("A1") = F2.Range("a1") .Range("a3").CurrentRegion.Clear F2.Range("a3").CurrentRegion.Copy _ S.Range("a3") .Range("a3").CurrentRegion.Value = _ .Range("a3").CurrentRegion.Value .Range("a3").CurrentRegion.RemoveDuplicates _ Columns:=Array(2, 6, 7, 8, 9, 10 _ , 11, 12, 13, 14, 15), Header:=1 End With With Application .CutCopyMode = False .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With Set S = Nothing: Set F2 = Nothing End Sub الملف مرفق Classeur3_salim.xlsm

بعد اذن استاذي واخي الغالي ابو عارف هل هذا المطلوب Tte-CL.accdb

ابو آمنة اسعد الله اوقاتك و الجميع بكل خير اخي الكريم تستطيع فعلا جلب الايميلات و تصفحها من خلال الاكسس تستطيع جلب الايميلات من خلال المعالج من خلال الشرح التالي على الرابط How To Import Outlook Email Into Access Database كذلك تستطيع جلب الايملات على قواعد البيانات و امهلني فرصة لكي اعد لك مثال و حتى ان سبقنى احد الاخوة بالحلول دمت في رعاية الله و حفظه

اخي الفاضل ملف الاستاذ سليم الاصلي يعمل جيدا وليس به اي مشكلة وكانت الصفحة الرئيسية ليس بها معادلات ملفك الحالي الصفحة الرئيسية اضفت انت اليها معادلات صفيف وغيرها الكود قام بنسخ البيانات من الصفحة الرئيسية بالمعادلات ورحلهاالى صفحةsalim طبعا المعادلات مرتبطة بخلايا منها اسم المؤسسة وغيرها لذلك لن تجد اي بيانات في صفحة سليم هذا تفسيري والله اعلم ولكن محاولة منى حتى يقوم الاستاذ سليم بالتعديل المناسب Classeur3.xls

تفضل ترقيم تلقائى متسلسل.xlsm

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

استاذي الفاضل kha9009lid بارك الله فيك وجزاك الله خيرا وجعله في ميزان حسناتك يارب نعم هذا هو المطلوب ربي يحفظك يارب يارب

جرب الكود بهذا الشكل: DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "zaher", CurrentProject.Path & "\xx.xls", True, "A7:K" DoCmd.SetWarnings False DoCmd.RunSQL "delete from zaher Where isnull([المجموع/ض]) and isnull([المجموع])" DoCmd.SetWarnings True

جرب هذا الملف Fathi.xlsx

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

إذا وجهتك مشكلة فى أداء أي من تطبيقات أوفيس 2019 على ويندوز 10 قم بتفعيل خيار Disable Hardware Graphic Accelerator من File>options >advanced>Display من خيارات اي من تطبيقات الاوفيس ، و ستنطبق عليها جميعا و جرب الاداء 😀 وبالطبع هذا لا ينطبق على جميع الأجهزة ، و لكن يناسب العديد من اجهزة اللاب توب ، و لكن من ناحية أخرى هناك أجهزة تحتاج هذه الخاصية و لا يجب ايقاف تفعيلها فيها بحسب مواصفات الجهاز ، و التجربة هي خير دليل ، اذا واجهتك مشكلة جرب إلغاء الخاصية ، و اذا لم تأت بالنتيجة المطلوبة ، أعد تفعيلها و يادار ما دخلك شر 😎