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

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

قم اخي الكريم بضغط ملفك باحد برامج الضغط ثم قم بارفاقة حيث انه متاح ارفاق ملفات لاي عضو ولكن يجب ان تكون مضغوطة فقط تقبل خالص تحياتي وفي انتار ردك

السلام عليكم بعد العديد من المحاولات أخي محمد توصلت إلى كود يقوم بتصدير الباركود كما هو: Dim objWord As Object Dim oDoc As Object Dim i As Integer Dim j As Integer Dim sTemp As String DoCmd.OpenReport "report1", acViewPreview, , , acHidden Set objWord = CreateObject("word.application") Set oDoc = objWord.Documents.Add With objWord .Visible = True .selection.Font.Name = "MW6 Matrix" .selection.Font.Size = 22 .selection.ParagraphFormat.LineSpacing = 11 .selection.ParagraphFormat.SpaceAfter = 0 .selection.ParagraphFormat.SpaceBefore = 0 .selection.InsertAfter Reports![Report1]![Text0] End With oDoc.SaveAs2 CurrentProject.Path & "\ss123.docx" objWord.Quit DoCmd.Close acReport, "report1" Set objWord = Nothing Set oDoc = Nothing Desktop10.rar

نعم أخي محمد لا يوجد حرج في أن يطلب الشخص العون من إخوته. كلنا نحتاج و كلنا نطلب العون

المعذرة لم أتمكن من إكمال المشاركة السابقة لعدم استجابة المتصفح للتحرير 2- إنشاءالوظيفة ()IsMonth وهي تعود بقيمة منطقية، وتستقبل أيضا متغير يعود بقيمة عددية من خلال الحاوية التي أنسأنها 3- يوضح هذا المقطع مستعرض المراجع؛ وهو هنا يسرد قيم الحاوية التي أنشانها 4- هي لنافذة التنفيذ السريعة ويمكن من خلالها فحص الوظفة السابقة ومدى استجابة المحث بسرد قيم حاوية أسماء الأشهر.. يجب أن تظهر هذه القيم عند كتابة الوظيفة وبعد كتابة القوس الأيسير. وهذا مثال للتوضح T004.zip

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

شاهد المرفق .. ان شاء الله به طلبك علي حسب فهمي له اسم آخر شيت تم فتحه.rar

أخي الكريم ابا جودي لم افهم المشكلة بشكل واضح لكن إليك كود اخذ صورة من الماسح الضوئي وتخزينه في مكان محدد مسبقاً على الجهاز Public Function GetScan(strFileName As String) As Boolean Dim intRes As Integer Dim dlg As WIA.CommonDialog Dim mgr As WIA.DeviceManager Dim prc As WIA.ImageProcess Dim dev As WIA.Device Dim img As WIA.ImageFile Dim imgFmt As WIA.ImageFile Dim itm As WIA.Item Dim prp As WIA.Property Dim flis As WIA.FilterInfos Dim strFullPath As String Set dlg = New WIA.CommonDialog Set mgr = New WIA.DeviceManager Set dev = dlg.ShowSelectDevice Set itm = dev.Items(1) intRes = 300 itm.Properties("Current Intent") = 4 itm.Properties("Horizontal Resolution") = intRes itm.Properties("Vertical Resolution") = intRes Set img = dlg.ShowTransfer(itm) Set prc = New WIA.ImageProcess Set flis = prc.FilterInfos prc.Filters.Add flis("Convert").FilterID prc.Filters(1).Properties("FormatID").Value = wiaFormatPNG Set imgFmt = prc.Apply(img) 'imgFmt.SaveFile "C:\test.png" ومن ثم تحت زر امر سكان ضع الكود التالي Dim x, i x = 0 For i = 1 To Nz(Me.Text1, 1) call GetScan x = x + i Next i MsgBox "تمت عملية السكان بنجاح" حيث ان Text1 هو مربع نص غير منتضم في النموذج يتم تحديد عدد مرات اخذ سكان من خلاله تحياتي

يتم نسخ ملف DLL في ملف system32 ثم تسجيلها من ال run

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

السلام عليكم ورحمة الله وبركاته على الرغم انا لا اعرف شي عن المخازن و الفاتورة لكن حسب رأيي اولا اخفاء حقل نوع الفاتورة لانه النموذج هو نموذج المشتريات ثانيا اضافة حقل اخر باسم كيفية تسديد هل نقدا ام بواسطة شيك ام اجل ثالثا اخفاء حقل سعر الشراء من نموذج الفرعي ( لكن هذا حسب طلب ) اي واحد يريد ان لا يظهر لانه مايريد يعرف حدى اي المستخدمين عن اسعار الشراء رابعا قيمة افتراضي للحقل كمية الشراء بيكون يساوي 1 لكي يظهر النتيجة مباشرتا واذا اشترى اكثر تكدر تزيده بيد خامسا قيمة افتراضي للحقل خصم بيكون صفر لكي يظهر النتيجة مباشرتا واذا تم خصم بشيء تكدر تتغير بيد سادسا لكي تخطي من الرسالة الخطأ للاكسس اكتب في بدايةة الاكواد on error resume next هذا والله يعلم تقبل تحياتي

