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

السلام عليكم 🙂 اللغة العربية هي المطلوبة هنا 🙂 المرفق المضغوط فيه مجلد وبرنامج اكسس ، والبرنامج اللي يعمل لنا QR code الموجود على الرابط التالي: https://sourceforge.net/projects/zint/ ويتم حفظ الصورة هنا Data > QR_images وعلشان كل شيء يشتغل تمام ، رجاء لا تعمل تغيير في مكان الملفات ولا المجلدات ، ولا تغيير اسمائها (طبعا تقدر تعمل اللي تريد ، بس على اساسه يجب تغيير الكود كذلك) وهي النتيجة: وخلونا نشوف من يقدر يقرأ الصورة 🙂 ----------------------------------------------------------------------------- إضافة في يوم الثلاثاء 7 / 5 / 2019 : عملت مثال يعمل على 2003 🙂 ----------------------------------------------------------------------------- إضافة في يوم الجمعة 14 / 6 / 2019 : باركود بطاقة دخول الطائرة (Boarding card) وهي من نوع PDF417 اختار الحقول اللي تريدها تظهر في QR code بإختيار مربع صح/خطأ : . والنتيجة: . و باركود 128 (ويمكن عمل اي نوع من انواع الباركود) . والتقرير (وبعد اذن اخي محمد سلامه ، فقد استعملت الصورة التي استعملها في مثاله 🙂 ) . وبهذه الطريقة نرى اننا لا نحتاج ان نحفظ صورة لكل سجل (واذا اردنا ذلك ، فنعمل تعديل في الكود ليقوم بذلك). وهذا الكود مضافا اليه عمل الباركود العادي : Private Sub Make_QR_Barcode() ' 'https://sourceforge.net/projects/zint/ ' If Len(Me.str_Text & "") = 0 Then Exit Sub Dim App_Name As String Dim Output_File As String Dim Output_Text As String Dim Encoding As String Dim Command_Line As String App_Name = Chr(34) & Application.CurrentProject.Path & "\Data\zint.exe" & Chr(34) Output_Text = Chr(34) & Me.str_Text & Chr(34) 'QR code Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "QR_code.png" & Chr(34) Command_Line = App_Name & " -o " & Output_File & " --rotate=0 --eci=24 --scale=2 -w 10 --height=100 --barcode=58 -d " & Output_Text 'Debug.Print Command_Line Shell_n_Wait Command_Line, vbHide 'Barcode 128 Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "Barcode.png" & Chr(34) Command_Line = App_Name & " -o " & Output_File & " --rotate=0 -d " & Me.ID 'Debug.Print Command_Line Shell_n_Wait Command_Line, vbHide 'PDF 417 Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "PDF_417.png" & Chr(34) Command_Line = App_Name & " -o " & Output_File & " --rotate=0 --eci=24 --binary --barcode=55 --mode=3 -d " & Output_Text 'Debug.Print Command_Line Shell_n_Wait Command_Line, vbHide End Sub ----------------------------------------------------------------------------- إضافة في يوم الجمعة 22 / 6 / 2019 : تم عمل VCard QR ليخزن معلومات الشخص مباشرة في الموبايل 🙂 . وبإستخدام برامج الموبايل والتي تقرأ QR Code ، يمكنك حفظ معلومات VCard QR مباشرة في عناوين الموبايل 🙂 البرنامج zint الموجود في المرفق ، فيه امكانية عمل عدة انواع من QR والباركودات ، ولكن كل نوع من هذه الانواع له صيغة خاصة في عمله ، فمثلا كود VCArd QR هو: Function Add_Items() Dim VCard_Text As String 'clear field VCard_Text = "" VCard_Text = "BEGIN:VCARD" & vbCrLf VCard_Text = VCard_Text & "VERSION:3.0" & vbCrLf VCard_Text = VCard_Text & "N:" & Me.[Family Name] & ";" & Me.[Given Name] & ";" & Me.[Additional Name] & ";" & Me.[Name Prefix] & ";" & vbCrLf VCard_Text = VCard_Text & "FN:" & Me![Name] & vbCrLf VCard_Text = VCard_Text & "ORG:" & Me.[Organization 1] & vbCrLf VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 1 - Type] & ",VOICE:" & Me.[Phone 1 - Value] & vbCrLf VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 2 - Type] & ",VOICE:" & Me.[Phone 2 - Value] & vbCrLf VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 3 - Type] & ",VOICE:" & Me.[Phone 3 - Value] & vbCrLf VCard_Text = VCard_Text & "ADR;:" & ";;" & Me.[Address 1] & ";;;;" & vbCrLf VCard_Text = VCard_Text & "BDAY:" & Me.[Birthday] & vbCrLf VCard_Text = VCard_Text & "EMAIL;TYPE=" & Me.[E-mail 1 - Type] & ":" & Me.[E-mail 1 - Value] & vbCrLf VCard_Text = VCard_Text & "EMAIL;TYPE=" & Me.[E-mail 2 - Type] & ":" & Me.[E-mail 2 - Value] & vbCrLf VCard_Text = VCard_Text & "NOTE:" & Me.Notes & vbCrLf VCard_Text = VCard_Text & "URL:" & Me.[Website 1] & vbCrLf VCard_Text = VCard_Text & "END:VCARD" Add_Items = VCard_Text End Function والذي يختلف عن PDF417 والذي يختلف عن غيره. المرفق في ملفين بصيغة txt والذي فيهما جميع الاوامر التي يمكن استعمالها لعمل مختلف انواع الباركود 🙂 ----------------------------------------------------------------------------- إضافة في يوم السبت 2 / 11 / 2019 : هنا مثال لعمل بطاقة عمل ID.zip ، بأصغر حجم QR code (رجاء ابقاء حجمه ، فقد توصلت الى هذا الحجم والكود بعد محاولات ساعات طويلة) : . وهذا هو QR code . اما تفاصيل عمل البطاقات ، فهذا الرابط فيه تفاصيل كاملة: . جعفر ملاحظة: 1. المرفق في هذه المشاركة هو البرنامج الاخير ، وفيه جميع التعديلات التي في بقية المشاركات. 2. الـ api التي تنتظر إنتهاء الامر ، ثم تنتقل للسطر التالي في الكود اسمها ShellWait ، هذه لا تتعامل مع Unicode / utf-8 / ومنها الحروف العربية بطريقة صحيحة : http://access.mvps.org/access/api/api0004.htm بينما هذه تمام : https://github.com/xxdoc/vb6-Shell-Wait/blob/master/Shell %26 Wait v2/modShellWait.bas zint QR 3.zip ID.zip Shell_n_Wait_2021-12-13.txt.zip

