كل الانشطه

ترتيب العشرة اوائل للطلاب بشروط وهي: 1- الاكبر مجموع والاصغر سنا وحرف الهجاء لة الاول اي (أ) ترتيب الطلاب.xlsm

السلام عليكم ورحمة الله وبركاته الأستاذة الافاضل في منتدى اوفيسنا : اريد التحكم في صلاحيات المستخدمين في قاعدة البيانات المرفقة من حيث الإضافة او الحذف او التعديل لذلك قمت بعمل نموذج يحتوي على combo box مصدره حقل المستخدمين من جدول المستخدمين واضفت إلى هذه النموذج نموذج فرعي يحتوي علي صلاحيات المستخدمين مصدره أيضا جدول المستخدمين وقمت بربط اسم المستخدم في هذا النموذج الفرعي باسم المستخدم في الــcombo box بحيث عندما اختار اسم المستخدم من الcombo box تظهر صلاحياته في النموذج الفرعي واقوم بتغيير أي صلاحية من هذا النموذج الفرعي لحد الان ماكو أي مشكلة . السؤال هو عندما قمت بوضع button في النموذج الرئيسي لكي يقوم بعملية التراجع عن اجراء أي تعديل أقوم به في صلاحيات المستخدمين علما اني وضع الكود التالي : Me.Usertbl_subform.Form.Undo في حدث on click لهذا الـــbutton . فما هي المشكلة ان الكود لا يعمل تراجع ؟؟؟ هو من الممكن ان أقوم بعملية التراجع بإزالة علامة الصح يدويا من الــcheck box لكن بصراح اود معرفة سبب عدم عمل هذا الكود كذلك اريد التحكم بالنموذج الفرعي من خلال button في النموذج الرئيسي لا نه يستخدم في السؤال في ما اذا اريد الحفظ او التراجع ؟ ارجو المساعدة في هذا الموضوع ؟ وجزاكم الله خير الجزاء Users.rar

وعليكم السلام 🙂 عدل كود فتح التقرير هكذا : DoCmd.OpenReport "rprepnu2", acViewPreview, , "[lagnano] >= " & Nz(Me.tt1, 0) & " And [lagnano] <= " & Nz(Me.tt2, 0), acNormal lagna2.accdb

جزاكم الله خيـــــــــرا

السلام عليكم هل يمكن استعمال الكود بدلا من الاستعلام مرفق مثال ا؟يد استعمال الزر الثاني لفتح التقرير بالرقم بين tt1 و tt2 lagna2.accdb

السلام عليكم ورحمة الله وبركاته هذا تحديث بسيط ومهم في نفس الوقت على هذه الأداة الجميلة 🙂 ( عون المثابر في الحصول على أسماء العناصر (الإصدار 3.0)) كما علمتم هذه الأداة صممتها بفضل الله في أكسس تقوم بإحضار وسرد أسماء العناصر لك لكي تستطيع نسخها ولصقها في أي مكان تريد بكل سهولة ويسر 🙂 شخصيا أستفدت كثيرا منها وسهلت علي الكثير من الجهد وقلصت من وقت العمل بحمد الله وفضله. :: ما الجديد في النسخة 3.0 :: تم إضافة خانة في الأخير خاصة بالجداول فقط .. : وهي عند اختيار الجدول يتم كتابة جمل SQL أستعلامات أساسية للجدول المختار مع ذكر أسماء حقول الجدول مع مراعاة أنواع الحقول وكتابتها بشكل سليم في الكود .. طبعا الأداة ستعطيك الجمل الاستعلامية الأربعة SELECT, INSERT INTO, UPDATE ,DELETE والكود الناتج جاهز للصقه مباشرة في محرر الأكواد VBA .. عليك فقط أن تقوم ببعض التعديلات الطفيفة كإزالة الحقول الزائدة أو الغير مستهدفة وكذلك تحديد الشرط Where في حال التحديث أو الحذف مثلا . :: لقطة للنسخة 3.0 :: وهذا مثال على جمل ال SQL الناتجة : ' SELECT statement Dim sqlSelect As String sqlSelect = "SELECT [ID], [First Name], [Last Name], [Gender], [Age], [Email], [Phone], [Education], [Occupation], [Salary], [StaffNumber], [IsActive], [DOB]" sqlSelect = sqlSelect & vbCrLf & " FROM [SampleTable]" '============================================================ ' INSERT INTO statement Dim sqlInsert As String sqlInsert = "INSERT INTO [SampleTable] ([ID], [First Name], [Last Name], [Gender], [Age], [Email], [Phone], [Education], [Occupation], [Salary], [StaffNumber], [IsActive], [DOB])" sqlInsert = sqlInsert & vbCrLf & " VALUES (" & var_ID & ", '" & var_FirstName & "', '" & var_LastName & "', '" & var_Gender & "', " & var_Age & ", '" & var_Email & "', '" & var_Phone & "', '" & var_Education & "', '" & var_Occupation & "', " & var_Salary & ", " & var_StaffNumber & ", " & IIf(var_IsActive, -1, 0) & ", #" & var_DOB & "#)" '============================================================ ' UPDATE statement Dim sqlUpdate As String sqlUpdate = "UPDATE [SampleTable]" sqlUpdate = sqlUpdate & vbCrLf & " SET [ID] = " & var_ID & ", [First Name] = '" & var_FirstName & "', [Last Name] = '" & var_LastName & "', [Gender] = '" & var_Gender & "', [Age] = " & var_Age & ", [Email] = '" & var_Email & "', [Phone] = '" & var_Phone & "', [Education] = '" & var_Education & "', [Occupation] = '" & var_Occupation & "', [Salary] = " & var_Salary & ", [StaffNumber] = " & var_StaffNumber & ", [IsActive] = " & IIf(var_IsActive, -1, 0) & ", [DOB] = #" & var_DOB & "#" sqlUpdate = sqlUpdate & vbCrLf & " WHERE [SomeField] = SomeValue" '============================================================ ' DELETE statement Dim sqlDelete As String sqlDelete = "DELETE FROM [SampleTable]" sqlDelete = sqlDelete & vbCrLf & " WHERE [SomeField] = SomeValue" الشرح القديم للأداة على اليوتيوب 🙂 متابعة ممتعة 😊👌🏼 ولا أستغني عن آراءكم وملاحظاتكم .. 🙂 لتحميل الملف :

