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

تفضل هل هذا ما تريد 55.accdb

عليكم السلام رغم كلامنا السابق في ضرورة إرفاق ملفك وتوضيح المطلوب فيه على العموم بمكنك استعمال هذا الكود Me.TextBox2.Value = Int(Me.TextBox1.Value / 30) Me.TextBox3.Value = Me.TextBox1.Value Mod 30 تضعه في أي اجراء أو حدث بالتوفيق

حل اخر يغنيك عن كتابة الاكواد في الورقة "الورقة 1" ، ضع أسماء النماذج في العمود A وفي العمود B وقت كل نموذج ، كما هو موضح في المثال التالي: 2) قم بتشغيل هذا الماكرو: 😁 Sub View_User() Dim uForm As Object Dim i As Long Dim MyRng As Variant Dim Nameform As String On Error Resume Next MyRng = Sheets("Sheet1").Range("A2", Sheets("Sheet1").Range("B" & Rows.Count).End(3)) Application.Visible = False For i = 1 To UBound(MyRng) Nameform = MyRng(i, 1) Set uForm = CallByName(UserForms, "Add", VbMethod, Nameform) DoEvents uForm.Show 0 Application.Wait Now + TimeValue("00:00:" & MyRng(i, 2)) DoEvents Unload uForm Next Application.Visible = True On Error GoTo 0 End Sub اليك الملف للفائدة تجربة 4.xlsm

النموذج sub1 مرتبط بإستعلام جدولي لا يمكن التعديل على البيانات اثناء الاستعلام اقترح بأن تستخدم جمل الاضافة لإضافة البيانات للجداول المرتبطة sub2 و sub3 قم بتشغل اذونات التحرير مرفق النموذج بعد التعديل up_ChangeSubForm.mdb

تفضل أستاذي هذا مثال نموذج Frm1 55.accdb