تمكين كافة وحدات الماكرو بالاوفيس هذا الفيديو تم نشره في 31‏/10‏/2016 ولقد حصل على نسبةتعدت 10000 مشاهدة

جرب هذا الكود Option Explicit Sub Print_Areas() With Sheets("List") Dim lr%: lr = .Cells(Rows.Count, 1).End(3).Row With .PageSetup .PrintArea = Range("a1:I" & lr).Address .PrintTitleRows = "$1:$2" End With End With End Sub الملف مرفق ESSA_new.xls

المثــــــــــــــــال الخامس  ـــــــــــــــــــــــــــــــــــــ الدالة ( UCase) تستخدم هذه الداله لتحويل حروف النص المرر لها الى حروف كبيرة وتستخدم كالتالى (UCase(StrJudy)) وحتى نستطيع تجربة هذا عمليا نقوم بانشاء زر امر فى نموذج ونضع الكود الاتى فى حدث عند النقر Private Sub BtTestU_Click() 1 Dim StrJudy As String 2 StrJudy = "I LoVe ofFiceNa.net" 3 MsgBox (UCase(StrJudy)) End Sub لاحظ معى حالة احرف النص --- يحتوى على احرف طبيرى واخرى صغيرة I LoVe ofFiceNa.net الدالة ( LCase) تستخدم هذه الداله لتحويل حروف النص المرر لها الى حروف صغيرة - عكس السابقة  --المثـــــــــــ(العمــــــــــــــــلى)ـــــــــــــــال----------------------- 005- UCase & LCase - الحروف الكبيرة والصغيرة.mdb