اسأل الله العظيم رب العرش العظيم أن يشفيه شفاء لا يغادر سقما طهور ان شاء الله

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

ربنا يبارك في عمرك وفي صحتك

قد تكون سهواً عند تعديل الاستعلام وخرجت تسلسلاً mgmo1 > mgmo2 .... .

شكرا جزيلا أخي الفاضل وبارك الله فيك وأكثر الله من أمثالك حضرتك والأب الحنون ذو القلب الكبير ( أبو خليل ) فيه ملحوظة صغيرة أخي الفاضل علشان الناس المتابعة معنا نغير بس TRANSFORM IIf([Forms]![frm_Reports]![termNum]=1,First(qry_master.mgmo1),First(qry_master.mgmo2)) AS FirstOfmgmo الي TRANSFORM IIf([Forms]![frm_Reports]![termNum]=1,First(qry_master.mgmo1),First(qry_master.total)) AS FirstOfmgmo صح كده حضرتك .؟

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

تفضل ملفك بعد التطبيق Lists.accdb

الأستاذ / عبدالله بشير عبدالله السلام عليكم ورحمة الله وبركاته إن قلت شكراً فشكري لن يوفيكم حقكم؛ فكلمات الثناء تتوارى خجلاً تقديراً لعطائكم ومجهودكم؛ فلكم جزيل الشكر والامتنان؛ وهنيئا لنا بكم؛ وهنيئا لكم روعة العطاء. ومن أجمل ما تهديه لأخيك أن تدعو له وتقول: · ألبسكم الله لباس التقوى وكفاكم ما أهمكم، وأسعدكم بطاعته، ورزقكم من واسع كرمه وفضله، وحفظكم من كل شر، وفرج همكم، وأسعد قلبكم، وأراح بالكم، وغفر لكم ولوالديكم، يا ذا الجلال والإكرام. وهذا دعائي بحجم ما أحمله لكم من حب ومودة. · رزقكم الله أسمى مراتب الدنيا وأعلى منازل الجنان؛ وجعلكم ممن طال عمره وحسن عمله؛ وبورك لكم في رزقكم ومالكم وصحتكم وعافيتكم وأولادكم وأهلكم أجمعين؛ وكتبكم الله من السعداء المعافين في الدنيا والفائزين في الآخرة؛ اللهم آمين رب العالمين. · لم أصدق أنني وصلت لنهاية الموضوع وكم وددت لو ظل مفتوحا حتى أسعد بتواصلي معكم؛ حتى أرتوي من فيض علمك وعظيم حلمك فلله درك يا أخي فأسلوبك نبراسا يحتذى به؛ وما أجمل صبرك في تواضع العلماء؛ وكم وددت لو أن هناك وسيلة ما من وسائل التواصل الاجتماعي كي أتواصل معكم؛ بحثت بالفعل ولم أتوصل لشيء من هذا القبيل؛ ولكن توصلت لأفضل من ذلك رحم الله الوالد الشيخ الفقيه المؤرخ بشير عبد الله امحمد محمد الصاري · وإني أشهد الله في علاه؛ وملائكته؛ وجميع خلقه؛ وكل من يقرأ هذا التعليق: أني أحببتكم في الله

