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

السلام عليكم 🙂 اعمل زر في النموذج الرئيسي علشان يتحكم في النموذج الفرعي ليذهب للسجل التالي ، وضع عليه هذا الكود : اسم النموذج الفرعي.SetFocus DoCmd.GoToRecord , , acNext جعفر

وعليكم السلام اخوي خلف 🙂 من زمان ما سمعنا منك ، ان شاء الله تكون في صحة وعافية 🙂 من اللي قرأته ، ومن تجربة سابقة ، مو كل الاوامر متاحة للتحكم في الاكسل من الاكسس ، اذا استعملت : Dim xlApp As Object فيجب ان لا تستعمل هذه الطريقة ، وانما بدلا عنها ، تستخدم المكتبة : Microsoft Excel x.xx object Library ولكن ، هناك دائما اوامر وطرق اخرى للوصول الى مبتغاك ، والمشكلة عندك في الجزء الاخير من السطر : end(xlup).row لذا انصحك تبحث في الانترنت عن هذه الجزئية فقط ، وايجاد البديل 🙂 جعفر

واقتراح : الوحدة النمطية بحاجة الى الحقول اللي فيها ارقام فقط مثل zey_en_1 ، وليست بحاجة الى الحقول اللي فيها نعم لا مثل es_en_1 ، فإذا الحقول zey فيها قيمة ، فهي زيادة ، واذا مافيها قيمة ، فهي لا 🙂 جعفر

الاخ Mahmoud Atef شاهد المرفق Complaints_1.rar

أ.ramy145236 من وجهة نظرى المحدودة التقارير مخصصة للطباعة أكثر منها للمعاينة ولذلك فالتحكم بشكلها يكون محدودا جدا (إن لم يكن لمروِّض الأكسيس رأى آخر)بالنسبة للنماذج ولكن قم بالإعدادات التاليه إن لم يكن معمول بها أصلا 1- إجعل Pop Up = Yes 2- فى حدث On Open ضع الأمر التالى DoCmd.Maximize 3- يفضل إستخدام طابعة واحدة لكل الأجهزة فالتقارير تعتمد بشكل كبير على إعدادات الطابعة وإن لم يفى بالغرض فقم بتحويل التقرير الى ملف PDF مع غلق التقرير وفتح ملف PDF فور الإنتهاء من تنفيذه هذا والله أعلم بالتوفيق

تفضل لك ما طلبت هذه الأكواد فى مديول عادى Sub hide_menu() Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)" End Sub Sub show_menu() Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",True)" End Sub وهذا الكود فى حدث ThisWorkBook Private Sub Workbook_Open() hide_menu End Sub وذلك كما بالملف Hide.xlsm

شكرا على التوضيح 🙂 جعفر

السلام عليكم ورحمة الله تم إضافة الكود (البسيط) التالي في كود حدث الشيت "قائمة" (لتحديث الحساب عند تحديد إحدى خلايا العمود E): Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$E$" & ActiveCell.Row Then Calculate End Sub أرجو أن يفي الغرض المطلوب... بن علية حاجي ملف اكسل.xlsm

تستطيع قفل محرر الأكواد بكلمة سر من التبويب Tool التبويب الفرعي Protection

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

تفضل ، بتغيير في الوحدة النمطية ، بحيث الزائد صار له متغير مختلف عن الـ لا 🙂 . Option Compare Database 'حساب مستوى الدرجة Function zyd_1(a, b, c, d, e, f) As String 'a = المجموعة النوعية Dim A_1, E_1, D_1, A_2, E_2, D_2 As String 'اللغة العربية If a > 0 Then A_1 = "زيادة في اللغة العربية " & a & " درجة" ElseIf d = "لا" Then A_2 = " لم يزد في اللغة العربية " End If 'اللغة الأجنبية If b > 0 Then E_1 = "زيادة في اللغة الأجنبية " & b & " درجة" ElseIf e = "لا" Then E_2 = " لم يزد في اللغة الأجنبية " End If 'الدراسات If c > 0 Then D_1 = "زيادة في الدراسات " & c & " درجة" ElseIf f = "لا" Then D_2 = " لم يزد في الدراسات " End If 'الدمج 'الزيادة zyd_1 = "" If Len(A_1) > 0 Then zyd_1 = A_1 End If If Len(E_1) > 0 Then zyd_1 = zyd_1 & " و " & E_1 End If If Len(D_1) > 0 Then zyd_1 = zyd_1 & " و " & D_1 End If 'لم تزد If Len(A_2) > 0 Then zyd_1 = zyd_1 & " و " & A_2 End If If Len(E_2) > 0 Then zyd_1 = zyd_1 & " و " & E_2 End If If Len(D_2) > 0 Then zyd_1 = zyd_1 & " و " & D_2 End If 'اذا في واو في بداية الجملة فلا تقرأها If Left(zyd_1, 3) = " و " Then zyd_1 = Mid(zyd_1, 4) End If End Function جعفر 1162.1.tzalom.mdb.zip

