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

في اوفيس اصدار 2010 تقدر و 2007 لا لكن تقدر تستخدم استعلام تحديث بدل ذلك هذا والله يعلم

مشاركة مع الاستاذ محمد جزاه الله خيرا هنا يلغي رسالة أكسس Private Sub المهنة_NotInList(NewData As String, Response As Integer) Undo Response = 0 MsgBox "(لاتوجد هذه المهنه ضمن الاختيارات)" End Sub

شكرا لكم جميعا ولا يحتاج تاخذون رأي احد لانكم انتم اهل المنتدى واعرف بالفائدة والمصلحة العامة

اخي الحبيب @king5star السلام عليكم ورحمة الله وبركاته اشوف من الاحسن ان تفتح موضوع جديد لان في هذه الموضوع 1 / الخطأ في اسم الموضوع 2/ موضوع داخل موضوع هذا حسب رأيي والله يعلم لذا نريد ان نأخذ الرأي استاذنا @ابوخليل على هذا تقبلوا تحياتي

الزملاء الاعزاء مرفق مشروع صغير يحتوى على بنك اسئلة إلكترونى مصغر على نمط أختبارات التويفل أو ICDL فهل يمكن فضلاً لا أمراً مساعدتى فيه فى 1- عندما يقوم الطالب بإختيار A, B, C, D يتم تخزين ذلك فى حقل Student Answer 2- فى نهاية الإختبار يتم تفعيل زر نتيجة الطالب ليظهر يتم حساب إجمالى عددالأسئلة و عدد الأسئلة الصحيحة و نسبة الإجابات الصحيحة مع وافر الشكر و التقدير شاكراً لسيادتكم إهتمامكم و تعاونكم Questions.rar

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

السلام عليكم ورحمة الله تم إضافة إلى كود الطباعة المخصص أمرين أحدهما قبل أمر الطباعة مباشرة وهو أمر تنفيذ كود إضافة الدوئر Circles1 والأمر الآخر بعد أمر الطباعة مباشرة وهو أمر تنفيذ كود إزالة الدوائر RemoveCircles1... ملاحظة/ وضعت الحل نفسه في موضوعك الآخر رابط الموضوع... بن علية حاجي الصف الأول الإبتدائي.rar

السلام عليكم ورحمة الله تم إضافة إلى كود الطباعة المخصص أمرين أحدهما قبل أمر الطباعة مباشرة وهو أمر تنفيذ كود إضافة الدوئر Circles1 والأمر الآخر بعد أمر الطباعة مباشرة وهو أمر تنفيذ كود إزالة الدوائر RemoveCircles1... بن علية حاجي الصف الأول الإبتدائي.rar

جرب الكود التالي لعله يفي بالغرض Sub Test() Dim arr As Variant Dim arBr As Variant Dim arLu As Variant Dim arDi As Variant Dim i As Long Dim j As Long Dim b As Long Dim l As Long Dim d As Long arr = Range("A117:E" & Cells(Rows.Count, 1).End(xlUp).Row).Value ReDim arBr(1 To UBound(arr, 1), 1 To UBound(arr, 2) - 1) ReDim arLu(1 To UBound(arr, 1), 1 To UBound(arr, 2) - 1) ReDim arDi(1 To UBound(arr, 1), 1 To UBound(arr, 2) - 1) For i = 1 To UBound(arr, 1) If arr(i, 5) = "ص" Then b = b + 1 For j = 1 To 3 arBr(b, j) = arr(i, j) Next j arBr(b, 4) = arBr(b, 2) * arBr(b, 3) ElseIf arr(i, 5) = "غ" Then l = l + 1 For j = 1 To 3 arLu(l, j) = arr(i, j) Next j arLu(l, 4) = arLu(l, 2) * arLu(l, 3) ElseIf arr(i, 5) = "ع" Then d = d + 1 For j = 1 To 3 arDi(d, j) = arr(i, j) Next j arDi(d, 4) = arDi(d, 2) * arDi(d, 3) ElseIf arr(i, 5) = "م" Then l = l + 1 d = d + 1 For j = 1 To 3 arLu(l, j) = arr(i, j) arDi(d, j) = arr(i, j) Next j arLu(l, 4) = arLu(l, 2) * arLu(l, 3) arDi(d, 4) = arDi(d, 2) * arDi(d, 3) End If Next i Range("B16").Resize(b, UBound(arBr, 2)).Value = arBr Range("B26").Resize(l, UBound(arLu, 2)).Value = arLu Range("B67").Resize(d, UBound(arDi, 2)).Value = arDi End Sub

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

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

