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

السلام عليكم ورحمة الله تعالى وبركاته اولا لم اجد استخدام الرموز الدولية الموحدة Unicode لا فى منتديات عربية ولا اجنبية ولا ادرى ان سبقنى اليها احد من قبل فى ستخدامها داخل الاكسس ولكنه توفيق من الله بالنسبة لى وسوف اشرح طريقة التوصل الى التعامل الصريح بـعلامة ( √ ) أو علامة ( x ) فى قواعد البيانات -------------- -------------- -------------- -------------- -------------- -------------- -------------- -------------- -------------- واخيـــــــــــــ( المرفق )ـــــــــــــــرا ( √ ) أو ( x )علامة.mdb

عذرا لم انتبه لمرفقك الا الان - كل زر امر يجب كتابه كود الصنف الخاص به على التاج لزر الامر هذا -يجب ان تكون اسم الصورة الخاصة بكل منتج برقم كود المنتج والذى سوف يتم كتابته على تاج زر الامر -يجب ان تكون الصور بامتداد bmp اتفضل يا سيدى التعديل على مرفقك Picture Bbutton - مثال-2 -.zip

الشيت ثقيل لانك تجعل الكود ينتظر ثانية واحدة في كل خطوة من خلال الدالة Wait ما مجموعه (55 × 57 =4125 ثانية اي حوالي ساعة وربع) جرب هذا الماكرو Sub salama() Application.ScreenUpdating = False Dim My_num, i#, col# Dim color_index% color_index = 1 + 18 * Rnd() For i = 3 To 55 For col = 2 To 57 Select Case Cells(i, col) Case 1: My_num = 2 Case 2: My_num = 3 Case 3: My_num = 1 Case Else: My_num = "" End Select Cells(i, col) = My_num Cells(i, col).Interior.colorindex = color_index Next Next Application.ScreenUpdating = True End Sub '=================================== 'هذا الكود للتصحيح في حال ادخال رقم مختلف بالخطأ Sub reset() Application.ScreenUpdating = False Dim i#, col# For i = 3 To 55 For col = 2 To 57 If Cells(i, col) <> vbNullString Then _ Cells(i, col) = 1 Next Next Application.ScreenUpdating = True End Sub 2030.xlsm

تفضل رصد الدرجات1.xlsm

وهذا مثال على الفزر بالاستعلامات اعتذر كان تقصير منى عدم انشاء الاستعلامات فى المثال السابق ( √ ) أو ( x ) - الفرز -علامة.mdb

عمل ولا اجمل ولا اخصر ابا جودي شكرا لك

بص هى الفكرة دى مش عارف هتعجبك واللا لاء اولا الكود المستخدم صغير جدا جدا جدا ولكنه فعال جدا لانه يتعامل مع كل الازرار على النموذج مهما كان عددها ولكن ركز معى فى الاتى - كل زر امر يجب كتابه كود الصنف الخاص به على التاج لزر الامر هذا -يجب ان تكون اسم الصورة الخاصة بكل منتج برقم كود المنتج والذى سوف يتم كتابته على تاج زر الامر -يجب ان تكون الصور بامتداد bmp ------------------------- قطعا لا ادرى ان كانت هناك طريقة اخرى ابسط او اكواد اقل من المستخدمة فى طريقتى ولكن هذا ما جال بخاطرى ولن استطيع ان اقدم ابسط من هذا او افضل Picture Bbutton.zip

بجد ولكن وعلى فكرة الفاكهة اللى حضرتك خدتها دى لسه ما ادفعش تمنها

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

نفس مرفق استاذى الجليل ابو خليل ولكن بطريقة ضغط مختلفة 04-Cherche 15-04-2019.zip

ورد خطأ بسيط في الكود (سطر زيادة ) الكود من جديد Option Explicit Sub transferData_New() Dim LR1 As Long Dim LR2 As Long Dim sh1 As Worksheet: Set sh1 = Sheets("ورقة1") Dim sh2 As Worksheet: Set sh2 = Sheets("ورقة2") Dim x% LR1 = sh1.Range("A" & Rows.Count).End(3).Row LR2 = sh2.Range("A" & Rows.Count).End(3).Row + 1 If LR2 = 2 Then LR2 = 1 x = sh1.Range("a1:D" & LR1). _ Find("", after:=sh1.Cells(13, 1)).Row - 1 sh1.Cells(1, 1).Resize(x, 4).Copy With sh2.Cells(LR2, 1) .PasteSpecial 12 .PasteSpecial -4122 End With sh1.Cells(LR1, 1).Resize(, 4).Copy With sh2.Cells(x + 1, 1) .PasteSpecial 12 .PasteSpecial -4122 Rem .Cells(x - 15, 4).Value = _ sh1.Cells(x + 1, 4).Value End With Application.CutCopyMode = False End Sub

