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

أهلا بك أخ @عبد اللطيف سلوم جرب المرفق ..... نصيحة أخ لا تكثر من استخدام الماكروا وحاول كتابة الامر vb فاتورة احترافية1.accdb

,وعليكم السلام ضع في الاستعلام هذه العبارة Expr1: Mid([SerialNumber];4;6)

لاحظ التقرير وطبق عل بقية الحقول تقرير.rar

جرب هذا .... test 5 500.mdb

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

جرب الان فاتورة احترافية.accdb

أخي الكريم حملت الملف من الميديا ... ولم أجد أي Public function

اخي @Khalf بارك الله فيك ..... على مدى يومين أحاول فهم المطلوب .... لكن يبدو كبر سني ظهر في عدم فهم المطلوب ....

بسم الله الرحمن الرحيم عليه نتوكل وبه نستعين، نحمده سبحانه كما ينبغي أن يحمد، ونصلي ونسلم على رسوله محمد وعلى آله وصحبه والتابعين . وبعد ها هو منتدانا وصرحنا أوفيسنا يضيف أقسام جديدة تضيف إلى رصيده العلمي منابر عدة للباحث العربي ، ليفتح آفاقًا رحبة للبحث العلمي في مجالات لها أهميتها البالغة في تنمية مهارات الفرد والباحث ، و يأمل منكم دعمكم وإثراءكم بمشاركاتكم ودراساتكم، ومقترحاتكم، لكي يكتب للأقسامه الجديدة النجاح والاستمرار وتتمكن من القيام بدورها الذي أنشئت من أجله. سائلين الله تعالى أن ينفع به وأن يكون عملا خالصا له سبحانه فيتصل ولا ينقطع، وأن يجازي بالخير كل من أسهم فيه ولو بكلمة طيبة. وانتهز الفرصة بالتوجه بالشكر للمهندس محمد طاهر وفريق العمل ولجميع الأعضاء بالمنتدي وشكري الخاص لأخواني الذين راسلوني على الخاص للاطمئنان علي اثناء انقطاعي عن المنتدي ونظرا لبعض الطلبات لأخواني بالمنتدي لتطوير برنامج تسجيل لروضة اطفال كنت انتهيت من فترة من بعض الاضافات الي الاصدار الأول واضافة صورة للطفل وطباعة أي دي بطاقة تعريف الطفل ولمزيد من الشرح حول البرنامج في الاصدار الأول رابط الاصدار الأول بعض الصور التوضيحية للبرنامج الملف بالمرفقات ويسعدني بتلقي ملاحظاتكم تم تعديل الملف واضافة خيار اضافة صورة من الفورم وحفظة تلقائيا KG_VII_B_Dahy.rar

بداية كل عام وانتم والأمة العربيّة والاسلامية بخير طلب مني احد الأصقاء تنظيم الديون في محله لمعرفة كل زبون ما عليه بالاضافة الى جرد ديون زبون محدد (حسب الاختيار من قائمة منسدلة) فكان هذا الملف الذي عسى ان يستفيد منه اكبر عدد من الأعضاء ورقة العمل محمية لعدم العبث بالمعادلات عن طريق الخطأ في الملف (بدون باسبوورد) تستطيع الكتابة فقط في العامودين C & D حتى الصف رقم 100 و استخدام القائمة المنسدلة في الخلية F2 لتوسيع نطاق العمل يجب التعديل على المعادلات و هذا شيء بسيط لمن يريد نطاق أكبر للعمل الأسماء في جدول الجرد مرتبّة حسب قيمة الديون تنازلياً (وهنا المعادلات تلعب دورها) اذ انه ليس مجرد SumIfs القائمة المنسدلة في F2 "مطاطة" بمعنى انها: 1-تتجاهل الفراغات 2- لا تذكر الاسم المكرر الا مرة واحدة 3- تستجيب لاي تعديل او تغيير في الجدول الرئيسي Salim_Sum WITH PROTECTION.xlsx