الحمد لله هذا الاعتراض يدل على أننا عملنا على مطلوب غير المراد فالله المستعان ولكن السؤال هنا هل كنت تريد بالضغط على جديد هو تكرار آخر سجل تم ادخاله مثلا واعادة حفظه مرة أخرى أم ماذا؟ تذكرت الآن كلمة كان يكررها أخى @شيفان ركانى - فهم السؤال نصف الاجابة -

وعليكم السلام الجواب الأول: قائمة القيم السردية التي تظهر معاملات (Parameters) هي في الحقيقة معرفات يعوض عنها بقيم عددية ثابتة .. وصيغتها كالتالي Enum SecurityLevel IllegalEntry = 1 SecurityLevel1 =2 SecurityLevel2 = 3 End Enum للأهمية.. يجب أن يعلن عن هذه المعرفات في أعلى الوحدة النمطية الجواب الثاني: يمكن جعل المعاملات اختيارية بوضع الصيغة الاختيارية Optional قبل اسم المعامل.. كالتالي Function Move(Optional Left As Integer, Optional Top As Integer) If IsMissing(Left) Then '..Do Something End If End Function

السلام عليكم الاخ الحبيب / سعد عابد بارك الله فيك جمعة مباركة تقبل خالص تحياتي

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

السلام عليكم الاستاذ القدير والاخ الحبيب / جمال عبد السميع بارك الله فيك .. جمعة مباركة .. تقبل خالص تحياتي جزاك الله خيرا

السلام عليكم الاستاذ الفاضل العميد / دغيدى النظام لدي 32Bit ويعمل بشكل جيد جدا وسوف اقوم بتجربته علي جهاز 64 او يخبرنا احد الاعضاء ممن لديه نظام 64 جزاك الله خيرا

الاخت الفاضلة / سما محمد جزاكي الله خيرا

الاستاذ / جعفر ترباق الشكر دائما موصول لك جعل الله هذا العمل في ميزان حسناتك جزاك الله خيرا

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

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

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

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

تفضل أخي ابا جودي اتمنى ان يكون تعديلي مناسب لك .. طبعاً عند اخذ اكثر من صورة فانه يلزمك دالة تسمية عشوائية لكل صورة .. طبعا انا وضعت دالة تعطيك رقم عشوائي للصورة بالاضافة الى كود الموظف الذي سيكون في بداية تسمية الصورة ليكون بهذا الشكل 1_15.png انظر المرفق تحياتي test scan.zip

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

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

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

تم الابتدائى آخر حاجة.rar

استاذي ياسر خليل أبو البراء جربته وهو يعمل انظر المرفق Nouveau Archive WinRAR (3).rar

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

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

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

لو ان الموظف كان من الدرجة 2 في المرحلة 1 الجدول الثالث يعطي رقم 2-1 لو ان الموظف كان من الدرجة 10 في المرحلة 1 الجدول الثالث يعطي رقم 10-1 لو ان الموظف كان من الدرجة 3 في المرحلة 2 الجدول الثالث يعطي رقم3-2

قيد النظر ...

شكرا على ماقدمته وجزاك الله خيرا