وعليكم السلام 🙂 تفضل : . وهذه الوحدة النمطية بعد التعديل : Option Compare Database 'حساب مستوى الدرجة Function zyd_1(a, b, c, d, e, f) As String 'a = المجموعة النوعية Dim A_1, E_1, D_1 As String 'اللغة العربية If a > 0 Then A_1 = "زيادة في اللغة العربية " & a & " درجة" ElseIf d = "لا" Then A_1 = " لم يزد في اللغة العربية " End If 'اللغة الأجنبية If b > 0 Then E_1 = "زيادة في اللغة الأجنبية " & b & " درجة" ElseIf e = "لا" Then E_1 = " لم يزد في اللغة الأجنبية " End If 'الدراسات If c > 0 Then D_1 = "زيادة في الدراسات " & c & " درجة" ElseIf f = "لا" Then D_1 = " لم يزد في الدراسات " End If 'الدمج zyd_1 = "" If Len(A_1) > 0 Then zyd_1 = A_1 End If If Len(E_1) > 0 Then zyd_1 = zyd_1 & " و " & E_1 End If If Len(D_1) > 0 Then zyd_1 = zyd_1 & " و " & D_1 End If 'اذا في واو في بداية الجملة فلا تقرأها If Left(zyd_1, 3) = " و " Then zyd_1 = Mid(zyd_1, 4) End If End Function جعفر 1162.tzalom.mdb.zip

جرب هذا الكود Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$A$2" And Target.Count = 1 Then Call find_Please(Me, Range("a2")) End If Application.EnableEvents = True End Sub '++++++++++++++++++++++++++++ Sub find_Please(SH As Worksheet, Rg) Dim Principal As Worksheet Dim Ro%, m%: m = 4 SH.Range("A4:E" & Rows.Count).Clear Set Principal = Sheets("serch") For Each SH In Sheets If SH.Name <> Principal.Name Then On Error Resume Next Ro = SH.Range("c:c").Find(Rg, lookat:=1).Row On Error GoTo 0 If Ro > 0 Then Principal.Cells(m, 1).Resize(, 5).Value = _ SH.Cells(Ro, 1).Resize(, 5).Value m = m + 1 End If End If Next If m = 4 Then _ MsgBox "Current Account Not Found": Exit Sub With Principal.Range("A4:E" & m - 1) .Borders.LineStyle = 1 .Font.Bold = True .Font.Size = 14 .HorizontalAlignment = 2 .VerticalAlignment = 2 .Interior.ColorIndex = 24 .InsertIndent 1 End With End Sub الملف مرفق Search_Account.xlsm

فورم التنقل بين الشيتات مع البحث والاضافة والتعديل والحذف الفيديو

شكراً استاذنا الكريم/ سليم على وقتك وجهدك .. بارك الله فيك

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

بعد اذن الاخ علي يمكن ايضاً استعمال هذه المعادلة =SUMPRODUCT(IF(FREQUENCY($D$5:$D$16,$D$5:$D$16),$D$5:$D$16))

أشكرك لذوق حضرتك ولك بمثل ما دعوت

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

حياك الله 🙂 ومبارك لك جهودك للمضي قُدما ، بدون استسلام 🙂 انا كذلك لا الجئ الى المكتبات لنفس السبب 🙂 جعفر

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

وعليكم السلام ورحمة الله وبركاته اخي الكريم غير خاصية الحقول التي تريد الزام تعبئتها الى مطلوب / Required الى نعم كما في الصورة تحياتي

ما فهمت قصدك !!

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

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

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

جزاك الله خيرا اخى واستاذى @jjafferr

ذلك امر فى غاية البساطة ,يمكنك زيادة النطاق كما تشاء والى اى مدى تريد ثم بعد ذلك الضغط على Ctrl+Shift+Ener وذلك اذا كانت المعادلة مصفوفة

@Khalf شكرا الك استاذ تم القفل

كي تعمل معك القائمة المنسدلة غادر الصفحة وعد اليها مجدداً