الدالة Left تقوم بأخذ جزء من سلسلة حرفية من اليسار الدالة Right تقوم بأخذ جزء من سلسلة حرفية من اليمين و هذا الرابط تجد به شرح مفصل للدالتين مع امثلة توضيحية: rst!f1 يمثل حقل الجدول الذي نستورد له البيانات من الملف النصي Left(rst!f1, 11) معناه أخذ 11 حرفا الأولى من قيمة الحقل f1 InStr(1, rst!f1, " ") هذا السطر يقوم بإستخراج مكان الفراغ بين رمز السلعة و الكمية من أجل تسجيل الكمية في حقل الكمية Right(rst!f1, InStr(1, rst!f1, " ")) هذا السطر يقوم بإستخراج الكمية المباعة. - من أجل سعر البيع استعمل السطر التالي: [frmSub_sra].Form![Asafi] = DLookup("Price_Sales", "[alsnaf]", "[id_sanf]='" & Left(rst!f1, 11) & "'") - من اجل سطر المجموع أضف السطر التالي: [frmSub_sra].Form![mjmo] = [frmSub_sra].Form![Asafi] * [frmSub_sra].Form![Alkmiah] ليصبح الكود بهذا الشكل: On Error Resume Next Dim req As String DoCmd.DeleteObject acTable, "zaher11" Dim PathImg As String Dim fpath As Variant With Application.FileDialog(3) .Title = "ÇÎÊÑ ÇáÊÞÑíÑ" .Filters.Clear .Filters.Add "txt", "*.txt" .AllowMultiSelect = False .InitialFileName = "d:\" If .Show = -1 Then PathImg = .SelectedItems(1) End If End With '----------------------------------------------------------- DoCmd.TransferText acImportDelim, (";"), "zaher11", PathImg req = "Delete From zaher11 where isnull(f1);" DoCmd.SetWarnings False DoCmd.RunSQL req DoCmd.SetWarnings True '---------------------------------------------------------------- Dim rst As DAO.Recordset Dim i As Integer, RC As Integer Set rst = CurrentDb.OpenRecordset("SELECT * FROM [zaher11]") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC If DCount("*", "[alsnaf]", "[id_sanf]='" & Left(rst!f1, 11) & "'") > 0 Then Me.frmSub_sra.SetFocus DoCmd.GoToRecord , , acNewRec [frmSub_sra].Form![ID_Sanf] = Left(rst!f1, 11) [frmSub_sra].Form![Sanf] = DLookup("Sanf", "[alsnaf]", "[id_sanf]='" & Left(rst!f1, 11) & "'") [frmSub_sra].Form![Alkmiah] = Right(rst!f1, InStr(1, rst!f1, " ")) [frmSub_sra].Form![Asafi] = DLookup("Price_Sales", "[alsnaf]", "[id_sanf]='" & Left(rst!f1, 11) & "'") [frmSub_sra].Form![mjmo] = [frmSub_sra].Form![Asafi] * [frmSub_sra].Form![Alkmiah] End If rst.MoveNext Next i

تسلم يا أخي ... الحمد لله رب العالمين