1- انشئ موديول جديد وضع به هذا الكود Option Compare Database Option Explicit Public Function GetWaiting(strData As String) DoCmd.OpenForm "frmWaiting" Forms!frmWaiting!lblWaiting.Caption = strData Pause 0.1 End Function Public Function Pause(NumberOfSeconds As Variant) On Error GoTo Err_Pause Dim PauseTime As Variant, Start As Variant PauseTime = NumberOfSeconds Start = Timer Do While Timer < Start + PauseTime DoEvents Loop Exit_Pause: Exit Function Err_Pause: MsgBox Err.Description Resume Exit_Pause End Function 2- قم بنقل النموذج frmWaiting من المثال المرفق 3- فى نموذج البحث فى قاعدتك اذهب الى زر الامر الخاص بالبحث وضع به هذا الكود On Error Resume Next Call GetWaiting("برجاء الإنتظار .. جارى معالجة البيانات............") .......... هنا كود البحص الخاص بك مكان هذا السطر .............. DoCmd.Close acForm, "frmWaiting" بس خلاص

بارك الله فيك يا خي الكود يعمل بشكل رائع

والله نفس الكود سبحان الله على كل الحمد لله

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

اتفضل هذا اقصى ما استطيع تقديمه تأجير_ومبيعات_ابو_همام_2019.accdb اعتذر جدا اليك

نعم اخى الكريم انتظر ردك بعد التجربة ان شاء الله

اتفضل الكود Form_kkk.تاريخ_الارجاع_الفعلي.SetFocus Form_kkk.تاريخ_الارجاع_الفعلي = [Form_استرجاع سقف].التاريخ

بارك الله فيك أخي الكريم kaser906 ادخلت الكود الذي صنعته داخل الكود أعلاه ونجحت العملية وأصبح الكود كالتالي : أكرر شكري وتقديري لك وللأخ الكريم أبا جودي .

السلام عليكم ورحمة الله وبركاته بناء على موضوع لأستاذنا الجليل الاستاذ @SEMO.Pa3x وبعد اذن استاذنا الجميل المبجل بعض التعديلات التى تضفى مرونة فى تشغيل الملفات الصوتية المميزات - عند ازالة ملف محدد او جميع ملفات الصوت من المجلد sound files يتم ازالته تلقائيا من الجدول داخل قاعدة البيانات وكذلك من نموذج التشغيل - نفس الموضوع عن اضافة اى ملف صوتى الى نفس المجلد يتم اضافته تلقئيا للقاعدة دون اى تدخل من المستخدم بمجرد اختيار ملف صوتى من النموذج يتم تشغيل الصوت وعند التنقل الى اخر يتم ايقاف الصوت السابق وتشغيل الجديد طبعا انا صايم وعلى عجلة من امرى قد يكون هناك اخطاء فإن وجدت ارجو ان تغفروا لى api_Play_Music_SEMO.zip

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

جرب هذا ا لكود على البرنامج الكامل هذا المرفق اصلا به خلل [Forms]![kkk]![تاريخ الارجاع الفعلي] = [التاريخ]

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

Private Sub التاريخ_AfterUpdate() '[Forms]![استرجاع سقف]![التاريخ] = [Forms]![salloum]![تاريخ الارجاع الفعلي] Form_kkk.تاريخ_الارجاع_الفعلي = Me.التاريخ End Sub

طيب انت عاوز امتى يتم تنقيذ الامر ةهل تريد ارتباط كل البيانات فى النمرذج الفرعى بناء على قيمة التاريخ ؟

على افتراض ان اسم الحقل قى النموذج الفرعى txtTarget واسم الحقل فى النموذج الرئيسي txtSource الحطوة التالية انت ادرى بتصميمك انظر متى تريد تنفيذ هذا الحدث وضع الكود كالاتى فى النموذج الفرعى txtTarget = Form_frmMainName.txtSource ويمكن عمل ان اردت Link Master Fields Link Child Fields باسماء الحقول ولكن فى هذه الحالة لن تظهر اى قيم فى النموذج الفرعى الا ان كانت قيم الحقول متساوية

فورم ترحيل بيانات متفرقة وترحيل لشيت اخر وتعديل بيانات الفيديو https://youtu.be/q4Hw-mp6dEc الصور رابط الملف http://www.mediafire.com/file/d79f7g21unf6v81/تسجيل+بيانات+متفرقة+وترحيل.rar

اسف على التأحيــــر تقييم_الطالبات_v_2.0.0.mdb

مرحبا حواديت نعم ممكن ، انظر المرفق ملحوظة : بعد فك الضغط ضع المجلد على C AccsAcsl.rar

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