جرب الكود بالشكل التالي Option Explicit Sub Test() Dim ws As Worksheet Dim sh As Worksheet Dim rngDates As Range Dim rngTotal As Range Dim rngFine As Range Application.ScreenUpdating = False Set sh = Feuil1 For Each ws In ThisWorkbook.Worksheets If ws.Name <> "الرئيسية" And ws.Name <> "namodaj" And ws.Name <> "طباعة" Then If ws.Name <> sh.Name Then If ws.Range("B9").Value <> "" Then ws.Range("B9:F" & ws.Cells(Rows.Count, 2).End(xlUp).Row).Copy Feuil1.Cells(Rows.Count, 9).End(xlUp).Offset(1).PasteSpecial xlPasteValues End If End If End If Next ws Application.CutCopyMode = False If sh.Range("I2").Value = "" Then Exit Sub Set rngDates = sh.Range("I2:I" & sh.Range("I2").CurrentRegion.Rows.Count + 1) Set rngTotal = sh.Range("J2:J" & sh.Range("J2").CurrentRegion.Rows.Count + 1) Set rngFine = sh.Range("M2:M" & sh.Range("J2").CurrentRegion.Rows.Count + 1) With sh.Range("E4:E" & sh.Cells(Rows.Count, 4).End(xlUp).Row) .Formula = "=SUMPRODUCT(--(MONTH(" & rngDates.Address & ")=MONTH(D4))*(YEAR(" & rngDates.Address & ")=YEAR(D4)),--(" & rngTotal.Address & "))" .Offset(, 1).Formula = "=SUMPRODUCT(--(MONTH(" & rngDates.Address & ")=MONTH(D4))*(YEAR(" & rngDates.Address & ")=YEAR(D4)),--(" & rngFine.Address & "))" .Offset(, 2).Formula = "=SUM(E4:F4)" .Resize(, 2).Value = .Resize(, 2).Value End With sh.Columns("I:M").ClearContents Application.Goto sh.Range("A1") Application.ScreenUpdating = True End Sub

سلام عليكم tstAvecValeursNull (1).zip

الاختيارات من مربعات السرد و غيرها فى النموذج تسجل فى الجدول وليس فى الاستعلام الاستعلامات - كما هو اسمها - تستخرج البيانات من الجداول بشروط

شكرا جزيلا جزاك الله خيرا للفائدة الكود رقم 1 هو كالتالي: selection.ParagraphFormat.LineSpacing=11

السلام عليكم الاخ الكريم /alaagold11 بارك الله فيك شاهد اخي الكريم المرفق المطلوب ... ان شاء الله يفي بطلبك تقبل خالص تحياتي حماية خلية معينة من التعديل فيها وظهور رسالة والرقم السري علي شكل نجوم.rar السلام عليكم لك مني اخي الكريم دعوة علي الرابط التالي تقبل خالص تحياتي

اخي الفالح غير اسماء الجداول الى الاحرف الانجليزية مع اسماء الحقول كذلك في القاعدة الاصلية ومن ثم اعمل استيراد تحياتي

من الطرق السهلة والبسيطة التي يمكن استخدامها لفعل الحدث التلقائي هو استخدام الوظيفة [DoEvents] في دوارة [Do Until] ويتم وضع الإجراء الذي يحتض هذه الدوارة عند اقلاع قاعدة البيانات وتظل الدوارة تعمل بفعل الوظيفة [DoEvents] حتى تطابق المعيار المطلوب. هذا في نظري أفضل بكثير من استخدام حدث التوقيت [OnTime] في النموذج لأنه ليس من المنطقي أو المقول برمجيا إنشاء نموذج وابقائه مفتوحا من أجل فعل إجراء معين! في المثال التالي وضعت بعض الإجراءات التي تقوم بتنفيذ استعلام التحديث في وقت أو تاريخ محدد؛ ولكي تتأكد من عمل مسابق ذكره فضلا استخدم الإجراء [()UpDateDataInTime] .. فضلا استخدم التوقيت العسكري (24) لتحديد الوقت المطلوب للتنفيذ بين علامتي تنصيص مزدوجة.. كالتالي: UpDateDataInTime("00:50:00") 'الساعة الثانية عشر وخمسين دقيقة إليك المثال RunQueryInSpecificDate.zip

سمع الله لمن دعى .. ربّنا ولك مافي القلب

( لعبة الصورة المستخبية ) علي الاكسيل - لعبة بسيطة من تصميمي .. تصلح لالعاب المسابقات للاطفال هذا العمل عمل بسيط جدا جدا ولكني وجدتها فرصة كبيرة لاتقدم بشكري وعرفاني للاساتذة الكبار بالجميل فالف مليون تحية اعزاز وتقدير لكل القائمين علي خدمة المنتدي من اساتذة وخبراء ومشرفين واعضاء الشرف والاعضاء المميزين والاعضاء والضيوف ايضا احب ان انوه في البداية .... انه في منتدي الباوربوينت موضوع باسم ( لعبة الصورة المستخبية ) للاستاذ / مجدى يونس .. جزاه الله خيرا بنفس الفكرة تقريبا وعندما رأيتها اعجبت ابنتي ( سما ) كثيرا .... علي الرابط التالي ... والفكرة في الاصل بالطبع للاستاذ / مجدي ... حقوق الطبع محفوظه ( طبعا ) http://www.officena.net/ib/index.php?showtopic=45425 ولكن لعشقي الرهيب الشديد للاكسيل فقررت ان اقوم بتصميمها علي الاكسيل وها هي بين ايديكم كل ما عليك في اللعبة هو ان تضغط علي الزر الموجود اسفل الصورة يظهر لك جزء منها وكل ضغطة يظهر جزء آخر وعندما تتعرف علي الصورة اختار اسمها من الاجابات الموجودة بالاسفل ستظهر لك الصورة بالكامل ويتم الانتقال للصورة التالية و....... اترككم مع اللعبة ...بلاش كلام كتير ..... ارجو ان تحوز علي اعجابكم ارجو من كل خبراء واساتذة واعضاء ورواد هذا الصرح العملاق ( جامعة اوفيسنا ) ابداء الرأي في هذا العمل ... جزاكم الله خيرا لعبة الصورة المستخبية - اكسيل.rar