عمل رائع استاذ وجيه هل ممكن تطبيق هذا على الرقم الوطني فمثلا 119730258417 حيث رقم واحد باللون الاحمر إذا كان 1 معناها ذكر و إذا 2 معناها أنثى و أما لارقام باللون الأزرق فتمثل تاريخ الميلاد 1973

المثــــــــــــــــال الثالث  ـــــــــــــــــــــــــــــــــــــ الدالة ( Trim) تستخدم لحذف الفراغات ( المسافات ) الموجودة على يمين ويسار النص وتستخدم كالتالى Trim(StrJudy) وحتى نستطيع تجربة هذا عمليا نقوم بانشاء زر امر فى نموذج ونضع الكود الاتى فى حدث عند النقر 1 Dim StrJudy As String 2 StrJudy = " I Love officena.net " 3 MsgBox (Trim(StrJudy)) لاحظ معى المسافات قبل وبعد النص " I Love officena.net " --المثـــــــــــ(العمــــــــــــــــلى)ـــــــــــــــال----------------------- 003 - Trim- حذف مسافات يمين ويسار النص.mdb

تفضل اخي form1 نموذج ادخال ضغط زر قبل التعديل البيانات سوف تذهب المعلومات الى جدول قبل التعديل ضغط زر بعد التعديل --- المعلومات سوف تخزن بجدول التعديلات بالتوفيق 28-2-2019.rar

يمكن تعبئة الخلايا الفارغة بدون (Sort) ابجدياً بواسطة هذا الماكرو Option Explicit Sub give_Data() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim last_ro# last_ro = Range("a1").CurrentRegion.Rows.Count Range("MM2").Resize(last_ro - 1).Formula = _ "=IF(AND(C2<>"""",D2<>""""),D2,INDEX($D$2:$D$" & last_ro & ",MATCH(C2,$C$2:$C$" & last_ro & ",0))" & ")" Range("D2").Resize(last_ro - 1).Value = _ Range("MM2").Resize(last_ro - 1).Value Range("MM2").Resize(last_ro - 1) = vbNullString With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف مرفق FiLL_Empty.xlsm

جرب هذا الملف لعله يفى بالغرض نسخة من النطاقات-1.xlsm