sum(round(total ; 2)) شكرا لك اخي الكريم على حرصك على نفع اخوانك وعرض ما توصلت اليه وهذه الدالة مألوفة للجميع وتستخدم كثيرا ، ولكن قد تغيب عن البال ، لاعتماد الغالبية على التطبيق العملي لحل المشكلات البرمجية ----------------------------------------------------------------------------------- وحسب علمي ان دالة round في الكود اعلاه تسبق دالة sum ليصبح الترتيب هكذا round(sum(total);2) ما رأي خبرائنا في ذلك ؟

الف شكرا لك استاذ سليم الله يجزاك خير

بعد أذن الاستاذ ابو جودي استخدم الجملة التالية قبل فتح التقرير Me.Visible = False وعند أغلاق التقرير Forms![أسم النموذج].Visible = True ::بالتوفيق::

اتفضل جرب المرفق هاد التاريخ (2).mdb

أبدل الكلمة إلى ( False )

ممكن مرفق من القاعدة للتجربة والرد عليكم ان شاء الله ورجاء تحديد اسن التقرير محل التساؤل

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

سهله ان شاء الله اتفضل atat.accdb

بالنسبة لزيادة الصفوف بمكن ذلك لكن الملف يصبح ثقيل جداً ويأخذ وقتاً لنتفيذ كل المعادلات (10000 معادلة مع كل ضغطة على اي مفتاح من الكيبورد) لذلك اقترح هذا الماكرو Option Explicit Sub extract_data() If ActiveSheet.Name <> "salim_macro" Then GoTo Leave_Me_Olone Application.ScreenUpdating = False Dim Ro%, Col%, i%, k%, lrA%, LrC% Dim Arr Ro = 4: Col = 5 lrA = Cells(Rows.Count, 1).End(3).Row LrC = Cells(Rows.Count, 3).End(3).Row With Range("E4").Resize(lrA * LrC, 500) .ClearContents .Interior.ColorIndex = xlNone End With For i = 4 To lrA For k = 4 To LrC Arr = Trim(Split(Range("C" & k), "-")(0)) If Trim(Range("A" & i)) = Arr Then With Cells(Ro, Col) .Value = Range("C" & k) .Columns.AutoFit .Interior.ColorIndex = 4 End With Col = Col + 1 End If Next Ro = Ro + 1: Col = 5 Next Leave_Me_Olone: Application.ScreenUpdating = True End Sub الملف مرفق صفحة "salim_macro" File_Macro.xlsm

اتغضل بس ارجوك ركز معى جيدا لابد من وجود جدول tblAdjustHjriDate لاننى قمت ببعض التعديلات على الموديول لضبط التاريخ الهجرى بزيادة او نفصان يوم كل شهر لابد من التأكد من قيمة الحقل AdjustDay فى هذا الجدول اما -1 فى حالة نقصان يوم او 0 او +1 دى فكرة لم تخطر على بالى الا الان وقمت بتنفيذها انظر الى الاستعلام والنموذج 2 لترى كيف يتم استدعاء الاكواد من الموديول حسب رغبتك بالطريقة التى طلبتها انت التاريخ (2).mdb

SELECT tbl_demanK.id_contract, tbl_demanK.taxt_name1, tbl_demanK.date_f, Format([date_f],"mmm") AS الشهر, Format([date_f],"yyyy") AS العام FROM tbl_demanK WHERE (((tbl_demanK.taxt_name1) Not In (SELECT tbl_demanK.taxt_name1 FROM tbl_demanK WHERE (((Format([date_f],"mmm"))=[ادخل الشهر]) AND ((Format([date_f],"yyyy"))=[ادخل العام])); ))); بالتوفيق

Private Sub field5_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 9 And CurrentRecord = Me.RecordsetClone.RecordCount Then DoCmd.CancelEvent End Sub على افتراض ان اخر عنصر بالنموذج اسمه field5 بالتوفيق

يمكن عمل ذلك من خلال الكود التالي Me.AllowAdditions = False

جرب هذا ضع خاصية نوع مجموعة السجلات = لقطة snapshot وضع الكود التالي خلف زر الإضافة : me.recordsettype=0 وضع كود للنموذج عند حدث بعد الادراج التالي me.recordsettype=2

السلام عليكم تم عملية النقل كما شرحت لي وحسب ما فهمت... عند فتح الملف تلغي طلب تحديث البيانات ثم تقوم بتغيير المعادلات المرتبطة بالورقة "الفهرس" والتي لوّنت خلاياها بالأحمر، وعند الانتهاء منها يُلغى تلقائيا الارتباط بين هذا الملف وملف "ملف الميزانية المصححة 2018" مع حفظ التغييرات (ولا تنسى إلغاء التلوين بالأحمر)... أرجو هذه المرة أني قد وفيت المطلوب... بن علية حاجي ملف_تطبيق_للمدونة_الميزانية_التسيير_2018.rar