أهلا و سهلا بكافّة الإخوة الأعضاء و الزوّآر في موقع أوفيسينا الجميل هذا الموضوع أشرح فيه تجربتي مع حساب بايبال أمريكي فتحته منذ مارس 2016 و يشتغل حتى هذه اللحظة بدون تفعيل وثائق أخرى كالهوية الشخصية أو فاتورة ولأنه كما يعرف الجميع فإن فتح حساب بايبال جزائري أو تونسي أو اي بلد عربي يبقى محدود الصلاحيات أمام حساب بايبال أمريكي أو بلد أخر فسأشرح لكم كيفية فتح حساب أمريكي مفعل 100% بال IP الجزائري و دون الحاجة لإستخدام Proxy أو VPN و يمكن أن يدوم حسابك أشهر كما الحال في حسابي الخاص الذي فتحته منذ أشهر وأعمل به إلى الأن أرسل و أستقبل به أموال دون مشاكل. نمر إلى الطريقة مع متطلبات فتح الحساب : 1- موقع Fakenamegenerator لعمل هوية مزيفة و الذي سنأخذ منه المعلومات التالية ( الإسم – اللقب – العنوان كاملا ) 2- إنشاء email جديد (Gmail,Hotmail,Yahoo…) بإسم أجنبي سنحتاج بالتسجيل به على بايبال فيما بعد 3- تنزيل تطبيق Primo أو TextNow متوفر على Android و iOS يعطيك رقم هاتف أمريكي يرسل ويستقبل مكالمات ورسائل مجانا للولايات المتحدة لتحميل تطبيق Primo إضغط هنا و قم بوضع رقم هاتفك مع كود البلد 213XXXXXXXX+ ثم Send me the app ليصلك رابط تحميل التطبيق أو إبحث عنه في متجر التطبيقات * فتح حساب بايبال جديد أول شيئ نقوم بفتح حساب جديد بالدخول إلى https://www.paypal.com/us/webapps/mpp/home تأكد من التسجيل عبر هذا الرابط وظهور نافذة كما في الصورة أدناه (*1) و عدم الدخول إلى نطاق com. فقط لأنه سيفتح باللغة العربية و يتعرف أوتوماتيكيا على البلد "أي بلد عربي" ثم نختار Sign up for a Personal account نقوم بتعمير البيانات بمعلومات موقع Fakenamegenerator ثم نضغط على Manage communication preferences * نضيف صورة إلى الحساب تختار صورة لشخص حقيقي من Google Images والمحبذ أن يكون الوجه واضحا * نقوم الآن بتأكيد رقم الهاتف الذي أضفناه بعد الضغط على confirm your number سيصلك كود التفعيل على Primo إفتح الرسالة و أكتب الكود الذي تحصلت عليه في الخانة التالية * الأن تفعيل الإيمايل * الأن تضيف visa أو mastercard إلى حساب البايبال. لدينا 3 خيارات : - إما لديك بطاقة Mastercard Payoneer لم تقم بربطها من قبل في حساب بايبال و فيها رصيد 2$ لربطها بالبايبال - أو تفتح حساب Payoneer و تتحصل على بطاقة Mastercard مجانية وحساب بنكي أمريكي مجاني من هذا الرابط - أو تضيف Visa أو Mastercard وهمية (لن تصلح في شيئ إلا لتفعيل البايبال أي لن تستطيع شحنها أو إستخراج أموال منها و إحتمال إكتشافها من البايبال و تجميد الحساب) من هذا الرابط :www.elfqrin.com أدخل Pattern BIN : 405544xxxxxxx543 كل مرة تضغط على Generate يعطيك 3 Visa لتجربة ربطها في حسابك *إضافة بطاقة إضغط على Link a Card لإضافة معلومات البطاقة تم قبول معلومات البطاقة من أول محاولة إذا تم رفض معلومات البطاقة أعد المحاولة ببطاقة أخرى حتى يتم قبولها. *إضافة البنك إما لديك حساب بنكي في Payoneer غير مسجل من قبل في Paypal أو تفتح حساب Payoneer و تتحصل على بطاقة Mastercard مجانية وحساب بنكي أمريكي مجاني من هذا الرابط تفتح معلومات حسابك البنكي في Payoneer نضغط على Link a Bank في البايبال ثم ستظهر لك لائحة بأسماء البنوك إختر : I have a different bank نضيف معلومات البنك ثم Agree and Link في أقل من 48 ساعة سيصلك مبلغين صغيرين في Payoneer كما في الصورة : تفتح البايبال ثم تضغط على Confirm your bank ستظهر لك هذه النافذة بعد الضغط على Submit تكون قد أتممت ربط بنك بايونير بالبايبال بهذا تكون أتممت جميع مراحل التفعيل في بايبال ملاحظات : *لاتنسى الدخول إلى البايبال دائما من هذا الرابط Send Money, Pay Online or Set Up a Merchant Account - PayPal قم بحفظه في الBookmarks/Favoris في متصفحك *إذا تم تجميد الحساب بسبب ربط الفيزا الوهمية أعد نفس العملية مع إضافة بطاقة رسمية تمتلكها من أحد البنوك على الإنترنات فذلك أضمن. ملاحظة : منقول و عدم استعماله ضد المسلمين وشكرا.........................

جزاك الله كل خير أرحت قلبي و أعتذر فقد أتعبتك معي كل عام و أنت و أهلك و أحبابك و أعضاء هذا المنتدى الطيب بألف ألف خير .

للأسف .... لم أتوصل لحل

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

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

تفضل اخى الكريم سعد الملف بعد تطبيق المعادلة المرسلة سابقا عليه 1.xlsx

