كل الانشطه

السلام عليكم ورحمة الله بركاته مبدع دائما معلمنا Foksh ملاحظنان للاستاذ جلال محمد الاولى في بداية اكواد الفورم Private Const DATE_COL_START As Long = 7 قم بتعديل 7 الى 5 وهو اول عمود به تاريخ في الشيت الملاحظة الثانية الخيار الاخير في القورم غياب مدة بين تاريخين لعدة فصول وتاتى رسالة MsgBox "اختر فصل واحد على الأقل", فاذا كان الخيار فصل واحد لا مشكلة ولكن اذا اردنا اختيار اكثر من فصل فلا توجد وسيلة لذلك لان الفصول في الكائن cmbClass هو ComboBox، وليس ListBox، ولذلك لا يحتوي على خاصية .Selected(index)، فهي خاصة بالكائنات التي تسمح بتحديد متعدد مثل ListBox من النوع fmMultiSelectMulti فاعتقد استبدال cmbClass ب ListBox افضل للخيار الاخير لكما وافر التقدير والاحترام

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

جرب هذا المثال SetFormBackColors_v1.2.rar

اعرض الملف إمنح تطبيقك المظهر الإحترافي بإستخدام مربع حوار المهام بديل لـ MsgBox {سلسلة الأدوات المساعدة المخصصة} أرفق لك إحدى الأدوات الرائعة التي يمكن أن تغنيك عن الكثير من النماذج وتجعل رسائل التنبيه تشبه رسائل ويندوز حاولت قد الإمكان تبسيط طريقة الإستخدام وتوضيحها في التعليقات أرجو أن تنال إعجابكم مع تحياتي صاحب الملف منتصر الانسي تمت الاضافه 07/05/25 الاقسام قسم الأكسيس  

تمام ... شكرا جزيلا جزاك الله خيرا

تمام أخي الكريم ،، نستطيع تلافي المشكلة بإخفاء النموذج بشكل مؤقت أثناء المعاينة !! استخدم الكود التالي في زر المعاينة ، وجرب Private Sub btnPrint_Click() If lstResults.ListCount = 0 Then MsgBox "لا توجد نتائج لطباعتها", vbExclamation: Exit Sub End If Dim sh As Worksheet, nextRow As Long, i As Long, j As Long Const REPORT_SHEET As String = "تقرير الغياب" Me.Hide On Error Resume Next: Application.DisplayAlerts = False Worksheets(REPORT_SHEET).Delete Application.DisplayAlerts = True: On Error GoTo 0 Set sh = Worksheets.Add(After:=Worksheets(Worksheets.Count)) sh.Name = REPORT_SHEET For j = 0 To lstResults.ColumnCount - 1 sh.Cells(1, j + 1).Value = "العمود " & j + 1 Next j sh.Range("A1:" & sh.Cells(1, lstResults.ColumnCount).Address).Font.Bold = True nextRow = 2 For i = 0 To lstResults.ListCount - 1 For j = 0 To lstResults.ColumnCount - 1 sh.Cells(nextRow, j + 1).Value = lstResults.List(i, j) Next j nextRow = nextRow + 1 Next i sh.Columns.AutoFit sh.PageSetup.Orientation = xlPortrait sh.PageSetup.Zoom = False sh.PageSetup.FitToPagesWide = 1 sh.PageSetup.FitToPagesTall = 1 sh.PrintPreview Me.Show End Sub

تمام ... شكرا جزيلا Foksh الاوامر تعمل جيدا باقي زر الطباعه عند معاينة الطباعه يتوقف الفورم امام المعاينة وبالتالي يتوقف الملف عن العمل

رغم أن معظم الأكواد تحتاج الى إعادة هيكلة وتصحيح ، ولكن جرب هذا المقترح ، بعد ما تمت تجربته على ملفك السابق :- Private Function GetDateColumn(ByVal searchDate As Date) As Long Dim cell As Range Dim searchRange As Range Set searchRange = wsData.Range(wsData.Cells(HEADER_ROW, DATE_COL_START), _ wsData.Cells(HEADER_ROW, wsData.Columns.Count)) For Each cell In searchRange If IsDate(cell.Value) Then If CDate(cell.Value) = searchDate Then GetDateColumn = cell.Column Exit Function End If End If Next cell GetDateColumn = 0 End Function جرب الملف التالي وشوف النتيجة Book5.zip