السلام عليكم ورحمة الله وبركاته مسقط التصفح : هو برنامج لقراءة صفحة الانترنت ، واستخراج اسماء الحقول ، لإرسال البيانات اليها من برنامج الاكسس ، او استيراد البيانات منها الى الاكسس وبما ان برمجة صفحات الانترنت تختلف من مبرمج الى آخر ، فبرنامجنا لن يشتغل على جميع الصفحات / المواقع ، وبالتجربة فقط نستطيع معرفة الصفحات التي يشتغل عليها البرنامج طريقة العمل: النموذج frm_browse يحتوي على (1) كائن Microsoft Web Browser (والذي لا يحتوي على جميع مكونات البرنامج الاصل Internet Explorer ، ولكنه يفي بالغرض) ، ندخل اسم الموقع في (2) حقل التحرير والسرد url_Address ، ثم نضغط على (3) الزر Go ، والذي سيفتح الموقع في النموذج ، وسيتم حفظ عنوان الصفحة ، واعطائة رقم مسلسل في الجدول tbl_url_address ، الزر (4) "احفظ csv" سيقرأ كائنات الموقع ، ويحفظها في ملف بصيغة csv (اللي ينفتح بالاكسل) ، ثم يفتح الملف ، وفيه 3 طرق لإرسال معلومات الى اي حقل تريد (يعني يعطيك الكود جاهز لكل حقل) ، والافضل استعمال الكود الذي في العمود "Usage2" ، حيث ليست جميع الحقول لها اسماء (للأسف في بعض المواقع) ، الزر (5) "احفظ في الجدول" ، حيث سيحفظ كائنات الموقع في جدول tbl_Send_Get في البرنامج ، والاصعب كان استخراج بيانات حقول التحرير والسرد من الصفحة ، والتي يتم حفظها في الجدول tbl_Options ، ولما يستخلص البرنامج جميع حقول الصفحة ، سيفتح النموذج frm_Send_Get ، الزر (6) "تجربة ارسال ، استيراد بيانات لهذا الموقع" يفتح نفس النموذج frm_Send_Get وبه كائنات الموقع واسماء الحقول (حسب اسمها في البرنامج وليس حسب ظهورها على الموقع ، فالموضوعين غير مرتبطين للأسف في برمجة الموقع) ، هنا نرى الحقول التي استطاع البرنامج التعامل معها ، (8) رقمها المتسلسل في الصفحة (والتي سنتعامل معها برمجيا لاحقا) ، (9) نوع الحقل والذي قد يختلف من صفحة الى اخرى ، (10) اسم الحقل في الصفحة (والتي سنتعامل معها برمجيا لاحقا) ، (يجب ادخال اي اسم في الحقول الفارغة) واذا كان الحقل عبارة عن مربع تحرير وسرد ، وللحصول على قيمه ، انقر على الاسم مرتين ، فينبثق النموذج frm_Options بالاختيارات (تابع الشرح لاحقا) ، هنا نستطيع تجربة اذا كان بإمكاننا ارسال/استرجاع بيانات الى/من الموقع ، فتختار اي حقل تريد التجربة عليه ، وتكتب المعلومة التي تريد ارسالها في الحقل (11) Send_Data وبالنقر المزدوج على المعلومة ، وسترى انه تم ادخالها في الحقل في صفحة الموقع الموقع ، ويمكن التأكد كذلك من امكانية قراءة معلومة الحقل بالنقر المزدوج على الحقل (14) Get_Data ، والمهم في هذه التجارب هو معرفة صيغة قبول الحقل للمعلومة ، بالنسبة لحقول التحرير والسرد وكما اشرت سابقا ، فالموضع يختلف قليلا ، لأنه مثل الاكسس ، فالمعلومة التي تراها في الصفحة في اختيار المعلومة من هذا الحقل ، ليس معناه انها نفس القيمة التي تُحفظ في الجدول ، لذلك يجب عليك النقر المزدوج على الحقل ref_Name ، فيعطيك قائمة الاختيار من النموذج frm_Options ، وبالنقر المزدوج على الحقل Opt_Value ستنتقل المعلومة الى الحقل في Send_Data النموذج frm_Send_Get ، والتي يمكن بالنقر المزدوج عليها ان ترسل المعلومة الى الحقل في الموقع (وهنا قد لا ترى التغير على الحقل في الموقع ، ولكن عندما تنقر عليه لتختار ، ستجد ان الاختيار قد تم حسب رغبتك) ، (12) يجب اختيار اي من الحقول التي تريد ان تستعملها من الموقع ، (13) وهنا تختار تسلسل الحقول التي تريد ارسال البيانات الى صفحة الموقع ، يعني تختار زر الارسال بعد اختيارك لبقية الحقول ، والحقول التي لا يهمك ترتيبها ، فدعها فارغة ، (12) و (13) هما اساس الخطوة التالية ، الى هنا وينتهي العمل مع صفحة الموقع ، والتي نختصرها: ادخل عنوان الصفحة (2) ، اضغط على (5) "احفظ في الجدول" ، جرب اذا الحقول تعمل ، ثم (12) تختار الحقول التي تريد التعامل معها ، و (13) ترتيبها ، الزر (7) "عمل نموذج ارسال ، استراد بيانات لهذا الموقع" ، وسيفتح النموذج frm_Make_Form للصفحة التي انت عليها الآن ، من هنا سيقوم البرنامج بعمل: عمل قاعدة بيانات جديدة (برنامج اكسس) خارجية متكاملة بالاسم والمسار الذي اخترته في (15) ، بالجداول والنماذج وازرار النماذج والاحداث التي على هذه الازرار ، لصفحة الموقع التي اخترتها ، للإرسال والاستيراد ، واذا هذا البرنامج تم عمله سابقا (يعني عندك برنامجك الخاص واسمه ومساره في (15)) ، فسيقوم البرنامج بإضافة الجداول والنماذج وازرار النماذج والاحداث التي على هذه الازرار ، لصفحة الموقع التي اخترتها ، للإرسال والاستيراد ، نختار اين نريد ان نعمل الجداول والنماذج وازرار النماذج والاحداث التي على هذه الازرار ، لصفحة الموقع التي اخترتها ، للإرسال والاستيراد ، الزر (16) يقوم بكل هذا العمل ، قاعدة البيانات / البرنامج الخارجي: افتح النموذج frm_web_Sites ، فيعطيك اسماء الصفحات التي قمت بعملها في (16) ، وهذا نموذج التعامل مع صفحة الموقع ، وجميع الحقول التي اخترتها في (12) موجودة هنا ، وطريقة استخدامه: قم بتعبئة البيانات التي تريد ارسالها للموقع ، واذا كان عندك زر ارسال فيجب عمل صح عليه لإستعماله ، قم بفتح المتصفح بالضغط على الزر "Open Browser" ، والذي سيفتح المتصفح Internet Explorer خارجي ، ولا علاقة لك به ، فالكود سيتعامل معه اضغط على الزر "Send Data" ، وستكون البيانات قد تم تصديرها من نموذجك ودخلت في صفحة الموقع ، او اضغط على الزر "Get Data" ، وستكون البيانات قد تم استيرادها من صفحة الموقع الى نموذجك ، وهذا جزء من الكود الموجود في النموذج ، وسترى ان تسلسل ترتيب ارسال البيانات هو حسب الاختيار في (13) ، وغالبا (99% من الوقت) لن تحتاج الى عمل تغيير في الكود: . الزر (16) فيه تُحف فنية ، فلا تتردد من الدخول في الكود والغوص فيه والخروج بلآلئ فريدة جعفر Muscat_Browsing.zip