السلام عليكم مرحبا بك معنا أخي في منتدى أوفيسنا أولا: يجب اختيار عنوان مناسب للموضوع من أجل تسهيل المهمة للشباب لمساعدتك. (لقد قمت بتغيير العنوان) ثانيا: لقفل الإضافة و التعديل و الحذف للنموذج لاحظ الصورة التالية: للتحكم بالإضافة و الحذف و التعديل من خلال الكود استعمل ما يلي: Me.AllowAdditions = False ' منع الإضافة Me.AllowDeletions = False ' منع الحذف Me.AllowEdits = False ' منع التعديل غير False بـــ: True من أجل إتاحة التعديل و الحذف

الحمد لله أخي موفق إن شاء الله

بارك الله فيك استاذي الغالي ممتاز جدا هذا ما كنت اريده الف شكر إليك يالغالي

أو يمكنك استخدام هذه المعادلة فى الخلية J4 واسحبها لأسفل =CEILING(E4+I4,1)

رائع جزاك الرحمن كل خير وعيدكم مبارك انشاءالله

أهلا بك اخ كريم فى المنتدى من الأفضل رفع الملف نفسه لمتابعة المشكلة عن قرب بارك الله فيك-وكل عام وانتم بخير

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

اخي الكريم عبد اللطيف سلوم لك مني جـــــزيل الشكر حفظك الله ورعاك

تفضل هذا هو شكل الكود الآن: On Error Resume Next Dim req As String DoCmd.DeleteObject acTable, "zaher11" Dim PathImg As String Dim fpath As Variant With Application.FileDialog(3) .Title = "ÇÎÊÑ ÇáÊÞÑíÑ" .Filters.Clear .Filters.Add "txt", "*.txt" .AllowMultiSelect = False .InitialFileName = "d:\" If .Show = -1 Then PathImg = .SelectedItems(1) End If End With '----------------------------------------------------------- DoCmd.TransferText acImportDelim, (";"), "zaher11", PathImg req = "Delete From zaher11 where isnull(f1);" DoCmd.SetWarnings False DoCmd.RunSQL req DoCmd.SetWarnings True '---------------------------------------------------------------- Dim rst As DAO.Recordset Dim i As Integer, RC As Integer Set rst = CurrentDb.OpenRecordset("SELECT * FROM [zaher11]") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC If DCount("*", "[alsnaf]", "[id_sanf]='" & Left(rst!f1, 11) & "'") > 0 Then Me.frmSub_sra.SetFocus DoCmd.GoToRecord , , acNewRec [frmSub_sra].Form![ID_Sanf] = Left(rst!f1, 11) [frmSub_sra].Form![Sanf] = DLookup("Sanf", "[alsnaf]", "[id_sanf]='" & Left(rst!f1, 11) & "'") [frmSub_sra].Form![Alkmiah] = Right(rst!f1, InStr(1, rst!f1, " ")) End If rst.MoveNext Next i ادارح الاصناف بضغطت زر.rar

و فيك بارك الله أخي الكريم

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

متشكر جدا ربنا يعزك

أحسنت أخي الكريم بالنسبة للمثال الذي أرفقته لك هو من أجل توضيح الفكرة و يمكنك أن تتحكم بها كما تشاء في هذه الحالة إستعمل الدالة Mid مكان الدالة Left هذه تستعمل في نوع محدد من الباركود EAN-13 نعم هذه فكرة جيدة و ربما لو تستعمل خانة واحدة أفضل مثلا الرقم الذي يبدأ بــ 1 يدل على أصناف الحبة و الرقم الذي يبدأ بـــ: 2 يدل على أصناف الوزن و لي تجميعية جيدة بها العديد من الأكواد تستطيع الإستفادة منها: بالتوفيق إن شاء الله

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

تفضل ..... 1 (1).accdb

ارفق لنا النموذج بارك الله فيك

وعليكم السلام جرب هذا ...... =DCount("*";"Table1";"[add]like'*الاسلامية*'") ' يمكن استخدامها للجدول أو الاستعلام