استاذى @kanory بفضل الله ثم بفضل حضرتك وجدت الحل عن طريق ثلاثة استعلامات تحديث 1 - تم تحديث النشاط مباشرة بدالة FnSearch بعد أن تم تغييرها الى likeA و ليس likeB اى ما سيتم نقله هو likeA . 2 - تم مسح النشاط من حقل namex Replace([TableX].[NameX],[LikeA],"""");" 3 - تم تحديث النشاط الى LikeB اذا كان هناك شيىء خاطىء أو لم انتبه اليه يرجى اعلامى وجزاكم الله كل خير قد لمعت عيناه Replace&add Final.mdb

لم افهم جيدا هذه !!! ؟؟؟؟ ممكن اسماء مجموعة من تلك الانشطة التي لم يتم تعديلها او فيها خطأ

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

ولكم بمثل ما دعوتم أخي الحبيب @حسونة حسين 🌺

إذا كان المطلوب تصدير جميع أوراق العمل الى ملف pdf واحد يمكنك استعمال هذا الكود Sub exportAllSheetToPdf() Dim sh As Worksheet, savpath As String For Each sh In ActiveWorkbook.Worksheets Worksheets(sh.Name).Select False Next sh savePath = "C:\Users\hp\Downloads\moh-selmy\power Q.pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True Sheets(1).Select MsgBox "Done by mr-mas.com" End Sub وإذا كان المطلوب صفحات محددة يمكن استعمال هذا الكود مع كتابة اسماء الشيتات المطلوب تصديرها في المصفوفة Sub exportSomeSheetsToPdf() Dim savpath As String ThisWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select savePath = "C:\Users\hp\Downloads\moh-selmy\power Q.pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True MsgBox "Done by mr-mas.com" End Sub بالتوفيق

بارك الله فيك أخونا @عبد اللطيف سلوم ، وجعله الله في ميزان حسناتك

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

باؤك الله فيك أخي الكريم @محمد هشام. نوظيف جميل لأكواد الدالة وتحويلها إلى إجراء أنا شخصيا أكاد لا أستعمل الأكواد في برامجي حتى يمكن استعمالها على الهاتف وتكون متاحة لكل من يستخدم الاكسل وفقنا الله جميعا لكل ما يحبه ويرضاه

ادن اخي تفاصيل أخرى يجب ألا تفوتها اثناء تصميمك للملف عند إظهار نموذج مستخدم وإخفائه ، يبقى النمودج في الذاكرة ، إذا قمت بالعملية عدة مرات دون تنزيله ، فقد يكون لديك خطأ في تشبع الذاكرة ، و توقف البرنامج عن العمل ولهذا السبب من المهم استخدام الماكرو التالي: Sub Unload_Forms() Dim i As Long, Model As Object On Error Resume Next ' لنفترض انك لديك 100 يوزر على المصنف For i = 1 To 100 Set Model = CallByName(UserForms, "Add", VbMethod, "UserForm" & i) Unload Model Next On Error GoTo 0 End Sub اليك اخي الملف عليه 16 يوزرفورم للتجربة واختيار ما يناسبك بعد اظافة الاحتمالات الواردة اسفله : اولا في حالة كنت ترغب بتوحيد وقت الظهور والاخفاء على جميع النمادج يمكنك استخدام الكود التالي Sub Model_Show() Dim i As Long Dim Model As Object Login_screen.Show ' نمودج المقدمة Application.Wait Now + TimeValue("00:00:5") Unload Login_screen For i = 1 To 16 '<<<---- ' عدد النمادج المرغوب اظهارها' Set Model = CallByName(UserForms, "Add", VbMethod, "UserForm" & i) Application.Visible = False With Model Model.Show Model.Repaint Application.Wait Now + TimeValue("00:00:2") ' تحديد المدة Model.Hide End With Next ' افراغ الداكرة On Error Resume Next For i = 1 To 16 Set Model = CallByName(UserForms, "Add", VbMethod, "UserForm" & i) Unload Model Next Application.Visible = True End Sub الاحتمال رقم 2 وهو الارجح ربما لطلبك Option Explicit Sub View_User1() Application.Visible = False On Error Resume Next Login_screen.Show Application.Wait Now + TimeValue("00:00:12") Unload Login_screen '****************************** UserForm1.Show UserForm1.Repaint Application.Wait Now + TimeValue("00:00:5") Unload UserForm1 '****************************** '********* اتمم الكود بنفس الطريقة********* '****************************** UserForm16.Show UserForm16.Repaint Application.Wait Now + TimeValue("00:00:3") Unload UserForm16 Application.Visible = True End On Error GoTo 0 End Sub الاحتمال رقم 3 هو انك لا تريد تعديل الكود السابق ادن ما عليك هو جعل الكود بالطريقة التالية Option Explicit Sub View_User2() Application.Visible = False On Error Resume Next Login_screen.Show Application.Wait Now + TimeValue("00:00:5") Unload Login_screen '****************************** UserForm1.Show UserForm1.Repaint Application.Wait Now + TimeValue("00:00:3") UserForm1.Hide '*********اتمم الكود بنفس الطريقة********* ' افراغ الداكرة Call Unload_Forms Application.Visible = True End On Error GoTo 0 End Sub للانتقال بين النمادج قبل نهاية المدة يمكنك الظغط على زر {ESC} / Échap على ما اظن انه الان بين يديك جميع الاحتمالات الواردة لتتمكن من اتمام ملفك وغلق الموضوع بادن الله تجربة 3.rar

تفضل اخي قد تم اضافة شيت جديد يتضمن جميع المواد مع اسماء الاساتدة يتم جلب البيانات من خلاله بحيث عند اختيار مادة معينة يتم اظهار أسماء أساتذة تلك المادة فقط في عمود الأستاذ كما يمكنك إضافة أو تعديل الأسماء بداخل الجدول سيتم إظهارها تلقائيا بالقوائم في عمود الأستاذ مثال لإختيار أساتذة مادة اللغة العربية رابط التحميل https://www.mediafire.com/file/7j6dil06ulnhbr2/RGF_SMAINI+MH.xls/file

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

من فضلك لا تقوم برفع الملف مرة أخرى على مكتبة الموقع ويمكنك رفعه مباشرة على المنتدى ... طالما حجم الملف صغير حتى لا يصعب الإطلاع عليه -ومن الأفضل رفع الملف الذى به هذا الفورم ورقة عمل Microsoft Excel جديد.xlsm

السلام عليكم ستجد في هذا الملف - تحويل الملف بالكامل الى ملف pdf - تحويل ورقت عمل اختيارية بواسطة قائمة منسدلة الى ملف PDF - تحويل نطاق محدد الى ملف PDF كما أني جعلة مسار حفظ ملف PDF الذي سينشاء وكذلك تسميته اختيارية ارجو ان يكون فيه الفائدة لك ولجميع الاعضاء تحياتي Convert to PDF.rar Convert to PDF.rar

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

تفضل أخي الكريم يمكنك استعمال هذا السطر لفتح ملفك في بداية تشغيل الويندوز CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\progname", ThisWorkbook.Path & "\" & ThisWorkbook.Name, "REG_SZ" ويمكنك استبدال كلمة progname باسم البرنامج الفعلي أو تبقيها كما هي جرب وأخبرني بالنتيجة

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

تفضل أخي الكريم ضع هذا الكود في موديول جديد ثم قم بربطه بالزر الموجود في الشيت Sub newcode() Dim oldtstr As String, newstr As String oldstr = Range("B6").End(xlDown).Value newstr = Mid(oldstr, 5) + 1 ActiveSheet.Range("d6").Value = Mid(oldstr, 1, 4) & Format(newstr, "000") End Sub ولكن أعتقد أنه ينقص شيء وهو إضافة الكود الجديد لقائمة الأرقام الحالية في حالة ما إذا تم استعماله

أخي الكريم أبي تميم لعمل هذا التسلسل قم بالآتي: ضع هذه المعادلة في الخلية التي بها أول مسلسل ="CCR-"&TEXT(ROW(A1),"000") ثم قم بنسخ المعادلة لباقي الصفوف للحصول على التسلسل التالي أتمنى أن يكون هذا هو المطلوب

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

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

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

أخي أحمد الحروف التي تظهر لك هي حروف اللغة العربية بترميز windows-1256 ولكي تظهر لك الحروف مظبوطة غير ترميز الصفحة إلى utf-8 وذلك من خلال قائمة view ثم character encoding في متصفح فاير فوكس وفي انترنت اكسبلورر في قائمة view ثم encoding وهكذا في أي متصفح اختر utf-8 من الترميز encoding أما بالنسبة للأخطاء الأولى فهي تخص لغة المواقع php وهي تظهر أحياناً في حالة وجود عطل في السيرفر أتمنى أن يكون هذا هو المطلوب

أخي الكريم أعتقد أنه ما دامت قيم الحروف ثابتة يمكنك كتابة الأرقام بدلاً من الحروف مباشرة وجمعها بدالة sum وإلا ما الفائدة من استبدال الرقم بحرف؟!!