عمل رائع من استاذة رائعة هي عملت اضافة حقل جديد هكذا d1: DLookUp("[num]";"استعلام1";"[id]=" & [id]-1) وبعدين في حقل اخر عملت هذا Expr1: Nz([num]-[d1];0) شيء ممتاز جدا لكن بعد ما نخلص من هذه الملاحظة لذا انا قمت باضافة على مثال استاذتنا المبدعة زهرة عبدالله باضافة حقل جديد حقل ترقيم تلقائي جديد في الاستعلام وهذا هو الحقل id1: (Select Count (*) FROM [جدول1] as MyNewId WHERE [MyNewId].[id] <[جدول1].[id])+1 وراح نستخدم هذا الترقيم في العملية بدل ترقيم تلقائي للجدول لانه احتمال ان يكون تحذف السجل من السجلات بعدين راح تعطيك نتيجة خاطئة والان في النهاية استعلامنا اصبح هكذا SELECT (Select Count (*) FROM [جدول1] as MyNewId WHERE [MyNewId].[id] <[جدول1].[id])+1 AS id1, جدول1.num, جدول1.Date, DLookUp("[num]","استعلام1","[id1]=" & [id1]-1) AS d1, Nz([num]-[d1],0) AS Expr1 FROM جدول1; للتوضيح اكثر اليك المرفق test130 (1) (1).rar

أوك تقريبا أنا أشعر أني أفهمك لكن شعور مش أكيد بمعنى لو المنتج مثلا جهاز كمبيوتر غير موجود سعر له سنتبع الطريقة القديمة لحساب السعر ثم نسجل السعر في جدول المنتجات وفي المرة التالية نستعين بهذا الرقم وهو عبارة عن متوسطات أسعار مكوناته لحساب القيمة أليس كذلك ؟ طيب بالنسبة للمكونات الفرعية للمنتج زي لوحة المفاتيح مثلا فين هيتسجل سعرها ؟ هل في جدول المنتجات زي جهاز الكمبيوتر ؟ على العموم جرب المرفق وممكن نعدل عادي 2.rar

من هذه المعادلة dd: Abs(DSum("[d1]";"استعلام1";"[id] <=" & [id] & "and [id] >=" & [id]-1)) احذف اي بي اس اي سيكون الكود كالتالي dd: DSum("[d1]";"استعلام1";"[id] <=" & [id] & "and [id] >=" & [id]-1) والله يعلم

اتفضل كود عربي المتقدم سيكون كالتالي في الاستعلام متقدم عربي: DCount("[Sit_no]";"sheet";"[group]='" & [Group] & "'" & "and n_ar1= 'عربي'") غائب عربي غائب عربي: DCount("Sit_no";"sheet";"[group]='" & [group] & "'" & "and ar3 = 'غ'") متقدم رياضيات متقدم رياضيات: DCount("Sit_no";"sheet";"[group]='" & [group] & "'" & "and n_ma1= 'رياضيات'") غائب رياضيات غائب رياضيات: DCount("Sit_no";"sheet";"group='" & [group] & "'" & "and ma3 = 'غ'") اي يعني الاستعلام كله سيكون كالتالي SELECT sheet.Group, DCount("[Sit_no]","sheet","[group]='" & [Group] & "'" & "and n_ar1= 'عربي'") AS [متقدم عربي], DCount("Sit_no","sheet","[group]='" & [group] & "'" & "and ar3 = 'غ'") AS [غائب عربي], DCount("Sit_no","sheet","[group]='" & [group] & "'" & "and n_ma1= 'رياضيات'") AS [متقدم رياضيات], DCount("Sit_no","sheet","group='" & [group] & "'" & "and ma3 = 'غ'") AS [غائب رياضيات] FROM sheet GROUP BY sheet.Group; القي نظرتا الى النتيجة في الصورة واليك المرفق بعد تعديل احصاء متقدم وغائب.rar

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

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

السلام عليكم ورحمة الله جعلت الكود يقوم بإخفاء كل الصفوف التي في خلايا العمودين B أو D التي تحوي القيمة 00-01-1900 مع ترك باقي الصفوف الأخرى ظاهرة مع الصف الفارغ بين المدد والصفوف التي في عمودها الثاني B الجملة التي تبدأ بالكلمة "المدة"... ويطبع النتيجة المتحصل عليها ثم يعيد إظهار كل الصفوف... بن علية حاجي book.rar