هذه الهدية القيمة شفرة الكود المستخدمة فى استخلاص اسماء الشهور والايام اهدانى اياها ذات يوم استاذى الجليل ومعلمى القدير الاستاذ الجليل @ابوخليل ههههههه حتى ايضا الشفرة المستخدمة لعمل الاستبدال ( دالة Replace) ايضا يرجع الفضل فيها الى الله اولا ثم الى استاذى المبجل الاستاذ @ابوخليل نعم لم تكن بنفس الهيئة كانت للاستبدال رموز خاصة وعلامات وانا قمت بالتعديل الطفيف عليها لتحويل الارقام الى عربي عن طريق ال Unicode Chart ولكن لولا الله سبحانه وتعالى ثم استاذى ووالدى لما توصلت الى هذه الفكرة مميزات المرفق - موديول به كل ما يخص التاريخ وكذلك تحويل الارقام الى العربية بدون التدخل فى اعدادات النظام وبدون اى خطوط خارجية ولتكون الهدية كاملة مكملة هذا هو الموقع الذى استخدمة عندما اريد الحصول على ارقام رمز او حرف ما  https://www.ssec.wisc.edu/~tomw/java/unicode.html التاريخ.mdb

السلام عليكم يسعدنا انضمام الأخ على محمد على الي فريق الموقع أعانك الله على المسؤولية الجديدة 😃

ببارك للأخ وجيه شرف الدين الترقية لدرجة الخبراء😄 باذن الله ستكون هناك ترقيات أخرى قريبا فى القسم 😃

اسم المستخدم admin1 كلمة المرور 1123 رابط التحميل

السلام عليكم ورحمة الله تعالى وبركاته اولا لم اجد استخدام الرموز الدولية الموحدة Unicode لا فى منتديات عربية ولا اجنبية ولا ادرى ان سبقنى اليها احد من قبل فى ستخدامها داخل الاكسس ولكنه توفيق من الله بالنسبة لى وسوف اشرح طريقة التوصل الى التعامل الصريح بـعلامة ( √ ) أو علامة ( x ) فى قواعد البيانات -------------- -------------- -------------- -------------- -------------- -------------- -------------- -------------- -------------- واخيـــــــــــــ( المرفق )ـــــــــــــــرا ( √ ) أو ( x )علامة.mdb