السلام عليكم ورحمة الله وبركاته لدي بيانات كثير لطباعة تقرير ( نحو 18 صفحه ) بعد ادخالها في الفورم هل استطيع توسعة التقرير ليتسع لبيانات اكثر ؟ حيث ان البيانات كثيرة . مع خالص التقدير

اللهم أذهب البأس ربّ النّاس، اشف وأنت الشّافي، لا شفاء إلا شفاؤك، شفاءً لا يغادر سقماً، أذهب البأس ربّ النّاس، بيدك الشّفاء، لا كاشف له إلّا أنت يارب العالمين. - اللهم إنّي أسألك من عظيم لطفك وكرمك وسترك الجميل، أن تشفيه وتمدّه بالصحّة والعافية، لا ملجأ ولا منجا منك إلّا إليك، إنّك على كلّ شيءٍ قدير

مشاركةً مع استاذ @Foksh تفضل استاذ سامر محاولتي حسب ما فهمت بالمرفق . ووافني بالرد . Pepsi-1.rar

مشاركةً مع الزملاء الافاضل تفضل اسناذ @dd13901390 المطلوب حسب ما فهمت بالشرح والمرفق التالي . ووافني بالرد . dd13901390.rar

جزاكم الله خير ممكن تطبيقها على الامثال

عاشت ايدك

مشاركةً مع أخي الأستاذ @kanory ، تعديل بسيط Private Sub Form_Load() Dim obj As AccessObject, f As String, r As String For Each obj In CurrentProject.AllForms If LCase(obj.Name) <> "main" Then r = r & "نموذج:" & obj.Name & ";" Next f = Dir(CurrentProject.Path & "\*.xls*") Do While f <> "": r = r & "ملف:" & f & ";": f = Dir(): Loop Me.مربع_تحرير_وسرد1.RowSourceType = "Value List" Me.مربع_تحرير_وسرد1.RowSource = Left(r, Len(r) - 1) End Sub Private Sub مربع_تحرير_وسرد1_AfterUpdate() On Error GoTo ErrorHandler If Left(Me.مربع_تحرير_وسرد1, 6) = "نموذج:" Then DoCmd.OpenForm Mid(Me.مربع_تحرير_وسرد1, 7) Else With CreateObject("Excel.Application") .Visible = True .Workbooks.Open CurrentProject.Path & "\" & Mid(Me.مربع_تحرير_وسرد1, 5) End With End If Exit Sub ErrorHandler: MsgBox "حدث خطأ: " & Err.Description, vbExclamation End Sub

حبيبي يا بشار ، الله يسعد قلبك ويهنيك ..

@Foksh يسلم ايدك ✋ ماشالله عليك,, شغل فاخر عالاخر فوووكش ,, ربي يزيدك علم ويبارك في رزقك ويكفيك شر الناس ,كل الشكر والتقدير لك

صديقي @Bshar ، جرب هذا التعديل عندك .. Private Sub e2_Click() Dim ctl As Form Set ctl = Me.dff.Form Dim foundValid As Boolean foundValid = False With ctl.RecordsetClone .MoveFirst Do While Not .EOF If ctl.Controls("hgf").Value = True Then foundValid = True Exit Do End If .MoveNext Loop End With If Not foundValid Then MsgBox "لم يتم إدخال أدوية - سيتم الخروج الآن", vbExclamation, "إدارية" DoCmd.Close Exit Sub End If Dim strSQL As String strSQL = "UPDATE [" & ctl.RecordSource & "] " & _ "SET [qunt_x] = Nz([qunt_a], 0) - Nz([qunt_out], 0) " & _ "WHERE [efkt_b] = True" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.OpenQuery "efkt_aa", acViewNormal DoCmd.OpenQuery "del_efktc", acViewNormal DoCmd.OpenQuery "ry", acViewNormal DoCmd.SetWarnings True Me.dff.Requery Me.Requery Me.Refresh MsgBox "تم بنجاح", vbInformation, "إدارية" DoCmd.Close DoCmd.OpenForm "efkt" End Sub

@Foksh قليل اشتغل ع اكسس عحسب وقت الفراغ ,, المهم فوووكش ,, اشتغل التعديل 100% ,, بس اذا في طريقه او حل غير لانه وقت ضفت 150 سجل صار مشكله انه عللق الاكسس وهوه يمر عالسجلات ,, شاكر الك مساعدتي بالمقدمه دائما