السلام عليكم جرب الملف التالى جيداً علة المطلوب تماماً القيد العام.rar

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

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

السلام عليكم ورحمة الله تفضل المرفق وفيه المطلوب بن علية حاجي كود طباعة متخصص.rar

سهلة جدا أستاذي الفاضل حاليا أنا على موبايل ممكن أعملها لحضرتك بعد العودة من العمل وممكن تحاول فيها يتم عمل تقرير لجدول questions يعرض عمودين إجابة الطالب والإجابة الصحيحة فقط وإضافة سطر لتسجيل إجابة الطالب في حقل student_answer Me.student_answer=me.Answers إن شاء الله تقدر تعملها

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

اعانك الله وعفا عن الوالد وشفاه ووفقك فى كل عملك واعمالك .

السلام عليكم تفضل أخي هذا هو الكود Dim str_code As String Dim name_frm As String Dim frm As AccessObject, dbs As Object Set dbs = Application.CurrentProject For Each frm In dbs.AllForms name_frm = frm.Name DoCmd.OpenForm name_frm, acDesign str_code = "Private Sub Form_Load()" & vbCrLf & _ "call Color_V(me)" & vbCrLf & _ "end sub" Forms(name_frm).Module.AddFromString str_code DoCmd.Close acForm, name_frm, acSaveYes Next

زين علشان أتأكد أني فهمت في مثالك: المطلوب قيمة السعر في جدول المنتجات field: price ________ table: products وهذا يساوي آخر متوسط سعر لكل مكون من مكونات هذا المنتج مضروباً في العدد الموجود بالجدول بوم field: con____________ table: Bom ثم نجمع ما سبق اذا كان فهمي خطأ فأرجو التوضيح بأرقام حسابية من خلال التطبيق على المثال السابق ارفاقه أو مثال آخر مع توضيح العدد 0.0002083335 الموجود بجدول بوم هو ناتج ايه ؟

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

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

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

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

السلام عليكم ورحمة الله في الحقيقة لم لأفهم هذا، ولكن أقول إن قيمة الخلية N تعتمد على تسلسل ما (في المثال هي قيم العمود A) أما إذا كنت تريد أن تكون قيمها "رقم الجلوس" فيمكن ذلك إلا أنه يجب التعديل في معادلات جلب البيانات للشهادات باعتبار أن قيم البحث أصبحت "أرقام الجلوس" وليس قيم عمود التسلسل... والله أعلى وأعلم أخوك بن علية

اخي الكريم بن عليه هل يمكن الاعتماد على خليه رقم الجلوس بدل الخليه N ام لابد من الاعتماد على الخليه N ================= جزاك الله خيرا

اتفضل هذا هو الوحدة النمطية لاخفاء واظهار شاشة اكسس عند فتح نموذج الواجهة اي النموذج البداية استخدمنا هذا الكود Private Sub Form_Open(Cancel As Integer) HideAccess End Sub وهذه هو اكواد فتح التقارير وفتح النماذج بنوع داتاشيت و سبلايت و عادي Private Sub Command10_Click() Dim NameFrm As String NameFrm = "ÈíÇäÇÊ" DoCmd.OpenForm NameFrm, acNormal End Sub Private Sub Command11_Click() Dim NameFrm As String NameFrm = "ÈíÇäÇÊ ÇáÊáãíÐ" DoCmd.OpenForm NameFrm, acNormal End Sub Private Sub Command12_Click() Dim NameFrm As String NameFrm = ChrW(1576) & ChrW(1610) & ChrW(1575) & ChrW(1606) & ChrW(1575) & ChrW(1578) & ChrW(32) & ChrW(1575) & ChrW(1604) & ChrW(1605) & ChrW(1593) & ChrW(1604) & ChrW(1605) DoCmd.OpenForm NameFrm, acNormal End Sub Private Sub Command13_Click() Dim NameFrm As String NameFrm = "ÈíÇäÇÊ ÇáÊáãíÐ1" DoCmd.OpenForm NameFrm, acNormal End Sub Private Sub Command4_Click() Dim NameRep As String NameRep = ChrW(1576) & ChrW(1610) & ChrW(1575) & ChrW(1606) & ChrW(1575) & ChrW(1578) & ChrW(32) & ChrW(1575) & ChrW(1604) & ChrW(1578) & ChrW(1604) & ChrW(1605) & ChrW(1610) & ChrW(1584) DoCmd.OpenReport NameRep, acViewPreview, , , acDialog End Sub Private Sub Command5_Click() Dim NameRep As String NameRep = ChrW(1576) & ChrW(1610) & ChrW(1575) & ChrW(1606) & ChrW(1575) & ChrW(1578) & ChrW(32) & ChrW(1575) & ChrW(1604) & ChrW(1605) & ChrW(1593) & ChrW(1604) & ChrW(1605) DoCmd.OpenReport NameRep, acViewPreview, , , acDialog End Sub Private Sub Command9_Click() Dim NameFrm As String NameFrm = "FrmQuery1" DoCmd.OpenForm NameFrm, acFormDS End Sub واستخدمنا عند فتح التقارير و النموذج من نوع سبلايت و داتاشيت هذا الكود Private Sub Report_Open(Cancel As Integer) DoCmd.Maximize End Sub ولا تنسى ان خاصية كل النماذج والتقارير شرطي و مشروط يساوي نعم اليك ملف للفائدة اكثر مثال اخفاء شاشة الاكسس.rar

