ابو جودي

انا مش فاهم شئ ممكن مرفق لو تكرمت كمان أول مرة اشوف الامر ده docmd.echo false

يا سلام لو تتكرم علينا بمثال عملى والله كان هيكون اسهل لينا وليك انا كده مش فاهم .. معلش فهمى على ادى

إتفضل يا سيدى MultiSelectInContinuousForms (V3).mdb

الحمد لله الذى تتم بنعمته الصالحات شوف التصميم الاول كان به موديول به اكواد تقوم بعمل استعراض الملفات ومن صمنها دوال API وتم متابة الكود بم يتناسب مع ويندوز 32 بت كان ممكن اعدلها لحضرتك بس بصراخة انا فعلا لا اقوى على التركيز الان لذلك استخدمت روتين لا يعتمد على دوال API وعلى العموم هذا شكل دوال API فى حالة اوفيس 32 بيت والتى سوف تتوقف عن العمل مع ويندوز 64 بيت انظر هذا الموضوع سوف يفيدك ان شاء الله

ولا يهمك اتفضل انا جربت المرفق وكل شئ تمام اعتذر انا بس تعبان شوى ومش مركز تفعيل وإلغاء الشفت.mdb

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

انا اسف تم تعديل المرفق

ابشر

ممكن مرفق

طيب لو تكرنت تتفضل بتحربة المرفق الاتى سوف يتم وضع الاختصار للبرنامج فى القطاع D ان تم وضع اختصار بدون مشاكل أخبرنى وقطعا يجب الاخذ فى الاعتبار بما تفضل به استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr يمكن عمل جدول وتقوم بإستدعاء البيانات منه من خلال كود بدون التطرق الى استخدام نظام الترميز الموحد unicode Creat Shortcut (D).zip

------------ وكنت قد وعدتكم بإرفاق مثال أكثر تقدما ومرونة من تلك الاجابة النظرية.. وقت الوفاء بالعهد تفضلوا

السلام عليكم ورحمة الله وبركاته اولا وقبل اى شئ سبحانك لا علم لنا الا ما علتنا يارب لك الحمد كما ينبغى لجلال وجهك ولعظيم سلطانك الحمد لله الذى هدانى وما كنت لأهتدى لولا أن هدانى الله ... طبعا لا انسى أفضال اساتذتى الكرام جزاهم الله خيرا ورزقهم سعادة الدارين ان شاء الله فلولا أفضالهم علينا بعد فضل رب العزة سبحانه ما كنا هنا ولا كان هذا حالنا ومن هنا أتوجة بكل الشكر والتقدير والإمتنان والعرفان بالجميل لك من تعلمت على يدية إما بطريق مباشر أو غير وأسال الله تعالى أن يكتب كل حرف تعلمته أنا وطلاب العلم هنا والطلاب الذى سيأتون من بعدنا فى موازين حسناتهم التى لا تنقطع ابدا يارب العالمين وأن ترزقهم القبول يارب.. آمين آمين آمين ------------------------------------------------------------------------------------------------------------------------------- ومثل ما ينحكى الجواب من العنوان بيبان منتظر رأيكم بعد التجربة وأتمنى لكم تحربة ممتعة هنا يوجد مرفقان - الاول الملف المضغوط هو قاعدة البيانات التى تحتوى على نموذج واحد فقط باسم ( frmExportObJects ) به كل الاكواد اللازمة لمن ارد نقله حتى لا اشق عليكم - الثانى بدون ضغط وهذه قاعدة بيانات للتجربة وضعت فيها كل الكائنات التى قد توجد بالقواعدة للتجربة ولم انسى الجداول المرتبطة أيضا Export Select Object To another db.zip Export Select Object To another db.mdb

اتفضل تجربتى Database2 (1).accdb

وعليكم السلام اخى الحبيب الحمد لله رب العالمين فى نعمة بفضل الله ... جزاكم الله خيــــرا عيونى أجهز لحضرتك مثال أكثر تقدما ومرونة من تلك الاجابة النظرية وعلى كل حال مبدئيا وختى يأذن الله تعالى بتنفيذ المثال اجيبك نظريا اين يوضع الكود فى موديول فى القاعدة التى تريد التصدير منها فى اى حدث لك مطلق الحرية لانه يمكنك استدعاء الروتين من اى مكان تريد فى القاعدة وكود المسار يوضع فى الحدث حيث اننا سوف نقوم باسناد المساؤ الى المتغير الذى تم الاعلان عنه فى الروتين حيث اننا نستدعى الروتين بهذا الشكل ليقوم بتنفيذ ما تم كتابته به ExpObj2ExtDb("D:\اسم القاعدة التى نريد التصدير اليها + الامتداد الخاص بها") فيكون بذلك الشكل ExpObj2ExtDb("D:\Db.accdb") or ExpObj2ExtDb("D:\Db.mdb") لاحظ بين القوسين هذا المتغير sExtDb As String الذى تم الاعلان عنه وهو من النوع النصر وهو الذى سوف نسد اليه المسار فيكون كالاتى واتمنى ان تقرأ هذه المشاركة بعناية وبهدوء وصبر لانها سوف تفيدك جدا جدا جدا ان شاء الله واعتذر مسبقا لان المقال كبير قليلا الا أنه مهم جدا جدا جدا وان شاء الله به فوائد كثيرة