لا تنشرها جزاك الله خير ... ادخل وحمل وستعرف !! جمعة مباركة اخواني الكرام اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين جمعة مباركة.rar

فورم بسيط لاضافة شيت اوعدة شيتات دفعة واحدة هو طلب للاخ الكريم / وليد زقزوق في موضوع وطلب له علي الرابط http://www.officena.net/ib/index.php?showtopic=49438 ولكن ما دعاني لوضعه في موضوع جديد هو ان عنوان الرابط المذكور (( كود لحذف ورقة عمل جديدة )) ********************************** فأردت وضعه في موضوع جديد بعنوان جديد للتسهيل علي من يبحث عن مثل هذه الاوامر ********************************************* وتم تنفيذ طلب للاخ الحبيب / إبراهيم ابوليله ايضا علي نفس الرابط بمنع اضافة الشيتات في حالة تكرار الاسم ارجو ان ينال اعجابكم .... ويكون فيه الافادة للجميع جزاكم الله خيرا sama-add-sheet.rar

قائمة منسدلة متعددة الألوان - اختار لون الخلفية و الحروف لكل عنصر في القائمة هو موضوع وجدته في منتدي صديق ( منتدي القدير / يحيي حسين ) للعلامة القدير / Jaafar Tribak المغربي واردت ان اضعه بين ايديكم كما هو وكما هو وضعه بالضبط وبالطبع استئذنه في ذلك ولعلمي انه شديد الحرص علي اعطاء كل معلومه لديه للآخرين فلم اتردد لحظة في نقل الموضوع الي منتدانا العملاق ليستفيد منه الجميع وسأضع الموضوع كما وضعه هو حرفيا جعله الله في ميزان حسناته ==================================================== المــــــــــــــــــوضـــــــــــــــوع ( كما هو ) ==================================================== طلب نجده كثيرا عند مستخدمي الاكسل لكن لا يوجد حل - الحمد لله هذا ما توصلت اليه مؤخرا فأرجو أن يكون مفيدا. من أراد استفسارا لكيفية عمل الكود أو وجد أي مشكلة في تشغيله فأنا ان شاء الله أكون رهن الاشارة Multicolor_Combobox.rar

اخي /م وليد بن عبدالرحيم بارك الله فيك وجزاك خيرا تقبل الله منا ومنكم صالح الأعمال بالنسبة للفيديو كان اهداء من صديق عزيز فلذلك ارفقت الرابط تقبل تحياتي

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

السلام عليكم يمكنك اخي الكريم ارفاق الملف الذي وجدته بالمنتدي ويمكن لخبراء منتدانا الرائع التعديل عليه كما تريد ان شاء الله واليك ملفان الاول للاستاذ / احمد يعقوب فكرة الحماية في هذا الملف هي كـ التالي عندفتح الملف الإكسل يتم اخفاء كل اوراق الملف ويظهر الفورد الخاص بادخال البيانات بتم ادخال رقم الموظف و اسمه و الرقم السري له اذا تطابقت البيانات الثلاثة لما نحن مسجلينه في ورقة OPTION يتم اظهار الأوراق المحددة امام اسم الشخص في ورقة OPTION ثم يتم تسجيل اسم المستخدم و يوم و ساعة الدخول = = = = = = = = = ادخل الى ورقة OPTION حدد ارقام و اسماء و الإرقام السرية وامام كل اسم حدد اسماء الأوراق التي تريد ان تسمح للمستخدم بالدخول لها فس كل مرة سوف يتم الدخول للمستخدم للأوراق التي حددتها له فقط و غير ذلك لن يستطيع الدخول لها هذه ارقام و اسماء و كلمات السر الموجودة حاليا بالملف 1 - عبدالله 1 - 1 2 - عبدالله 2 - 2 الملف الثاني : فهو للعبقري الاستاذ / الحسامي باسورد الدخول : 1111 علها ان تنفع معك اخي الكريم فورم_باسوورد_صلاحيات_المستخدمين-احمد يعقوب.zip صلاحيات-الحسامي.rar