انتظر وابشر بالخيـــر

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

function لاى شئ ؟ حدد ماذ تريد اعط مثال والله المستعان

فكرة ع الماشي ممكن نعمل قاعدة بيانات بجدول ونسميها مثلا تركر وتكون بجوار القاعدة الاساسية ويرتبط جدولها بالقاعدة الاساسية وتذهب كل معاملات التبع اليها بهذا حققنا المطلوب ولم نقع تحت طائلة كبر حجم قاعدة البيانات الاساسية يا سلام ع الافكار النيرة يا ولاد بعد الفطار

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

بعد اذن الأستاذ // علي محمد علي والأستاذ // أبو عيد الأخ الكريم الخطأ رقم 1004 إليك توضيح بسيط عنه بإيجاز (أسبابه) ------------------------------------------------------------------------------------------------------------------------ تعريفه : خطأ في التطبيق أو تعريف الكائن الوصف : هذه رسالة خطأ catch-all شائعة جدًا. لماذا يحدث ؟ : يحدث هذا الخطأ عندما لا يتطابق أحد الأخطاء مع الخطأ المحدد بواسطة VBA . بمعنى آخر ، يتم تعريف الخطأ بواسطة Excel (أو بعض الكائنات الأخرى) ويتم نشر مرة أخرى إلى VBA. ---------------------------------------------------------------------------------------------------------------------- وبما أنك لم تحدد ما هو الخطأ بالكود ال حضرتك كاتبه بطريقة النسخ واللصق ( لذا الكود غير واضح ) فالأفضل رفع الملف لتسهيل العمل عليه ----------------------------------------------------------------------------------------------------------------- أو اذا اردت التعامل مع الخطأ بنفسك قم بتشغيل الكود وعندما تظهر لك رسالة الخطأ اضغط على كلمة Debug سيقوم بفتح المحرر وسيقوم قاريء المحرر تلقائيا بتحديد سطر ووضع خلفية باللون الأصفر عليه قم بإلغاء التحديد بالضغط على أيقونة Reset ( شكلها مربع بلون ازرق) بجوار زر الـ Run الأخضر من شريط المهام بالأعلي بأيقونة ثم حاول تصحيح الخطأ

مشكوووووور كثير استاذي بارك الله فيك وجعله في ميزان حسناتك الله يزيدك من علمه ♥️

كانت الحقول الرقمية بالجدول الثانى Long Integer فقط قمت بتغيرها الى Double Acc_Naw.accdb

انا قرات الرسالة على فن راقى وردت على فن راقى

المثــــــــــــــــال السادس  ـــــــــــــــــــــــــــــــــــــ الدالة ( Left ) تستخدم هذه الداله لاستخلاص جزء من الجهه اليسرى من النص ونمرر لها وسيطين الوسيط الاول وهو source وهو النص الاصلى الوسيط الثانى وهو length هو طول النص الذى تريد استخلاصه من النص الاصلى من الجهه اليسرى من النص وتستخدم كالتالى Left(StrJudy, 6) وحتى نستطيع تجربة هذا عمليا نقوم بانشاء زر امر فى نموذج ونضع الكود الاتى فى حدث عند النقر 1 Dim StrJudy As String 2 StrJudy = "I Love (officena.net)" 3 MsgBox (Left(StrJudy, 6)) النتيجة --- I Love العكــــــــــس الدالة ( Right ) تستخدم هذه الداله لاستخلاص جزء من الجهه اليمني من النص ونمرر لها وسيطين الوسيط الاول وهو source وهو النص الاصلى الوسيط الثانى وهو length هو طول النص الذى تريد استخلاصه من النص الاصلى من الجهه اليمني من النص وتستخدم كالتالى Right(StrJudy, 14) وحتى نستطيع تجربة هذا عمليا نقوم بانشاء زر امر فى نموذج ونضع الكود الاتى فى حدث عند النقر 1 Dim StrJudy As String 2 StrJudy = "I Love (officena.net)" 3 MsgBox (Right(StrJudy, 14)) النتيجة --- (officena.net) ----------------------------------------- الطريقة الاخيرة وهى الدالة ( Mid ) عن طريق هذه الداله ممكن استخلاص نص من البداية التى تحددها والطول الذى تحدده من النص الاصلى ونمرر لها ثلاث وسطاء الوسيط الاول وهو source وهو النص الاصلى الوسيط الثانى وهو بداية الحرف فى النص الذى سوف يتم البدأ فى الاقتصاص منه الوسيط الثالث وهو length وهو طول النص الذى تريد استخلاصه من النص الاصلى بداية من الحرف الذى تم تحديده فى الوسيط الثانى وتستخدم كالتالى Mid(StrJudy, 9, 8) وحتى نستطيع تجربة هذا عمليا نقوم بانشاء زر امر فى نموذج ونضع الكود الاتى فى حدث عند النقر 1 Dim StrJudy As String 2 StrJudy = "I Love (officena.net)" 3 MsgBox (Mid(StrJudy, 9, 8)) النتيجة ---- officena.net  --المثـــــــــــ(العمــــــــــــــــلى)ـــــــــــــــال----------------------- 006- Left & Right & MId - استخلاص جزء من النص .mdb

