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

الوحدات النمطية : Public IsUserID As String ' اعلان عن متغير عام يأخذ قيمة المعرف داخل النماذج أو التقارير Public Function RelinkIspic() 'اعلان عن اسم الوحدة النمطية Dim i, x, r As String 'اعلان عن متغيرات نصية r = IsUserID 'المتغير هذا يساوي قيمة المعرف i = mID(CurrentDb.TableDefs("tblNames").Connect, 11) ' المتغير هذا يساوي المكان البعيد الذي تتواجد به قاعدة بيانات الجداول x = Left(i, InStrRev(i, "\")) & r & ".jpg" 'اسم الملف ونوعه في المكان البعيد RelinkIspic = x 'لا تحتاج شرح End Function'اغلاق '============================================================== Public Function RelinkIsshar() Dim i, x, r As String r = "shar" ' اسم الملف i = mID(CurrentDb.TableDefs("tblNames").Connect, 11) x = Left(i, InStrRev(i, "\")) & r & ".jpg" RelinkIsshar = x End Function كما نلاحظ الوحدتين النمطيتين طبق الاصل الاولى ترجع الملف بمعلومية متغير والثانية بمعلومية اسم الملف ويتم الاستدلال على المسار بواسطة الجدول المرتبط به البعيد وكل ما علينا عمله هو نداء الدالة RelinkIspic في الاول والدالة RelinkIsshar في الثاني والمثال المرفق سيوضح الطريقة بشكل عملي حيث يشتمل على : 1- الوحدة النمطية والكودات الخاصة بربط الجداول آليا عند تغيير مكان مجلد قاعدة الجداول 2- الوحدة النمطية الخاصة برفع الملفات واستبدالها ، وستلاحظون كيف وظفنا ()RelinkIspic داخلها 3- وحداتنا النمطية الخاصة بهذا الموضوع وعملها في عرض الملفات وتوجيه النسخة الاحتياطية بعد فك الضغط عن المرفقات وتشغيل الواجهات سيطالبك البرنامج بربط الجداول وهذا كل ما عليك فعله فقط . يمكنكم بعد التطبيق بنجاح نقل المجلد فقط وتغيير مكانه للتجربة ملحوظة : بسبب نظام وندوز قد يحتاج بعض اصدارات اكسس لتفقد المكتبات وتعديلها لا تنسون اخيكم من دعوة صالحة في ظهر الغيب . أسأل ربي الكريم ان يجزيني بكرمه وفضله . قراءة مسار الشبكة آليا وربط الجداول والنسخ الاحتياطي.rar

شو رأيك اذا نتغير كودك بدل " + " و "-" نستخدم "*" اي يعني الكود بيتغير عند نقصان الى هذا Text10.Left = Text10.Left * 0.9 وعند تزايد الى هذا Text10.Left = Text10.Left * 1.1 واليك ملفك القي نظرتا اليه move.rar

شوف كودك الخطأ من وين Select Case Frame19 Case 1 Text10.Left = Text1.Left + 100 Case 2 Text10.Top = Text1.Top + 100 Case 3 End Select Text10.Width = Text1.Width + 100 End Select الخطأ من هذا السطر Text10.Left = Text1.Left + 100 Text10.Left كتبت تيكست 10 وبعدين كتبت Text1.Left تيكس 1 غيرها الى 10 تحياتي

السلام عليكم في محرر فيجوال كود فتح التقرير اضف هذا الشرط "[رقم_الوثيقة]=" & Me.رقم_الوثيقة اي الكود سيكون كالتالي DoCmd.OpenReport stDocName, acPreview, , "[رقم_الوثيقة]=" & Me.رقم_الوثيقة تحياتي

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

يعجز لساني عن شكرك استاذي ومعلمي الفاضل رمهان زادك الله من علمه وجعلك دائما تفرح قلوبنا وطبعا ماانس استاذي الفاضل Shivan Rekany علي تعبه معنا وله مني الف شكر

ما شاء الله تبارك الله ربي يزيدك من علمه وفضله الله يجزاك خير ويرحم والديك النتيجة 100/100 شكرا لك استاذي الكريم

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

Expr2: Sum([item_prais]*[QOTE_ITEM])+First([add_prais])-First([descon_combny])-First([mdfoo_ada])

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

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

معذرة نسيت أمر السيرفر استعمل هذا الكود =Replace(DLookUp("database";"msysobjects";"database is not null");Right(DLookUp("database";"msysobjects";"database is not null");Len(DLookUp("database";"msysobjects";"database is not null"))-InStrRev(DLookUp("database";"msysobjects";"database is not null");"\"));"image\" & [المعرف] & ".jpg") و هذا هو المرفق careitems.rar

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

هل المطلوب تعريب نص المسج أم عنوان المسج

يمكن حل هذه المشكلة بتثبيت أوفيس عربي أنا تظهر لي الرسالة بهذا الشكل

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

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

السلام عليكم ورحمة الله تفضلى New folder (2).rar

وعليكم السلام ورحمة الله وبركاته تمت التجربة بنجاح ,لا يسعنى الا ان اشكرك على تعبك واسأل الله ان يحفظك ويبارك فيك ويرزقك من فضله . كما لا انسى جميع الاعضاء وزوار منتدانا ان يبارك فيهم وفي اعمالهم

لقد تم تعديل العنوان أخي تشفان

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

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

ما هو المتبقي هل هو متبقي دينار او كمية اذا هو دينار اي سعر اي العملة ما اظن ان العملية في مشاركتي بيكون خطأ واذا تقول خطأ ممكن تفهمني اي تشرح لي العمل ما هو العمل وماتريد بالضبط تحياتي

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

صورة لفورم

نعم افتح نموذج على ووضع تصميم وفي حدث الحالي في محرر فيجوال اكتب Private Sub Form_Current() Dim r As Integer r = DMax("id", "table1") If r >= 10000 Then Me.AllowAdditions = False End If End Sub غير ID الى اسم رقم تلقائي لديك غير Table1 الى اسم جدول اللي هو مصدر النموذج تحياتي

اخي كاسر جرب ان تضع الكود التالي خلف الزر ادخل الصوره Private Sub cmdInsertPic_Click() Application.FileDialog(3).Show FileCopy Application.FileDialog(3).SelectedItems(1), "\\TOSHIBA\careitems\hi.jpg" End Sub ثم تاكد انها انتقلت للجهاز الاخر . لا تتاكد بانه تم عرض الصوره في المربع وانما التاكد بالذهاب للجهاز السيرفر او التي به الجداول كنت اتمنى ان المرفق احتوى على واحد من الجداول المربوطه تحياتي

استاذن من استاذنا @صالح حمادي اتفضل استخدمت هذا الكود في حقل جديد من الاستعلام eee: IIf(IsNull([Arabic_t1_med]);"ادخل الدرجة لمادة العربية";IIf([Arabic_t1_med]="غ";"غ";IIf(Val([Arabic_t1_med])<10;"دون مستوى";IIf(Val([Arabic_t1_med]) Between 10 And 12;"مقبول";IIf(Val([Arabic_t1_med]) Between 13 And 14;"جيد";IIf(Val([Arabic_t1_med]) Between 15 And 16;"جيد جدا";IIf(Val([Arabic_t1_med])>16;"ممتاز"))))))) واليك ملف بعد تعديل Copy of 016.rar

جرب هذا الماكرو Option Explicit Sub Create_TOC() Application.ScreenUpdating = False Dim wbBook As Workbook Dim wsActive As Worksheet Dim wsSheet As Worksheet Dim lnRow As Long Set wbBook = ActiveWorkbook With Application .DisplayAlerts = False .ScreenUpdating = False End With ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' On Error Resume Next Sheets("الرئيسيه").Select ActiveSheet.Range("A2:A500").ClearContents On Error GoTo 0 Set wsActive = wbBook.ActiveSheet lnRow = 2 For Each wsSheet In wbBook.Worksheets If wsSheet.Name <> wsActive.Name Then With wsActive .Hyperlinks.Add .Cells(lnRow, 1), "", _ SubAddress:="'" & wsSheet.Name & "'!A1", _ TextToDisplay:=wsSheet.Name End With lnRow = lnRow + 1 End If Next wsSheet wsActive.Activate With Application .DisplayAlerts = True .ScreenUpdating = True End With With ActiveSheet.Range("a1:a500") With .Font .Size = 16 .Bold = True .Underline = False End With .EntireColumn.AutoFit .Range("a1").Select End With Application.ScreenUpdating = True End Sub

واخيراً اتفضل هذا ارفق اي عدد تريد من المرفقات و اي نوع تريد وافتحه مباشرتا خارج القاعدة تحياتي اضافة عدة مرفقات لموظف واحد وفتح المرفق.rar

السلام عليكم شوف نكدر بواسطة ذاك الكود بنعمل اي اطار مربعات ما نريد وتكدر تتغير بكيفكم Database2.rar

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله مع التحديث الجديد .. للأسف لم أجد التوجيهات التي تم وضعها من قبل ، وهذه القواعد والأسس هامة جداً ليدرك الأعضاء كيفية التعامل مع المنتدى طبعاً الموضوع سيكون متجدد .. سيتم وضع القواعد مرة أخرى فالرجاء الرجاء أن تساعدوني في اتمام الأمر .. كل عضو يذكرني بتوجيه من هذه التوجيهات ليتم إرساء القواعد ، إذ أن نجاح أي مؤسسة يعتمد في المقام الأول على قواعد ومنهج ثابت للسير على دربه التوجيهات والقواعد التي يجب مراعاتها التوجيه الأول : قبل طرح موضوع جديد يتعلق بطلب محدد يرجى استخدام خاصية البحث أولاً ، فإذا لم يجد طارح الموضوع بغيته ، فعليه أن يقوم بطرح موضوع جديد ، وفي هذه الحالة على طارح الموضوع أن يعلم أن حسن السؤال شطر الإجابة ، فاللباقة واللياقة والكياسة من الصفات التي يجب أن يتحلى بها طالب العلم. التوجيه الثاني : عند طرح موضوع جديد ، يتم وضع عنوان مناسب للطلب بحيث يفهم الطلب قبل الإطلاع عليه ، وعلى طارح الموضوع أن يبتعد عن العناوين الغير مجدية مثل : ( طلب مساعدة - الرجاء المساعدة - ساعدوني من فضلكم - عاجل وهام - الحقوني - نداء للعباقرة - نداء للعمالقة - إلى آخر تلك العناوين ...) ، وأمر آخر ألا يكون العنوان على شكل سؤال أو طلب .. نبتعد عن كلمة "طلب" مثال تطبيقي : نفترض أنني أريد معادلة تجمع القيم في عمودين العنوان المناسب للطلب يكون بهذا الشكل : معادلة جمع القيم في عمودين والنتائج في عمود آخر التوجيه الثالث : أن يتم توضيح المطلوب بالموضوع بشكل يزال معه أي لبس ، وفي نفس الوقت يراعى الإجمال في الطلب ، فأقصر الخطوط هو الخط المستقيم ، بمعنى "لا إطالة مملة ولا اختصار مخل" ، أي لا يكون طرح الموضوع مختصر للغاية بل يجب أن يستوفي جميع العناصر المطلوبة ، ومن ضمنها أن يحدد طارح الموضوع هل الحل المطلوب بالمعادلات أم بالأكواد أم بكلاهما لتكون الأمور واضحة بالنسبة لمن يريد تقديم المساعدة ، وأن يقوم صاحب الموضوع بإرفاق ملف به بيانات وهمية لتوضيح طلبه وللوصول إلى حل سريع ودقيق ، وإذا صعب على طارح الموضوع شرح المطلوب يمكنه إرفاق بعض النتائج المتوقعة كي يسهل الوصول لحل. التوجيه الرابع : نلاحظ أن شكل المنتدى لا يعجب معظم الأعضاء ، فلما لا نغير بأيدينا الشكل العام للمشاركات ، فيفضل على سبيل المثال استخدام حجم خط كبير 22 على سبيل المثال وجعل الخط عريض Bold مما يجعل المشاركة واضحة ومقروءة بشكل جيد ، كما يمكن استخدام الألوان أي قم بتنسيق المشاركة بشكل جذاب يجعل القاريء لا ينفر منها. التوجيه الخامس : بعد الانتهاء من الموضوع والوصول لحل يرضي صاحب الموضوع ، يرجى أن يتم تحديد أفضل إجابة من خلال النقر على علامة الصح الموجودة بجانب كل مشاركة ، وأن يسجل صاحب الموضوع إعجابه من خلال النقر على "سجل اعجاب بهذا" كنوع من رد الجميل لمن قدم المساعدة ، ويمكن أيضاً أن يقوم بتقييم المشاركة تقييم إيجابي كنوع من التقدير ، وأن تشكر من قدم المساعدة فمن لم يشكر الناس لا يشكر الله. فيما يخص لو كان هناك أكثر من إجابة للموضوع ، يمكن لصاحب الموضوع عمل مشاركة جديدة يجمع فيها كل الحلول ويختار هذه المشاركة كأفضل إجابة التوجيه السادس : لا تكن لحوحاً ، يكفي أن أعضاء المنتدى يقدمون وقتهم و خبرتهم مقابل لا شيء وعندهم أعمال أخرى (مشاغلهم الخاصة) يقومون بها ، و إذا تأخر الرد ، فمن الممكن أن يكون أحد الأعضاء يقوم بمحاولة الإجابة ، وهذا يستغرق بعض الوقت خاصةً إذا كان الموضوع صعباً. التوجيه السابع : حمل الملف المرفق دون زركشات (ألوان و تنسيقات مختلفة) مما يزيد من حجم الملف و أحياناً تكون الألوان مقززة بشكل ينفر منها المساعد (خاصةً إذا كانت ألوان الخلايا غير متناسقة مع لون الخط) التوجيه الثامن : تأكد أن الملف المرفوع غير مصاب بفيروس و غير محمي بكلمة سر ، وإلا لن تجد المساعدة من قبل الأعضاء. التوجيه التاسع : متابعة صاحب الموضوع لموضوعه والتفاعل معه ، فلا يعقل أن يطرح أحدهم موضوع ولا يتابعه إلا بعد مرور وقت طويل ، فهذا يعد من اللامبالاة الغير مرغوب فيها ، والتي تنفر الجميع من العضو. التوجيه العاشر : عدم التسجيل في المنتدى بأكثر من حساب ، وأن يكون اسم الظهور باللغة العربية ومعبر عن الاسم الحقيقي أي (تعريب اسم العضو) ، فلا يجوز أن يكون اسم الظهور اسم واحد وفقط بل أن يكون ثنائي على الأقل أو أن يكون اسم ولقب ، ولذا يرجى عدم استخدام الأسماء المستعارة أو الأسماء باللغة الأجنبية ، فاللغة العربية هي هويتنا ولابد من الحافظ عليها. ** يتم تغيير اسم الظهور أو اسم المستخدم من خلال إعدادات الحساب ثم التبويب اسم المستخدم ، قم بتغيير الاسم ثم انقر كلمة حفظ التوجيه الحادي عشر : عدم طرح أكثر من موضوع لنفس الطلب من نفس العضو ، فهذا يعد مخالفة صريحة ، وليعلم العضو الذي يقوم بذلك أن تكرار الموضوع لن يجدي نفعاً في حالة عدم توضيحه للمطلوب. وفي حالة أن قام العضو بذلك عن طريق الخطأ يقوم العضو بالتنويه في الموضوع وطلب حذف الموضوع نظراً لتكراره. التوجيه الثاني عشر : على من يقدم المساعدة أن يكون مثالاً يحتذى به في العطاء والصبر والحلم وكرم الأخلاق وحسن الإجابة ، يجتذب بتلك الصفات عقول الآخرين وأفئدتهم التوجيه الثالث عشر : عند طرح موضوع يفضل أن يكون هناك طلب واحد فقط إذ أن الموضوع الذي تكثر فيه الطلبات ينفر الأعضاء الذين يريدون تقديم يد المساعدة ، وعلى رأي المثل (من يطارد عصفورين يفقدهما) فما بالك لو طاردت أكثر من طلبين أقصد أكثر من عصفورين ، يمكنك أن تتعامل بذكاء بأن تطرح الموضوع بطلب واحد حتى إذا تم على خير قم على الفور بطرح موضع جديد بطلب جديد وهكذا إلى أن يتم الأمر التوجيه الرابع عشر : يرجلا عدم إرسال رسائل خاصة للأعضاء لطلب المساعدة بشكل شخصي ، لأن هذا الأمر يضايق الكثير من الأعضاء ، وتأكد أن العضو إذا كان لديه معلومة أو يستطيع أن يفيد بشيء ووقته يسمح بذلك فلن يتأخر عنك ، يكفي أن تكتب كلمة "للرفع" في موضوعك ، ليشاهده أكبر عدد من الأعضاء. ** كيفية رفع الصور في المشاركات : ******************************* دمتم على طاعة الله

على بركة الله نبدأ أول درس و ننتظر ملاحظاتكم حول أي شيء نسيته و هو متعلق بهذا الدرس أو أي معلومة أخطأت بها: الــدرس الأول : المتغيرات تعتبر المتغيرات النواة الأساسية أو حجر الأساس بالنسبة لكل برنامج في أي لغة برمجة كانت. يعني قبل البدأ يجب أن تقوم بتعريف المتغيرات التي تحتاجها و تحدد نوعها قبل كل شيء. 11- أنواع المتغيرت: هناك العديد من أنواع المتغيرات و كل نوع يخصص له حجم معين في الذاكرة. سوف نقوم بإضافة شرح جميع أنواع المتغيرات و الحجم الذي يأخذه كل نوع من الذاكرة: String: نص يتسع المتغير النصي إلى 2 جيجا بايت و كل حرف يشغل 1 بايت Boolean: ياخذ نوعين من القيم True و False (طوله 2 بيت ) Byte: بايت يكون رقم بين 0 من 255 (طوله 1 بايت) Integer : عدد صحيح (طوله 2 بيت ) قيمته من 32768- إلى 32767 Long : عدد صحيح طويل (طوله 4 بيت) قيمته من 2,147,483,648- إلى 2.147.483.647 Signal: عدد عشري (طوله 4 بيت) قيمته من 3.402823x1038- إلى 1.401298x10-45- للقيم السالبة و من 1.401298x10-45 إلى 3.402823x1038 للقيم الموجبة Currency: عملة (طوله 8 بيت) قيمته من 922،337،203،685،477.5808- إلى 922،337،203،685،477.5807 Double : مزدوج عدد عشري (طوله 8 بيت) قيمته من 1.79769313486231x10308- إلى 4.94065645841247x10-324- للقيم السالبة. و من 4.94065645841247x10-324 إلى 1.79769313486232x10308 للقيم الموجبة Date: نوع البيانات تكون على شكل تاريخ (طوله 8 بيت) يبدأ تاريخ vba من 1/1/100 حتى 31/12/9999 Object : لتخزين الكائنات التي تحتوي على خصائص و وظائف و يتم تعيينه بجملة set ويشغل في الذاكرة 4 بايت أو حسب خصائص و وظائف الكائن المحدد. و سوف نخصص درس لعرض أنواع الكائنات. Variant : لتخزين كل الأنواع السابقة ويمكن تخزين المصفوفات بداخله أيضاً 2- طريقة الإعلان عن المتغيرات: الإعلان عن متغير يعني حجز مكان في ذاكرة الكمبيوتر باسم هذا المتغير و يحدد حجمه حسب نوع المتغير. و يتم تعريف المتغير أو الإعلان عنه بواسطة العبارة DIM . مثال: Dim A as Integer للإعلان عن أكثر من متغير: Dim a,b as integer للإعلان عن أكثرمن متغير لأنواع مختلفة في نفس السطر: Dim A As Double, B As Integer 3- ملاحظات: - - يفضل الإعلان عن نوع المتغير لزيادة سرعة التعامل معه . - - المتغيرات التي لم تحدد نوعها يعمل فيجول بيسك علي الإعلان عنها تلقائيا من النوع Variant وهو أبطأ أنواع المتغيرات . - - بالنسبة للإعلان عن أكثر من متغير من نفس النوع بالطريقة التالي: Dim a,b as integer هنا b فقط من النوع integer أما a فهو في هذه الحالة يعتبر من النوع Variant يجب أن يتم التعريف بهذا الشكل: Dim a integer,b as integer أو Dim a as Integer Dim b as Integer 4- شروط تسمية المتغيرات: - - اسم المتغير يجب أن يبتدأ بحرف . - - يمكن استعمال الحروف التي تلي الحرف الأول رقم أو حرف أو الإثنين معا. - - لا يجب أن تكون هناك فراغات بين أسماء المتغير و يمكن استعمال الشكل التالي: id_user - - يجب عدم استعمال نقطة أو رمز خاص مثل ( ؟ ، * ، ) ، ( ، /......... إلخ ) ولكن يمكن استخدام الشرطة السفلية ( _ ) - - أن لا يكون اسم المتغير من الكلمات المحجوزة في الأكسس.

تم تعديل المرفق فقط باقى الرسائل الجماعية ان شاء الله قريبا مرفق المراسلة2.rar

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

اخوانى الاحباب اليكم بعض اكواد الاكسس بالرغم انى لا اجيدها كثيرا ولكن اردت ان اعرضها عليكم لعلكم تستفيدون منها حمل ايضا من المرفقات اكواد اكسس.rar

السلام عليكم و رحمة الله و بركاته اخواني الاكارم هل توجد طريقة لتنصيب الاكسسز كاملا بدون بقية برامج الاوفيس ( سحب ملفات تنصيب الاكسسز من السيدي ) لان حزمة runtime ارهقتني كثيرا

أرفق لكم القرآن الكريم مشكلا على ملف أكسيل نفعنا الله وإياكم به Quran.rar