السلام عليكم ورحمة الله أخي الكريم سعيد، إن أمر الطباعة من إلى في الكود موجود في الأمر For I = 1 To [O1] أي من القيمة 1 إلى قيمة الخلية O1 (التي تحوي أكبر قيمة التسلسل) ولجعل الكود يعمل بتخصيص قيمة البداية (من) وقيمة النهاية (إلى) يجب جعل هذه القيم في خلايا أخرى تختارها مثلا الخلية P2 لقيمة البداية (من) والخلية Q2 لقيمة النهاية (إلى) أما قيمة الخلية O1 نجعلها قيمة اختبار حتى لا تتجاوزها قيمة المتغير I في الطباعة فيكون الكود بالتالي كما يلي: Sub Print_FROM_TO() For I = [P2] To [Q2] Step 4 IF I <= [O1] THEN [N1] = I ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True END IF Next [N1] = 1 End Sub أخوك بن علية

كود طباعه رااائع .. جزاك الله كل خير استاذ بن عليه Sub Print_All() 'هذا الكود للمحترم الفذ بن عليه حاجي 'الهدف من الكود هو طباعه كل الشهادات 'ستكون الصفحه بها 4 شهادات 'تم هذا الكود في 10 /6 /2017 '=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*==*=*=* 'اسم خليه نهاية الطباعه( إلى ) '(Step 4)كل 4 شهادات في صفحه For I = 1 To [O1] Step 4 'اسم خليه بدايه الطباعه( من ) [N1] = I ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next [N1] = 1 End Sub ========================= ماهو التغيير اللازم في الكود ليصبح الطباعه من - الى ؟ جزاكم الله خيرا

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

مكرر شيت كنترول الصفين الرابع والخامس الإبتدائي.rar

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

هههههههههههههههههههههههه ايون كده ودا الملف اتظبطت لكن تحنسنا وتخلع ☺ واهلا بيك مره تانى فى عالم مارد طيب ممكن سؤال؟؟؟ هو انا اجيب الاسماء ازاى ؟؟؟

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة برنامج محاسبة لادارة مكتبة تم ارفاق المشاركه من الفاضل _ أ / طلعت محمد حسن و لا تنسونا من صالح الدعاء تحياتى مكتبةsama.rar

الأخوة الأفاضل / سلام الله عليكم حلول جميلة ولكن ينقصها معلومة كلكم اغفلتموها ألا وهى تاريخ الخروج على المعاش يوم أن يتم الستين سنة وبالتالى اليوم السابق لعيد ميلاده يعنى نضيف (21914 يوما) ( سَلْوا مجرب )

حاليا حملت الملف من المشاركة ويعمل بصورة طبيعيه ؟ لاتنسى تفك الضغط عن الملف

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

يا اخ عباد الملف لا يفتح

السلام عليكم اطلع على المرفق فورم يومية مبيعات =============== أولا ضيف اصناف في ورقة بيانات الاصناف =============== تبقى تعديلات بسطيه ولاكن اريد منك الاطلاع اذا في تعديلات اساسيه ارفق صورة للخطاء مع توضيح السطر الذي به الخطاء في الكود = الملون بالاصفر لان عندي لم تصادفني رسالة خطاء عند التجربه يومية مبيعات_Ali.rar