مشكور جدا أستاذ وجيه وأن شاء الله في ميزان حسناتك

اتفضل استاذ خيرى الشيت الاستاذ خيرى.xlsx

وعليكم السلام يمكنك استخدام هذا الكود Sub Copy_Paste_Below_Last_Cell() Dim wsCopy As Worksheet Dim wsDest As Worksheet Dim lCopyLastRow As Long Dim lDestLastRow As Long Set wsCopy = Workbooks("v1.xlsm").Worksheets("Sheet1") Set wsDest = Workbooks("v2.xlsm").Worksheets("Sheet1") lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "D").End(xlUp).Row lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "D").End(xlUp).Offset(1).Row wsCopy.Range("D6:G" & lCopyLastRow).Copy _ wsDest.Range("D" & lDestLastRow) End Sub ترحيل من ملف اكسل الى اخر.rar

السلام عليكم تجنبا لكثرة النطاقات بالتسمية حسب عدد المواد، ارتأيت أن أغير طريقة تحديد القوائم المنسدلة لمعلمي المواد بتسمية واحدة Profs_Mat اعتمادا على تسميتين Cellule (قائمة المواد من العمود Y) والتسمية Mat (اسم المادة المستعمل في البيانات من العمود Z) حسب اختيار المادة من الخلية E6 المرتبطة بالتسمية Cellule... بالنسبة لخلايا "أسماء المدرسين" في الجدول تم استبدال القوائم المنسدلة فيها بمعادلات بالدالة INDEX حتى يتم تغيير هذه الأسماء (أسماء المدرسين) تلقائيا حسب اختيار المادة من الخلية E6... أرجو أن تفي هذه التعديلات الغرض المطلوب... بن علية حاجي النطاقات (2).xlsx

الف مبررررررررروك يااستاذ على ومن تقدم لتقدم

شكرا على المجهود

الله عليك استاذ سليم عمل رائع جزاكم الله خير الجزاء

جعلة الله فى ميزان حسناتك شكرا لك ا/ وجيه

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

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

الف مبروووووووووك سيادة الخبير

جرب هذا الماكرو Sub SALIM_MACRO() On Error Resume Next Columns("D:D").SpecialCells(4) _ .FormulaR1C1 = "=R[-1]C" '4 =====> xlCellTypeBlanks On Error GoTo 0 End Sub

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

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

السلام عليكم اول ما يهتم المبرمج بالحماية --- فتجد جميع المبرمجين يتفنون في حماية يرامجهم (رغم هشاشة الاكسس في الحماية ) والحمايه هنا ليست عن المبرمجين المحترفين فتبداء الحماية من الوندوز ----- وبرناج الاوفس ---- وتنتهي باللبرنامج ففي حماية البرنامج نبداء بنموذج حماية يفتح max عند تشغيل البرنامج --- وبرقم الهارد دسك (حماية من النسخ) --- اسخدام الفلاش رام كدنكل---واستخدام برامج مساعدة تزرع في الهارد دسك بدونها لا يعمل البرنامج ----- استخدام الاخفاء وجعل قاعدة البيانات مخفية هي وجميع مكوناتها عند فتحها----- تغير صيغ قاعدة البيانات ----- عمل اعدادات خاصة لملف الاكسس كي لا يفتح على وضع التصميم ---- الغاء مفتاح الشفت ---- تقسيم قاعدة البيانات وتغير صيغة الجداول وزرعها في مكان ماء في الحاسوب ---- واخرها تقريبا تحويل قاعة البيانات الى -mde---accde وهناك طرق خاصة اخرى بالتوفيق