على العموم اتفضل انا استخدم هذا الروتين فى تنقيذ الشورت كت Creat Shortcut.zip

ممكن المرفق

يتم وضع الصلاحيات على النموذج الرئيسي وليس الفرعى

DB_Name = Application.CurrentProject.Name DB_Path = Application.CurrentProject.Path icon_Name = "Arc5.ico" icon_Path = Application.CurrentProject.Path ' icon_Name_Path = icon_Path & "\" & icon_Name icon_Name_Path = icon_Path & "\icon\" & icon_Name With CreateObject("WScript.Shell") With .CreateShortcut(.SpecialFolders("Desktop") & "\" & اسم البرنامج بالتركيز العالمي & ".lnk") .TargetPath = DB_Path & "\" & DB_Name .WindowStyle = 1 .Hotkey = "" .IconLocation = icon_Name_Path .Description = وصف البرنامج بالترميز العالمى .WorkingDirectory = DB_Path & "\" .Save End With End With انا عدلت الكود من خلال الموبايل اعتذر لعدم وجود مرفق

على العموم هذا موديول يقوم بعمل تصدير لكل شئ من قاعدة الى اخرى يمكنك تعديل ما تريد حسب احتياجاتك Public Sub ExpObj2ExtDb(sExtDb As String) On Error GoTo Error_Handler Dim qdf As QueryDef Dim tdf As TableDef Dim obj As AccessObject ' Forms. For Each obj In CurrentProject.AllForms DoCmd.TransferDatabase acExport, "Microsoft Access", sExtDb, _ acForm, obj.Name, obj.Name, False Next obj ' Macros. For Each obj In CurrentProject.AllMacros DoCmd.TransferDatabase acExport, "Microsoft Access", sExtDb, _ acMacro, obj.Name, obj.Name, False Next obj ' Modules. For Each obj In CurrentProject.AllModules DoCmd.TransferDatabase acExport, "Microsoft Access", sExtDb, _ acModule, obj.Name, obj.Name, False Next obj ' Queries. For Each qdf In CurrentDb.QueryDefs If Left(qdf.Name, 1) <> "~" Then 'Ignore/Skip system generated queries DoCmd.TransferDatabase acExport, "Microsoft Access", sExtDb, _ acQuery, qdf.Name, qdf.Name, False End If Next qdf ' Reports. For Each obj In CurrentProject.AllReports DoCmd.TransferDatabase acExport, "Microsoft Access", sExtDb, _ acReport, obj.Name, obj.Name, False Next obj ' Tables. For Each tdf In CurrentDb.TableDefs If Left(tdf.Name, 4) <> "MSys" Then 'Ignore/Skip system tables DoCmd.TransferDatabase acExport, "Microsoft Access", sExtDb, _ acTable, tdf.Name, tdf.Name, False End If Next tdf Error_Handler_Exit: On Error Resume Next Set qdf = Nothing Set tdf = Nothing Set obj = Nothing Exit Sub Error_Handler: MsgBox "The following error has occurred." & vbCrLf & vbCrLf & _ "Error Number: " & Err.Number & vbCrLf & _ "Error Source: ExpObj2ExtDb" & vbCrLf & _ "Error Description: " & Err.Description, _ vbCritical, "An Error has Occurred!" Resume Error_Handler_Exit End Sub ويتم التصدير من خلال الكود الاتى ExpObj2ExtDb ("D:\db.accdb") طبعا تغير المسار واسم القاعدة مع الامتداد طبقا للقاعدة التى تريد التصدير اليها وممكن تعمل كود يقوم بسؤال عن مكان القاعدة ليقوم هو بذلك بالنيابة عنك انت وافكارك

يعنى ايه ممكن توضيح اكتر

الله يسلمك تحت امرك

انا مش فاهم السؤال لكن سوف أشرح بوجه عام على اعتبار اننا نريد حساب نسبة مئوية لطلاب اولا المجموع الكلى وليكن 2500 تكون المعادلة كالاتى مجموع درجات الطالب مقسوما على المجموع الكلى مضروبا فى 100 وليكن طالب حصل على 2450 تكون المعادلة 2400/2500*100 ويمكن استخدام دوال التقريب ان اردت ذلك وهذا مثال يوضح ذلك Calc Percent.accdb

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

غالى والطلب رخيص اتفضل Len Text.mdb

فكرة كمان Dim CountCharacter As Integer CountCharacter = 255 - Len(MytxtBox.Text) Me.txtCountAllCharacter = CountCharacter