اخي الفاضل بمجرد ان تفتح الالة الحاسبة وتستعمل الكود ، صحيح ما يشتغل ، ولكنك لو تتبعت الخطوات اللي اعطيتك ونظرت في قائمة مدير المهام ، لرأيت بأن مايكروسوفت غيروا اسم الالة الحاسبة في الوندوز الجديد ، والملف الجديد مو تنفيذي (يعني ماهو بصيغة exe) لذلك فلا يمكن اغلاقه بهذه الطريقة !! جرب الكود على اي من البرامج الاخرى ، فهو شغال ، وجربته قبل شوي مع برنامجين مختلفين !! هل تقصد ان النيترو يشتغل داخل نموذج في برنامج الاكسس ؟ اذا كان كذلك ، فيجب اغلاق النموذج او تغيير ملف الملف المفتوح وفتح ملف آخر ، ثم حذف الملف المطلوب. اخي الفاضل ، ياريت يكون عندك توضيح وبالتفصيل ، لأنه بعد حوالي شهر من وضعك للسؤال فهمت الآن (وان شاء الله فهمي صحيح!!) ان النيترو تفتحه في نموذج في برنامج الاكسس !! جعفر

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

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

الله يطول في عمرك اخوي ، هذا كان مثال ، والمثال يُغلق البرنامج calc.exe وهو الآله الحاسبه !! لذلك ، بدل هذا الاسم ، يجب ان تعرف اسم برنامجك ، ثم تستعمل اسم برنامجم بدل الاسم الموجود بالخط الاحمر ، ولمعرفة ايش اسم برنامج النيترو ، انظر الى هذا المثال (انا ما عندي نيترو علشان اعرف الاسم) : من شريط المهام اسفل الشاشة ، انقر بالفأرة اليمين ، فترى النافذة التالية : . فاذا اردنا معرفة اسم برنامج irfanView (المؤشر عليه بالسهم) (انت لازم تؤشر على اسم برنامج النيترو) ، وتنقر عيه بالفأرة اليمين ، ثم الاعدادات : . فنرى اسم البرنامج . استخدم اسم النيترو بدل الاسم باللون الاحمر في الكود ، ثم جرب برنامجك 🙂 جعفر

برنامج للامانة لا اعرف من قام بتصميمه اضعه بين ايديكم للفائدة مثال للتعامل مع الصور.accdb

نفس الملف بواسطة الماكرو اذا كنت تريد الماكرو Option Explicit Sub Plus_num() Range("H2").Copy Range(Range("A2"), Range("A2").End(4)). _ PasteSpecial , Operation:=2 Application.CutCopyMode = False Range("A2").Select End Sub '+++++++++++++++++++++++++++++++++++++++++ Sub Minus_num() Range("J2").Copy Range(Range("A2"), Range("A2").End(4)). _ PasteSpecial , Operation:=3 Application.CutCopyMode = False Range("A2").Select End Sub aa.xlsm

السلام عليكم انظر للملف المرفق اخي الكريم وحسب ماطلبت اعلمنا ملاحظاتك تحياتي test.rar

السلام عليكم انظر للمرفق الاسم : kh كلمة المرور: 12345 q.rar

تفضل اخي الكريم انظر الى حقل اجمالي الاجازات وحقل عدد الاجازات المتبقية بالنموذج مثال(6).rar تحياتي

ابحث عن محول pdf يدعم اللغة العربية

اتفضل اخى مثال عاندك استعلامين تحديث بشروط بالتوفيق Work.rar

السلام عليكم أخي العزيز صيغة CSV كما قال الغالي أبو أحمد إن لم يقبل جهازك هذه الصيغة فلتلجأ للصيغة الأخري VCF وهذه الاخيرة تحتاج خطوات أكثر ويلزم أن يكون عندك برنامج أوتلوك ستنقل محتويات الأسماء بالأوتلوك إلي مكان آخر مؤقت ثم تستورد إلي الأوتلوك من الملف الإكسل أو الـCSV ثم من الأوتلوك يمكنك إرسال جميع الأسماء إلي صيغة VCF إلغي الأسماء من الأوتلوك وإسترجع أسماء الأوتلوك الأصلية لمكانها مرة أخري في الخطوة 4 ،يلزمك كود صغير علي الأوتلوك وليس علي الإكسل ليمكن الأوتلوك من إرسال جميع الأسماء إلي صيغة VCF وليس إسما بإسم كما هو العادي هذا الكود هو Sub Save_all_Contacts_as_VCF_format() Dim ns As NameSpace Dim foldContact As Folder Dim itemContact As ContactItem Dim colItems As Outlook.Items Dim myProperty As Outlook.UserProperty Set ns = Application.GetNamespace("MAPI") Set foldContact = ns.GetDefaultFolder(olFolderContacts) Set colItems = foldContact.Items.Restrict("[MessageClass]='IPM.Contact'") For Each itemContact In colItems i = i + 1 itemContact.SaveAs "D:\AAA\" & i & ".vcf", olVCard Next End Sub ستلاحظ كما بالسطر قبل الأخير بالكود itemContact.SaveAs "D:\AAA\" & i & ".vcf", olVCard أنك لابد أن تكون مجهز قبل تشغيل الكود مجلد وليكن AAA علي الدرايف D إن أردت إرسل لي الملف مهما كان كبيرا وسأحوله لك بإذن الله