بارك الله فيك استاذ موسى وشكرا جدا على هذا البرنامج الرائع ,ولكى تعم الفائدة فبعد اذنك طبعا سأقوم برفعه داخل المنتدى البيان_للمحاسبة.xlsm

الف مبروك للأستاذ وجيه ترقية مستحقة ان شاء الله

السلام عليكم ورحمة الله تم عمل معادلات النطاقات المطاطية باستعمال الدالة OFFSET (بالفرنسية DECALER) على أساس أن قائمة معلمي كل مادة متسلسلة (الأسماء كلها تحت بعض)... أرجو أن تفي الغرض المطلوب... بن علية حاجي النطاقات.xlsx

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

السلام عليكم ورحمة الله استخدم هذه الدالة المعرفة Function Repeat_Int(Rng As Range) For i = 1 To Len(Rng) If IsNumeric(Rng) Then If Mid(Rng, i, 1) = 1 Then p = p + 1 End If End If Next Repeat_Int = p End Function

جرب هذا .... Forum (1).mdb

الشيت ثقيل لانك تجعل الكود ينتظر ثانية واحدة في كل خطوة من خلال الدالة Wait ما مجموعه (55 × 57 =4125 ثانية اي حوالي ساعة وربع) جرب هذا الماكرو Sub salama() Application.ScreenUpdating = False Dim My_num, i#, col# Dim color_index% color_index = 1 + 18 * Rnd() For i = 3 To 55 For col = 2 To 57 Select Case Cells(i, col) Case 1: My_num = 2 Case 2: My_num = 3 Case 3: My_num = 1 Case Else: My_num = "" End Select Cells(i, col) = My_num Cells(i, col).Interior.colorindex = color_index Next Next Application.ScreenUpdating = True End Sub '=================================== 'هذا الكود للتصحيح في حال ادخال رقم مختلف بالخطأ Sub reset() Application.ScreenUpdating = False Dim i#, col# For i = 3 To 55 For col = 2 To 57 If Cells(i, col) <> vbNullString Then _ Cells(i, col) = 1 Next Next Application.ScreenUpdating = True End Sub 2030.xlsm

بص هى الفكرة دى مش عارف هتعجبك واللا لاء اولا الكود المستخدم صغير جدا جدا جدا ولكنه فعال جدا لانه يتعامل مع كل الازرار على النموذج مهما كان عددها ولكن ركز معى فى الاتى - كل زر امر يجب كتابه كود الصنف الخاص به على التاج لزر الامر هذا -يجب ان تكون اسم الصورة الخاصة بكل منتج برقم كود المنتج والذى سوف يتم كتابته على تاج زر الامر -يجب ان تكون الصور بامتداد bmp ------------------------- قطعا لا ادرى ان كانت هناك طريقة اخرى ابسط او اكواد اقل من المستخدمة فى طريقتى ولكن هذا ما جال بخاطرى ولن استطيع ان اقدم ابسط من هذا او افضل Picture Bbutton.zip

اخ حسين لا اعلم اين مشكلتك فما قام به الأخ حلبي لما طلبت بالتمام ولكن جرب Private Sub أمر4_Click() Me.form2.SetFocus DoCmd.GoToRecord , , acNewRec End Sub طبعا طبقه على المثال المرفق بالمشاركة 6 بالتوفيق

حياكم الله يا شباب شاكر كلماتكم اللطيفة بس وين الملاحظات ، وين الاسئلة!! يعني هل تم تجربة البرنامج؟ وما في استفسارات!! جعفر