ارجو اضافة الدالة GetDateColumn في الكود حتي اتخلص من هذة الرساله

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

وعليكم السلام ورحمة الله وبركاته .. اخي الكريم ، الدالة GetDateColumn غير موجودة في الأكواد ، وهذا سبب الرسالة .

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

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

ارجو المساعدة

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

أخي الكريم ، على حسب ما فهمت من كلامك ، انظر التعديلات التالية :- المديول :- Public Function GetTxtHeight(annee As String, grade As String, wilaya As String, ByRef rapport As String) As Single Dim db As DAO.Database Dim rs As DAO.Recordset Dim hauteur As Single Set db = CurrentDb Set rs = db.OpenRecordset( _ "SELECT hauteur_rang, nom_raport FROM tab_hauteur_range " & _ "WHERE annee = '" & Replace(Trim(annee), "'", "''") & "' " & _ "AND grade = '" & Replace(Trim(grade), "'", "''") & "' " & _ "AND wilaya = '" & Replace(Trim(wilaya), "'", "''") & "'", dbOpenSnapshot) If Not rs.EOF Then hauteur = Nz(rs!hauteur_rang, 0) * 567 rapport = Nz(rs!nom_raport, "") Else hauteur = 0.7 * 567 rapport = "" End If rs.Close: Set rs = Nothing: Set db = Nothing GetTxtHeight = hauteur End Function حدث الزر :- Private Sub أمر2_Click() Dim h As Single Dim rapport As String h = GetTxtHeight(Me.annet, Me.grade1, Me.wilaya1, rapport) TempVars!Temp_Hauteur = h If rapport <> "" Then DoCmd.OpenReport rapport, acViewPreview Else MsgBox ". لم يتم العثور على تقرير مطابق", vbInformation + vbMsgBoxRight, "" End If End Sub حدث فتح التقرير :- Private Sub Report_Open(Cancel As Integer) Dim h As Single Dim ctrl As Control h = Nz(TempVars!Temp_Hauteur, 0.7 * 567) For Each ctrl In Me.Controls If ctrl.ControlType = acTextBox Then If LCase(Trim(Nz(ctrl.Tag, ""))) = "moho58" Then ctrl.Height = h End If End If Next ctrl End Sub لاحظ اننا اعتمدنا على Tag = moho58 لمربعات النص التي نريد التنفيذ عليها ، دون الحاجة الى تحديد الأسماء بشكل يدوي .. الملف :- baseM.zip

السلام عليكم الرجاء المساعده عند فتح frmCheckIn والضغط على New ,والاسم الاول والاخير ثم الضغط على ليبل Other Charges باللون الازرق يفتح frmOtherCharges اريد عند الحفظ يظهر فى الليست بوكس مباشره مع العمليات السابقه لنفس الاسم ورقم الفليلو وظهور رؤؤس فى الليست بوكس وكذلك يجمع المبلغ داخل frmCheckIn فى OtherCharges وشكرا لحضرتك Microsoft Access قاعدة بيانات جديد ‫(3)‬.rar

مهندسنا الغالي ،، رضي الله عنكم ، و وفقكم لما فيه خير .. أشكرك على المرور العطر .

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

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

كنت عامل موضوع بهذا الخصوص ولكن لتصفير و حذف بيانات أكثر من جدول ان اردت التوسع هذا رابط الموضوع https://www.officena.net/ib/topic/106503-حذف-بيانات-جداول-منضمة-ومرتبطه-دفعة-واحدة-على-حسب-اختيارك/#comment-642632

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

تفضل أخي عبدالعزيز @Abdelaziz Osman 🙂 هذا الاستعلام لو بتشغله في ال VBA : ' DELETE statement | جملة DELETE Dim sqlDelete As String sqlDelete = "DELETE FROM [TABINDX]" sqlDelete = sqlDelete & " WHERE [ID] = " & var_ID ' Execute The Query | تنفيذ الاستعلام CurrentDb.Execute sqlDelete وهذ لو بتشغله كاستعلام أكسس : DELETE FROM [TABINDX] WHERE [ID] = var_ID ولا تنسى أن تضع قيمة ال ID المطلوب حذفه مكان الـمتغير : var_ID ولو بتحذف كافة محتويات الجدول تكتب كذا : CurrentDb.Execute "DELETE FROM TABINDX"