بسم الله الرحمان الرحيم نحن حاليا نقوم بمهام حماية المواقع العربية من الاختراق و معرفة نوع السرفر المستعمل حاليا لمن يريد تأمين موقعه ماعليه الا ترك رابط الموقع و نحن نقوم بدورنا اعطائه كل التقارير عن موقعه وبالتأكيد التقارير تذهب لللخاص فقط لذا نحن معكم لترقية الموقع و الحفاظ عليه بعنوان حملة أحمي موقعك و شكرا لكم معكم المبرمج : مناد سفيان - الجزائر

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

بسم الله الرحمان الرحيم اليوم لتحميل برنامج الدالفي على الموقع التالي أخوكم في الله المبرمج : مناد سفيان الجزائر.https://www.embarcadero.com/products/delphi

بسم الله الرحمان الرحيم اليوم سأعرض عليكم برنامج CPUMon2018 بدون تعليق و شكرا لكم أخوكم في الله المبرمج : مناد سفيان الجزائر. CPUMon2018.rar

بسم الله الرحمان الرحيم اليوم سأقدم لكم لعبة جميلة وشيقة جدا و هي لعبة الأفعى أتمنى أن تنال اعجابكم و سأترككم تجربون هذا بانفسكم. مع تحياتي لكم المبرمج : مناد سفيان ............ الجزائر Snake.rar

بسم الله الرحمان الرحيم اليوم سأقدم لكم مشروع صغير و هو احتساب العمر منها العام و الشهر و اليوم سوف أرفق لكم هذا الملف البسيط ماعليك الا تسجيل تاريخ الميلاد كما في الصورة المرفقة اليكم.......................... تحميل الملف من هنا Age calculator 2018.rar مع تحياتي لكم المبرمج : مناد سفيان ............ الجزائر

وعليكم السلام ..... لعل هذا هو المطلوب واجهة الادخال بالاكسيس.accdb

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

طرق استعمالها: 1. اذا اردنا استعمال المتغير في الحدث / الوحدة النمطية فقط (يعني لا يمكن اخذ قيمتها من نماذج/تقارير/استعلامات/وحدات نمطية اخرى) ، فنستخدم: Dim UserName as string او Private UserName as string ويجب ان نستخدم Dim لكل حدث في النموذج/التقرير ، اي نعيد كتابته لكل حدث ، بينما يمكننا ان نضع Dim / Private مرة واحدة في اعلى الصفحة ، ولا تكون داخل اي حدث ، هكذا Option Compare Database Private User_Name As String 2. بينما اذا اردنا ان تكون القيمة متوفرة في جميع كائنات البرنامج ، فنستخدم التالي في وحدة نمطية (حتى ولو كانت وحدة نمطية فارغة): Public UserName as string مثال هذا ، عندما تستعمل نموذج المستخدمين ، ثم تريد الاحتفاظ باسم المستخدم في الكود ، فكل الذي تعمله هو: UserName = "jjafferr" ثم من اي مكان في البرنامج تستطيع ان تستعمل هذا المتغير UserName ، مثلا: User_Prevliage = iif(UserName = "jjafferr" , "Admin", "User") . ويمكننا ان نجعل الكود لا يعمل إلا بتعريف المتغير ، وفي الواقع هذه صعبة في البداية ، ولكن في النهاية سيكون برنامجك افضل ، وهكذا نجعل الكود يفرض علينا استعمال المعرف: . . واهمية هذه الخطوة هي عندما تريد ان تحفظ البرنامج لاحقا بصيغة mde او accde ، فيجب عليك ان: . واذا كانت المتغيرات في الكود معرّفة ، فلن تحصل على اخطاء في التحويل جعفر

على بركة الله نبدأ أول درس و ننتظر ملاحظاتكم حول أي شيء نسيته و هو متعلق بهذا الدرس أو أي معلومة أخطأت بها: الــدرس الأول : المتغيرات تعتبر المتغيرات النواة الأساسية أو حجر الأساس بالنسبة لكل برنامج في أي لغة برمجة كانت. يعني قبل البدأ يجب أن تقوم بتعريف المتغيرات التي تحتاجها و تحدد نوعها قبل كل شيء. 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 - - يجب عدم استعمال نقطة أو رمز خاص مثل ( ؟ ، * ، ) ، ( ، /......... إلخ ) ولكن يمكن استخدام الشرطة السفلية ( _ ) - - أن لا يكون اسم المتغير من الكلمات المحجوزة في الأكسس.