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

وعليكم السلام 🙂 النسخة 6 والاخيرة من VisualBasic صدرت في سنة 1998 ، وبعد 10 سنوات (اي سنة 2008) توقفت مايكروسوفت من دعم هذا البرنامج!! فلماذا تريد الرجوع الى برنامج ادى دوره وتقاعد 🙂 المنتدى فيه اقسام برمجية حديثة ، مثل vb.net من هنا https://www.officena.net/ib/ فيمكنك الاستفادة منها ، وولكن لا تنسى ان ترجع لنا بين الفترة والاخرى علشان ما ننسى بعض 😁 جعفر

VB6 حكاية عشق لا يمكن لعشاقها تركها ، وما VBA إلا بنتها

اهلا وسهلا اخي العزيز موسى اعانك الله ووفقك الرجل المناسب في المكان المناسب

مبارك أخي @Moosak انضمامك إلى فريق العمل وعساك ع القوة.

اختيار موفق وموسى يستاهل الف مبروك استاذ موسى🌹

مبروك استاذي موسى هذا لأنك متميز وخلوق أعانك الله وسدد خطاك

لاحظ انك لن تغير في المسارات والروابط في الجدول ما دامت مجلدات الملفات بجانب قاعدة البيانات فيمكنك نقل البرنامج الى اي جهاز او اي قسم داخل الجهاز نفسه العملية عبارة عن التالي : اقتطاع جزء من المسار الموجود في الجدول وهذا الجزء عبارة عن : اسم الملف / المجلد الأول / المجلد الثاني ثم نضيف اليه مسار هذه المجلدات الافتراضي طبعا سيبقى المسار في الجدول كما هو وانما نمرر المسار الجديد متغيرين عامين' Dim getfldr1, getfldr2 As String ' لاستخراج اسم الملف من الرابط الموجود في الجدول Dim i, ii i = Right(Me.LetterLink, Len(Me.LetterLink) - InStrRev(Me.LetterLink, "\")) 'استخراج اسم المجلد المباشر للملف واسم المجلد الذي قبله Dim fileName As String fileName = Me.LetterLink Dim vPathSplitter As Variant vPathSplitter = Split(fileName, "\") getfldr1 = (vPathSplitter(UBound(vPathSplitter) - 1)) getfldr2 = (vPathSplitter(UBound(vPathSplitter) - 2)) تمرير المسار الجديد' ii = CurrentProject.path & "\" & getfldr2 & "\" & getfldr1 & "\" & i فتح الملف' Application.FollowHyperlink ii التراخيص2.rar

السلام عليكم قائمة منسدلة متغيرة_3.xlsx

السلام عليكم و رحمة الله اخوتى و أحبتى اعضاء منتدى اوفيسنا الحقيقة ترددت كثيرا قبل كتابة هذا الموضوع و لعدة اسابيع و لكنى اليوم قررت ان ارتدى ثوب الشجاعة و اقدم اليكم ذلك البرنامج المتواضع و الذى كلفنى جهدا ليس بالقليل و قد اوحى الى فكرته حفيدى مازن لذا قررت ان اسمى البرنامج باسمه و فكرة البرنامج هو استعراض حروف و كلمات اللغة العربية البسيطة و التى تناسب عقلية تلميذ كى جى 1 و كى جى 2 مدعوما بالصور التى قد يعرفها الطفل فى ذلك العمر ملحوظة هامة : لابد من دعم الابوين حتى يتعلم الطفل استخدام البرنامج بنفسه و الآن على بركة الله .... اليكم البرنامج ( بعد فك الضغط لا يتم استخراج اى ملف من الفولدر) Mazen.rar

حااااااضر ولك تحياتى

اولا تمت الاجابة على سؤال هذا الموضوع ، وثانيا انا غير متخصص في رسائل الواتساب 😁 فخلينا نلتزم بقوانيم المنتدى : سؤال لكل موضوع 🙂 فعليه ، رجاء افتح موضوع جديد 🙂 جعفر

بصراحة الموضوع يحتاج الى مجهود وساحاول تجربته واطلاعكم على النتائج

تفضل ، مجموعة روابط . .

فعلا اشتغل وظهرت جميع الادوات على الشريط بعد الضغط على run والتحويل من false الى true يعمل بشكل ممتاز الله يبارك فيك ويجعله فى ميزان حسناتك ويبارك فى علمك ويرزقك يارب

وعليكم السلام ورحمة الله وبركاته أخي جمال 🙂 كجواب سريع ( لعدم وجود مرفق في مشاركتك ) .. من خصائص مربع السرد في التقرير > Data > ـ Bound Column إجعلها 2 بدل 1

بمجرد أن يكون اليوم أكبر من أو يساوي 12 غالبا تنتهي مشاكل التاريخ بسبب الخلط بين اليوم والشهر متأثرا بتنسيق نظام التشغيل. ولكن إذا قل اليوم عن 12 وهو القيمة الكبرى للشهور تبدأ أحيانا مشاكل الخلط وبالتالي اختلاف قيمة التاريخ وخصوصا إذا كتب التاريخ على شكل نص وحصره بعلامتي الرقم #. طريقتي في الاحتراز: تحويل التاريخ إلى رقم باستخدام أربع دوال كالتالي: - إذا كان التاريخ بدون وقت يمكن استخدام دالة CLng. - إذا كان التاريخ يحتوي على وقت ينصح باستخدام دالة CDbl. - إذا كان التاريخ على شكل نص مثل #10/04/2020# وهذا أخطرها ينصح باستخدام دالة DateSerial ليصبح DateSerial(2020, 4, 10). - وإذا كان على شكل نص ويحتوي على وقت مثل #10/4/2020 11:43:30 PM# ينصح بإضافة دالة TimeSerial ليصبح DateSerial(2020, 4, 10) + TimeSerial(23, 43, 30). قد يستثقلها المبرمج ويرى فيها تعقيدا ولكن كاحتراز فهي مطلوبة بشدة وخصوصا إذا كانت البرامج لها علاقة بحسابات وأمور يترتب علي أخطائها أضرارا. هذا اجتهادي وقد أكون صائبا وقد أكون مخطئا.

اخي حمدي 🙂 انصحك قراءة المشاركات التالية (ومافي داعي تقرأ بقية الموضوع) ، اللي اتكلم فيها عن طريقة معرفة اخطاء البرمجة واهمية تنسيق الكود ، وبالتالي يقلل من اخطاء المبرمج : . . . الظاهر كان عندك كود شغال ، وقمت بإضافة اجزاء عليه وبدون ان تغلق الجُمل الثلاثة اللي تحتها خط !! . انا اوقفت اسطر المربع الاصفر اللي فوق ، لأنه تكرار لنفس الاسطر في المربع الثاني ، وجميع السطور اللي اوقفتها ، وضعت امامها j ' حتى تتعرف عليها ، واوقفت هذا السطر ، لأنك لم تضع مكتبة الوندوز الخاصة بها : 'j SetForegroundWindow Application.hWndAccessApp . لا اضمن ان الكود يشتغل ، فلم ولا اعرف طريقة تشغيله ، وانت فقط تستطيع التجربة Private Sub send1_pdf() On Error Resume Next Me.y2.Enabled = False Dim IEE As Object Dim SQL As String Dim fso As Object Dim fldrname As String Dim fldrpath As String Dim Mytoname As String Dim stname1 As String Dim MyFile As String Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("email") rs.MoveLast: rs.MoveFirst Dim IE As Object DoCmd.RunCommand acCmdSaveRecord If Nz(DCount("SelectRow", "email", "SelectRow = 'R'"), 0) = 0 Then MsgBox "يجب اختيار المرسل اليه اولا", vbCritical + vbMsgBoxRight, "تنبيه" Exit Sub End If Me.myname.SetFocus If IsNull(Me.msg) Then MsgBox "لايوجد نص للارسال", vbCritical + vbMsgBoxRight, "تنبيه" Exit Sub End If If IsNull([subemail].Form![phone_number]) Then MsgBox "لايوجد رقم هاتف", vbCritical + vbMsgBoxRight, "تنبيه" Exit Sub End If Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\" & "الشهادات" If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "whatsapp://send?phone=" & rs!phone_number & "&text=" Call SendKeys("~", True) 'j If Not rs.BOF And Not rs.EOF Then 'j rs.MoveFirst 'j While (Not rs.EOF) 'j If rs.Fields("SelectRow") = "R" Then 'j Mytoname = rs.Fields(0) 'j stname1 = rs.Fields("toname") Dim strMSG As String strMSG = "*المرسل : " & Me.myname.Value & "*" & vbCrLf & vbCrLf & "*" & Me.sub1.Value & "*" & vbCrLf & "*" & vbCrLf & "*" & Me.msg.Value & "*" Debug.Print strMSG Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "whatsapp://send?phone=" & rs!phone_number & "&text=" & ReplaceLineBreaks(strMSG), vbMinimizedFocus If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) If rs.Fields("SelectRow") = "R" Then Mytoname = rs.Fields(0) stname1 = rs.Fields("toname") MyFile = CurrentProject.Path & "\الشهادات\" & "شهادة" & "-" & Mytoname & "-" & Me.y2.Column(0) & ".pdf" DoCmd.OutputTo acOutputReport, "" & Me.y2.Column(0) & "", "PDFFormat(*.pdf)", MyFile, False, "", , acExportQualityPrint Pause 2 SendKeys "~" ' إرسال المرفق إن وجد If Not IsNull(Me.attach1) Then SendKeys "+{TAB}" SendKeys "~" Pause 2 SendKeys "{UP}" ' لإرسال الصور SendKeys "{UP}" ' لإرسال الملصقات SendKeys "{UP}" ' لفتح الكاميرة SendKeys "{UP}" ' لإرسال مستند SendKeys "~" Pause 2 SendKeys Me.attach1 'like "D:\OneDrive\Print\001.pdf" SendKeys "~" Pause 2 SendKeys "~" SendKeys "{NUMLOCK}", True End If Pause 2 ' إزالة علامة الصح من أمام الرقم DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE email SET[SendStuts]='تم الارسال' , SelectRow ='T' WHERE [ID]=" & Mytoname DoCmd.SetWarnings True End If rs.MoveNext Wend End If SendKeys "{NUMLOCK}", True rs.Close Set rs = Nothing Set IE = Nothing Set IEE = Nothing ' إعادة التركيز لبرنامج الأكسس 'j SetForegroundWindow Application.hWndAccessApp MsgBox " تم الإرســــــال ", vbMsgBoxRight, "" HandleExit: Exit Sub HandleError: If Err.Number = 0 Then Exit Sub ElseIf Err.Number = -2147467259 Then ' ما قادر يركز على شاشة الواتسأب Resume Next Else MsgBox Err.Number & vbNewLine & vbNewLine & Err.Description, , "send_Click" End If Resume HandleExit Set rs = Nothing Me.y2.Enabled = True Me.y2 = "تم ارسال الشهادات بنجاح" End Sub جعفر

أنا والوقت .. كل واحد يركض على صوب 😅🖐🏼️ السمع والطاعة 🙂

الف مبروك اخى @Moosak تستاهل كل خير وربنا يعينك ع خدمه اخوانك والعطاء المستمر

وعليكم السلام ورحمة الله وبركاته 🙂 شكرا لتهانيكم وتبريكاتكم إخواني / آبائي / أساتذتي الأعزاء 🙂 🌹 يكفيني شرفاً ورفعة وجودي بينكم إخواني الأعزاء وما يزيدني هذا المنصب عنكم مقدار درجة ، فأنا منكم وإليكم والسلام عليكم 😅🖐🏼️ والشكر مرفوع للإدارة الكريمة ، والوالد والمهندس والأستاذ العزيز @jjafferr 🙂 نفعني الله بكم ، وأعاننا جميعا على حمل الأمانة 🌹🤲🏼

كلها شغالة وظاهرة معي أستاذي العزيز 🙂 فقط تنبيه بسيط وقمت بعمل تعديل بسيط على الكود : بعد التغيير من false الى true أو العكس إضغط مباشرة على Run ثم أعد التشغيل ويعمل معك بإذن الله ولمزيد فائدة أضفت للملف ماكرو جديد وظيفته أنه يمنع استخدام زر F11 واللي يقوم بإظهار الجداول والنماذج عندما تكون مخفية 🙂 أخي سامر جرب انسخ (نسخ / لصق) الماكرو والموديول اللي معاي عندك .. وإذا ما اشتغلت .. أرفق برنامجك علشان نشوف سبب المشكلة 🙂 AutoExec.accdb

الف مبروك... استاذ @Moosak وفقك الله وأعانك في مساعدتنا

ألف مبروك

استاذ/ @Moosak مبارك ان شاء الله ـ اختيار موفق من فريق الموقع وهو اهل لذلك

مبارك عليك اخونا واستاذنا @Moosak .. تستحق بالتوفيق لك

الف مليون مبروك بالتوفيق دايما 🎊🎊🎊🎊

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

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

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

الأستاذ العزيز @ابوخليل جابلك الحل للقاعدة الحالية جزاه الله خيرا .. 🙂 وكمقترح وفكرة لحل هذه القضية .. لما تستورد أي ملف في قاعدة البيانات إحفظ في الجدول الجزء اللي بعد المجلد اللي فيه قاعدة البيانات فقط .. وخلي الكود يكمل لك مسارات الملفات .. وبهذي الطريقة ممكن تنقل البرنامج لأي جهاز ثاني بدون ما تتأثر البيانات في الجدول وما يحتاج تغيرها كل مرة تنقل البرنامج .. توضيح ومثال : مثلا هذا رابط الملف كاملا (مع العلم أن ملف قاعدة البيانات موجود في المجلد الذي باللون الأخضر ): D:\MoosaKDataBase\Files\Id_Folder_564\MyWordFile.docx إحفظ في الجدول الجزء الذي باللون الأحمر فقط : D:\MoosaKDataBase\Files\Id_Folder_564\MyWordFile.docx هكذا : Files\Id_Folder_564\MyWordFile.docx ولما تحتاج تستدعي الملف تخلي هاذا الكود يكمل لك الباقي : CurrentProject.path & "\" & a وسيكون الرابط مكتملا هكذا CurrentProject.path & "\" & Files\Id_Folder_564\MyWordFile.docx وظيفة الكود الذي باللون الأزرق هو إحضار رابط المجلد الذي فيه قاعدة البيانات أينما كانت .. ويتغير بتغير موقعها من جهاز إلى آخر .. وسلامتكم 😉🖐🏼️

وعليكم السلام ورحمة الله وبركاته 🙂 انسخ هذي الدالة عندك في موديول جديد : Public Function ShowHideRibbon(ShowRibbon As Boolean) On Error GoTo ErrHandler '*********************( إخفاء/إظهار الشريط العلوي وجميع النوافذ )************************** If ShowRibbon = False Then '--------------------------------(إخفاء الريبون والنفجيشن بان) DoCmd.ShowToolbar "Ribbon", acToolbarNo ' Hide Navigation Pane: DoCmd.NavigateTo ("acnavigationcategoryobjecttype") DoCmd.RunCommand (acCmdWindowHide) '--------------------------------(جميع تضبيطات تقفيل القاعدة وإخفاء القوائم ومنع الزر الأيمن والاختصارات) Application.SetOption "Show Status Bar", False CurrentDb.Properties("ShowDocumentTabs") = False Application.SetOption "Auto compact", True Application.SetOption "Remove Personal Information", False Application.SetOption "Themed Form Controls", False Application.SetOption "DesignWithData", False CurrentDb.Properties("AllowDatasheetSchema") = False Application.SetOption "CheckTruncatedNumFields", False CurrentDb.Properties("AllowFullMenus") = False CurrentDb.Properties("AllowShortcutMenus") = False ElseIf ShowRibbon = True Then '--------------------------------(إضهار الريبون والنفجيشن بان) DoCmd.ShowToolbar "Ribbon", acToolbarYes 'Unhide the navigation pane On Error Resume Next Call DoCmd.SelectObject(acTable, , True) Call DoCmd.SelectObject(acMacro, , True) Call DoCmd.SelectObject(acForm, , True) On Error GoTo ErrHandler '--------------------------------(فتح خصائص قاعدة البيانات وإظهار القوائم وتفعيل الزر الأيمن والاختصارات) Application.SetOption "Show Status Bar", True CurrentDb.Properties("ShowDocumentTabs") = True Application.SetOption "Auto compact", True Application.SetOption "Remove Personal Information", True Application.SetOption "Themed Form Controls", True Application.SetOption "DesignWithData", True CurrentDb.Properties("AllowDatasheetSchema") = True Application.SetOption "CheckTruncatedNumFields", True CurrentDb.Properties("AllowFullMenus") = True CurrentDb.Properties("AllowShortcutMenus") = True End If '--------------------------------------------------------------------------- ErrHandler: If Err.Number <> 0 Then MsgBox Err.Number & " \\\\\ " & Err.Description, , "Function: ShowHideRibbon" Resume Next Else Exit Function End If End Function هذي الدالة تخفي لك الشريط العلوي والجداول وجميع العناصر وغيرها .. بعدين أعمل ماكرو جديد واحفظة باسم Autoexec ( ضروري التسمية تكون نفسها بالحرف ) افتح الماكرو واعمل فيه أمر RunCode ونادي الدالة هكذا : =ShowHideRibbon(False) وإذا بغيت تغير رايك وتظهر الشريط العلوي وبقية العناصر تغير ال False إلى True ثم تشغل الماكرول بالضغط على RUN وبعدها تعيد تشغيل البرنامج .. << المرفق >> https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=216275&key=be0665907152bc7f887f7580f9fc9983

أنصحك بال #C .. 😊👌🏼 والمنتدى موجود .. بس محتاج تفعيل حبتين https://www.officena.net/ib/forum/183-cnet/

Try this version Sub Test() Const iFirstRow As Long = 1, iFirstColumn As Long = 1, iLastRow As Long = 20, iLastColumn As Long = 5 Dim wb As Workbook, ws As Worksheet, r As Range Application.ScreenUpdating = False Application.DisplayAlerts = False Set ws = ActiveSheet Set r = ws.Range(ws.Cells(iFirstRow, iFirstColumn), ws.Cells(iLastRow, iLastColumn)) Set wb = Workbooks.Add(xlWBATWorksheet) With wb ws.Copy Before:=.Worksheets(1) .Worksheets(2).Delete With .Worksheets(1) .Range(r.Address).Value = .Range(r.Address).Value .Rows(iLastRow + 1 & ":" & .Rows.Count).Delete .Columns(iLastColumn + 1).Resize(, .Columns.Count - iLastColumn).Delete .Name = ws.Name End With .SaveAs ThisWorkbook.Path & "\Output", 51 .Close 0 End With Application.DisplayAlerts = True Application.ScreenUpdating = True MsgBox "Done", 64 End Sub Change the first line in the code to suit the range you desire. In my case this range is A1 to E20

السلام عليكم ورحمة الله لا يصلح لا التنسيق الشرطي ولا المعادلات لحل هذه الحالة... قمت بإنشاء كود بسيط يقوم باستبدال الحرفين "م" و "غ" بالكلمتين "مجاز" و "غائب" على الترتيب... أما رقم 0 فيكفي تخصيص تنسيق على الرقم 0 (تجد ذلك في الملف المرفق)... أرجو أن يفي ذلك المطلوب... تنسيق مشروط.xlsm

هل تقصد كمثال الخلية D9 عندما تكتب حرف ال غ تتحول تلقائي إلى كلمة غائب أم ماذا ؟؟

وعليكم السلام ورحمة الله وبركاته،، سلمت يمناك،، لا عدمناك أستاذنا القدير،،

السلام عليكم في النموذج fauthor اسماء احتاج عند الضغط دبل كلك على اي اسم موجود يتم البحث عن الاسم في محرك البحث كوكل sgoogle.accdb

تفضل هل هذا ما تريد Dim myLink As String myLink = "https://www.google.com/search?q= " & Me.authorname Application.FollowHyperlink (myLink)

اشكر الجميع علي حسن التعامل وجميل التعاون

ارسل تصور للنتائج تم عمل تقرير Pivot Tabels عمود id_Ccallg اساس وشرط العد لكل الاعمده عد وليس جمع القيم

Try this code Sub Test() Dim wb As Workbook, ws As Worksheet, sh As Worksheet, r As Range Set ws = ActiveSheet Set r = ws.Range("A1:L50") Set wb = Application.Workbooks.Add With wb Set sh = .Worksheets(1) r.Copy sh.Range("A1") sh.Range(r.Address).Value = sh.Range(r.Address).Value Application.DisplayAlerts = False .SaveAs ThisWorkbook.Path & "\Output", 51 Application.DisplayAlerts = True .Close 0 End With End Sub

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم اليك المثال اخي الكريم Database4.accdb

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

لعل هذا يكون المطلوب المصنف1.xlsx

السلام عليكم مرفق حل بالمعادلات فقط (شرط ان لا تتكرر اسماء الدول فى السطر رقم 2) قوائم منسدلة ديناميكية.xlsx

شكرا أخي صالح في الواقع انا لم ادرس البرمجة (نعم مادة الفورتران في بداية دراستي الجامعية) ، ولم ادخل في تدريب ، وحتى ما عندي رخصة سواقة الحاسوب وانما كل الذي عندي من تجارب عملية ، لذلك ترى الفرق واضح من طريقة عرضك للموضوع ، وطريقة عرضي جعفر

مثال على استعمال And: If UserName="أبو خليل" And Password=2017 Then MsgBox"مرحبا أستاذ أبو خليل" End If في هذا المثال إذا كان اسم المستخدم هو أبو خليل و كلمة المرور هي 2017 سوف يقوم البرنامج بعرض رسالة ترحيبية MsgBox"مرحبا أستاذ أبو خليل" و إذا إختل أحد الشرطين فلن يتم تنفيذ التعليمة. يعني لتنفيذ التعليمة يجب تحقق الشرطين في نفس الوقت. مثال على استعمال Or: If Died_Father=true Or Died_Mother=False Then MsgBox "يتيم" End If في هذا المثال يكفي تحقق أحد الشرطين ليتم تنفيذ التعليمة (رسالة تخبرنا بأن هذا الشخص يتيم) و إذا تحقق الشرطين معا أيضا يتم تنفيذ التعليمة إذا هناك شخص أبوه متوفي فهو يتيم و إذا كانت أمه متوفية فهو يتيم و إذا كان كلا والديه متوفيين فهو أيضا يتيم. ((((((اللهم أرحم جميع موتى المسلمين يا أرحم الراحمين يا رب العالمين))))))

ملاحظاتك ممتاز و في محلها و متممة للمعنى ربما هنا من يستعمل اللغة العربية في تعريف المتغير بهذا الشكل : Dim الرقم_الأول As Integer ملاحظة: - القيمه الإفتراضية للمتغيرات النصيه هي فراغ " " - أما القيمه الإفتراضية للمتغيرات الرقميه هي صفر 0

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