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

الأخ الفاضل خالد العنود جرب المرفق بالتوفيق Befor Del confirm.zip

أهلا بك @ازهر عبد العزيز حتى ينتهي @ابا جودى و @Khalf من العتاب إليك الطريقة في عرض التصميم للنموذج.. حدد زر الأمر المطلوب؛ ومن التبويب أخري.. غير قيمة افتراضي إلى نعم!

الأستاذة الكرام @Khalf @ابا جودى أبو إبراهيم الغامدي شكرا لكم جزيلا معكم تم الحل ربي يحفظكم

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

الأخ العزيز عبد اللطيف سلوم تفضل الأستاذ kha9009lid بالرد على إستفساركم .. ولمزيد من الشرح والإستخدام يمكنك مراجعة الرابط التالى: https://support.office.com/en-us/article/eval-function-8c4a1b10-85ba-40db-b0c8-5290da4d4166 تقبل تحياتى

دالة في اكسيس ينتج عنها سلسلة نصية او قيمة رقمية ويمكن استخدامها في منشئ التعبير وتستخدم ايضا في الجافا وفي php <?php eval("$msg"); ?>

حبيبى أستاذ/ ازهر عبد العزيز بارك الله فيك .. ولكن بين الحين والآخر تشغلنا الدنيا بما فيها .. فرج الله كربنا جميعا

🙂 أبو جودي قاصدها يا أستاذ عبد هلأ بدك تدفع هههههه ::

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

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

هذه واحدة منها

السلام عليكم ورحمة الله تعالى وبركاته اولا بعد الحمد لله الذى تتم بنعمته الصالحات فسبحان الله الحنان المنان الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل له الحمد حمدا كثيرا طيبا طاهرا مباركا فيه له وحده الحمد كما ينبغى لجلال وجهه ولعظيم سلطانه ثانيا ادين بالفضل بعد رب العزة سبحانه وتعالى وللكثير من اساتذتى رواد هذا الصرح الشامخ فلولا الله ثم اساتذتى الكرام لما وصلت الى هذا الحد بعد كل الشكر والتقدير اهنئ نفسى واياكم بما وصلت اليه الموضوع بإختصار هو برنامج الصلاحيات والتحكم بالمستخدمين بالفعل أرهقنى موضوع الصلاحيات هذا لو كان اختياراً لتركته وما ترددت فى ذلك لكن تبقى الضرورة وحتمية العمل به هى المحرك الأول والأخير فكانت محاولات الإستماتة حتى إنى فى إحدى اللحظات توقعت أننى لن ولم أحاول البحث أو محاولة إنشاء الصلاحيات بعد هذه اللحظة إستعصى الأمر لدرجة أنني جربت نسبة 90 فى المئة من كل ما هو مقترح على النت لحل تلك المشكلة العويصة مشكلة الصلاحيات وكما لاحظت يعانى منها الكثير غيرى لكن من الله على سبحانه وتعالى بعلمه وفضله فتوصلت لبرنامج Users maker الإصدار الثانى الذى قيل عنه انه يعمل مع منتجات الاوفيس ابتداء من 2007 وحتى 2013 ولكن من وجهة نظرى البرنامج فقير وكنت دائما أقع فى المشاكل بسببه حتى قررت أن أفتح النسخة وأحاول التعديل عليها بما يتماشى ويتناسب مع متطلباتى وأظنها متطلبات اغلب المشاركين كما لاحظت من تساؤلاتهم وإليكم أقدم لكم البرنامج بإصداره الثالث من تعديلى الشخصى وإضافتى التى لم يسبقنى إليها أحد فحاولت تلافى الكثير والكثير من التعقيدات أترك لكم التجربة والتحليل وفى إنتظار الرد للعلم حافظت على حقوق المبرمج الأصلى للبرنامج بارك الله فى علمه الأستاذ القدير محمد مهند العبادى أتحدى وجود إصدار مشابه على الانترنت لما اطرحه عليكم الأن طبعا البرنامج حجمه كبير لن أستطيع إرفاقه عن طريق المرفقات ولذلك أطلب على استحياء من أساتذتنا الكرام المسئولين عن امور المنتديات بكل الحب والود والتقدير بعد تحليل البرنامج والتأكد من فعاليته بشكل جيد وخلوه من الأخطاء إن خلا فالكمال لله وحده إعادة رفع البرنامج على سيرفر المنتدى حتى يكون مرجع فمواقع الرفع المجانية غير مستقرة معلومات هامه جدا جدا جدا عن البرنامج بعد عمل اى برنامج خاص بكم من خلال هذه الاداة Users maker -Third Edition أولا -- من نموذج الدخول أضفت عدد اثنين مستخدمين لكل منهم صلاحيات خاصة وهم مخفيين لا يظهروا بالبرنامج إطلاقاً فى الوصع الطبيعى لعمل البرنامج المستخدم الاول مميزاته الدخول على لوحة تحكم صلاحيات المستخدمين البيانات للدخول اسم المستخدم / admin كلمة المرور / 2015 ثانياً -- المستخدم الثانى مميزاته الدخول على نموذج خاص لإلغاء تفعيل زر Shift أو تمكينه وكذلك إخفاء الجداول والإستعلامات وإظهارها البيانات للدخول اسم المستخدم / superadmin كلمة المرور / 2015 وفى النهاية إن كفيت ووفيت فمن فضل الله وأن ذللت وأخطأت فمن هوان نفسى وقلة حيلتى اسالكم بكل الحب والتقدير إن رأيتم منى خطأ فتجاوزوا عنه بحلم أو صححوه لى بعلم وفى النهاية أعتذر للإطالة جزاكم الله عنى كل الخير روابط تحميل اولا: موقع ...... ميديا فاير ........ إضغط هنا للتحميل accdb for Access 2007- 2010 - 2013 موقع ...... ميديا فاير ........ إضغط هنا للتحميل mdb for Access 2000 - 2002 - 2003 ثانيا : موقع ...... بن الخليج ........ أضغط هنا للتحميل accdb for Access 2007- 2010 - 2013 موقع ...... بن الخليج ........ إضغط هنا للتحميل mdb for Access 2000- 2002 - 2003 اسألكم الدعاء للأستاذ محمد مهند العبادى المبرمج ولوالديه بظهر الغيب كما أطلب منكم على استحياء أن تتذكرونى بدعواتكم الصالحات لوالدى واللهم كما جمعتنى بصحبتكم الطيبة فى الدنيا دون أن أساله اللهم لا تحرمنى منهخا فى الجنة أنا أسألك آمين ..آمين ..آمين أخوكم العبد الفقير إلى الله محمد عصام

اخواني ممكن الطريقه تسجيل مقطع صوتي داخل الاكسس مع كل الشكر

السلام عليكم ورحمة الله وبركاته 🙂 في الواقع ، عرضت هذا الموضوع في منتدى الفريق العربي للبرمجة سابقا ، ولكني اعرضه هنا ، حتى تعم الفائدة ويستفيد منه الجميع. في بعض الاحيان نعمل برنامج بلغة معينة (العربية مثلاً) ، ثم لاحقا نريد هذا البرنامج لمستعملين بلغة اخرى (الانجليزية او الفرنسية مثلاً) ، مما يضطرنا ان نعمل نسخة اخرى من البرنامج 😞 اضع بين يديكم طريقة عمل برنامج بعدة لغات ، والطريقة هي الاحتفاظ بالمعلومات المطلوبة (ولا اقصد البيانات) في جدول. 1. هذه هي البيانات بلغات 3 ، العربية والانجليزية والفرنسية (والكلمات تم ترجمتها من الانجليزية الى الفرنسية عن طريق Google Translation): الخانات الموجودة بسيطة ومعرفة معناها لا يأخذ وقت ، اما تنسيق الحقل فهو:1. اسم الخط ، 2. حجم الخط ، 3. ثخانة الخط ، 4. منحني ، 5. تحته خط ، 6. لون الخط: 2. النموذج الرئيسي ، به واجهة البرنامج (والتي سنراها على الجهة اليمنى من الشرائح التالية) ، واول نموذج هو لعمل التغييرات على تنسيق الحقل ، وذلك بالنقر المزدوج في الحقل ، فتنفتح لنا نافذة اختيار الخط ، وعندما نطمئن لإختيارنا للخط ، يجب ان نحفظ هذا التنسيق ، وذللك للّغة التي نريدها: 3. اما النتائج المرجوة من البرنامج ، فتظهر لنا في هذا النموذج: باللغة العربية: باللغة الانجليزية: وباللغة الفرنسية: والكود الذي يقوم بجلب الكلمات والتنسيق هو التالي ، ولا يوجد حاجة الى تغيير الكود ، وانما العمل يكون بإضافة الخانات في الجدول: Private Sub Form_Load() On Error GoTo err_Form_Load mySQL = "Select * From tbl_Controls_Properties" mySQL = mySQL & " WHERE Form_Name='" & Me.Name & "'" mySQL = mySQL & " AND Language='" & Forms!frm_Main!Lang & "'" Dim rst As DAO.Recordset Dim x() As String Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst iTwips = 576 '576 twips/cm , 1440 twips/inch For i = 1 To rst.RecordCount Me(rst!ctl_Name).Caption = rst!ctl_Caption Me(rst!ctl_Name).Left = rst!ctl_Left * iTwips If Len(rst!ctl_Style & "") <> 0 Then x = Split(rst!ctl_Style, "|") With Me(rst!ctl_Name) .FontName = x(0) .FontSize = x(1) .FontWeight = x(2) .FontItalic = x(3) .FontUnderline = x(4) .ForeColor = x(5) If rst!Language = "A" Then '0=General '1=Left '2=Center '3=Right '4=Distribute .TextAlign = 3 Else .TextAlign = 1 End If End With End If rst.MoveNext Next i Exit Sub err_Form_Load: If Err.Number = 438 Or Err.Number = 13 Then 'ignor, Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub وهذا الكود الذي يفتح لنا msgbox : Public Function aRemark(N) 'call the Arabic Remarks in Table tbl_Controls_Properties aRemark = DLookup("[Remark]", "tbl_Controls_Properties", "[Form_Name]='" & Me.Name & _ "' And [Language]='" & Forms!frm_Main!Lang & _ "' And [Remark_ID] = " & N) End Function هذا البرنامج برنامج بدائي ، والذي يمكن تطويره 🙂 جعفر MultiLanguage2.zip

نعم ، أي شيء غير الانجليزي (حتى الملاحظات) ، يجب ان لا تكون في الكود ، وطبعا الكود الانجليزي يظل في الكود 🙂 واذا تسمح لي ، فقد عملت دمج للدالتين ToHijri و ToMilady ، ويمكنك ان تضع ملاحظاتك بالانجليزي بدل العربي ، والشيء الوحيد المتبقي بالعربي هو معلومات رسالة الخطأ ، والتي يجب ان تضعها في جدول ، وتناديها منه : Public Function ToWhat(ByRef myData As String, To_Hijri_Milady As String) As String On Error GoTo ErrorHandler 'to call the Function 'Hijri to Milady 'txt Milady date = ToWhat(txt Hijri date, "H") ' 'Milady to Hijri 'txt Hijri date = ToWhat(txt Milady date, "M") Dim CorctAdjustDay As Integer CorctAdjustDay = DLookup("[AdjustDay]", "tblAdjustHjriDate") If To_Hijri_Milady = "M" Then myData = Trim(Format(DateAdd("d", -1 * CorctAdjustDay, myData), "dd/mm/yyyy")) SavedCal = Calendar VBA.Calendar = 1 d = CDate(myData) VBA.Calendar = 0 Else myData = Trim(Format(DateAdd("d", CorctAdjustDay, myData), "dd/mm/yyyy")) SavedCal = Calendar VBA.Calendar = 0 d = CDate(myData) VBA.Calendar = 1 End If s = CStr(d) ToWhat = Format(s, "dd/mm/yyyy") VBA.Calendar = SavedCal ErrorHandlerExit: Exit Function ErrorHandler: If Err = 13 Then MsgBox "لم تقم بإداخال قيمة صحيحة للتاريخ", vbOKOnly + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه" Exit Function 'Resume Next Else Resume ErrorHandlerExit End If End Function جعفر

انا تعلمت معك ولم اقدم اى شئ مطلقا كل الشكر والتقدير لاساتذتى الكرام الاستاذ @Khalf / الاستاذ @أبو إبراهيم الغامدي

انت طلبت ان يكون عدد الاشهر بين سنتين متتاليتين فكانت المعادلة التي ارسلتها في حال اختلاف عدد السنوات يلزم تغيير كل شيء اليك هذا المثال Mounth_Price.xlsx

بل كل الشكر والتقدير لكم تعلمت منكم وعلى يديكم شيئا كنت اجهله

شكراً على كلماتك الطيبة أتمنى لكم التوفيق

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

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

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

السلام عليكم بعد إذن الأخ الغالي أبا جودي ما تحتاجه في المرفق الملاحظات : تخصيص Enter.accdbحتى يعمل تخصيص زر الإنتر عليك بجعل Key Preview إلى Yes ووضع الكود في حدث KeyDown If KeyCode = vbKeyReturn Then 'طريقتان لاستدعاء الزر إما بوضع الشيفرة التي وراءه 'DoCmd.SetWarnings False 'DoCmd.OpenQuery "U1" 'DoCmd.SetWarnings True 'Me.Requery 'DoCmd.Close ' أو باستدعاء الزر بـ 'call Call الأمر11_Click End If

جميل جدا ربي يبارك فيكم ويحفظم يارب

لا حاجة للمعادلات في هذا املف الـــ Vba يقوم بكل ما يناسب الملف مرفق مع الشرح الكودات اللازمة Option Explicit Sub Edit_data() Dim Source_rg As Range Dim Find_rg As Range Dim r# Union(Range("b8:l8"), Range("c9:l9")).ClearContents Dim lra#: lra = Me.Cells(Rows.Count, 1).End(3).Row Set Source_rg = Me.Range("a12:M" & lra) Set Find_rg = Source_rg.Find(Me.Range("d6")) If Find_rg Is Nothing Then MsgBox "'This Number Does't Exists" Exit Sub End If r = Source_rg.Find(Me.Range("d6")).Row With Me.Range("b8") .Value = Cells(r, 2): .Offset(, 1) = Cells(r, 3): .Offset(, 2) = Cells(r, 4) .Offset(, 3) = Cells(r, 5): .Offset(, 4) = Cells(r, 6): .Offset(, 5) = Cells(r, 7) .Offset(, 6) = Cells(r, 8): .Offset(, 7) = Cells(r, 9): .Offset(, 8) = Cells(r, 10) .Offset(, 9) = Cells(r, 11): .Offset(, 10) = Cells(r, 12) .Offset(1, 1) = Cells(r, 13) End With End Sub '+++++++++++++++++++++++++++++++++++++++++++++++++++++ Sub ADD_data() Dim Source_rg As Range Dim Find_rg As Range Dim r# Dim lra#: lra = Me.Cells(Rows.Count, 1).End(3).Row Set Source_rg = Me.Range("a12:M" & lra) Set Find_rg = Source_rg.Find(Me.Range("d2")) If Find_rg Is Nothing Then MsgBox "'This Number Does't Exists" Exit Sub End If r = Find_rg.Row With Me.Range("b4") Cells(r, 2) = .Value: Cells(r, 3) = .Offset(, 1): Cells(r, 4) = .Offset(, 2) Cells(r, 5) = .Offset(, 3): Cells(r, 6) = .Offset(, 4): Cells(r, 7) = .Offset(, 5) Cells(r, 8) = .Offset(, 6): Cells(r, 9) = .Offset(, 7): Cells(r, 10) = .Offset(, 8) Cells(r, 11) = .Offset(, 9): Cells(r, 12) = .Offset(, 10): Cells(r, 13) = .Offset(1, 1) End With End Sub '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Sub Ta3dil() Dim Source_rg As Range Dim Find_rg As Range Dim r# Union(Range("B4:L4"), Range("C5:L5")).ClearContents Dim lra#: lra = Me.Cells(Rows.Count, 1).End(3).Row Set Source_rg = Me.Range("a12:M" & lra) Set Find_rg = Source_rg.Find(Me.Range("D2")) If Find_rg Is Nothing Then MsgBox "This Number Does't Exists" Exit Sub End If r = Source_rg.Find(Me.Range("D2")).Row With Me.Range("b4") .Value = Cells(r, 2): .Offset(, 1) = Cells(r, 3): .Offset(, 2) = Cells(r, 4) .Offset(, 3) = Cells(r, 5): .Offset(, 4) = Cells(r, 6): .Offset(, 5) = Cells(r, 7) .Offset(, 6) = Cells(r, 8): .Offset(, 7) = Cells(r, 9): .Offset(, 8) = Cells(r, 10) .Offset(, 9) = Cells(r, 11): .Offset(, 10) = Cells(r, 12) .Offset(1, 1) = Cells(r, 13) End With End Sub T-2019_Salim.xlsm

كما يمكنك استخدام ماكرو كالمرفق K_1.zip

وين هذا النموذج ؟؟ لم اجده ..

تفضل كان عليك من البداية استخدام خاصية البحث في المنتدى فهناك موضوع كبير للعلامة الراحل عماد الدين الحسامى يخص طلبك ,موجود على كل هذه الروابط https://www.officena.net/ib/topic/63602-أعمال-العلامه-القدير-الراحل-عماد-الدين-الحسامى/?tab=comments#comment-413052 https://www.officena.net/ib/topic/32270-لأول-مرة-في-الأكسل-شجرة-الحسابات-بهذه-الطريقة/page/2/?tab=comments#comment-260297 https://www.officena.net/ib/topic/56966-اريد-عمل-شجرة-حسابات-بالtree-view-فى-الاكسيل/?tab=comments#comment-361556 وأيضا هذا هو البرنامج شجرة الحسابات.xls

وعليكم السلام-تفضل Fuddruckers OD Jun 2019.xlsx

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

تفضل تم العمل بمعادلات المصفوفة -فلا يمكن الحل بمعادلة Vlookup نهائياً معادلة اظهار نتائج بحث.xlsx

أهلا بك أستاذ أبو خليل.. لفت نظري كثرة الردود.. فدخلت.. في الحقيقة بالنسبة لى أستخدم بيئة مستخدمي ويندوز في إدارة المستخدمين.. أما بالنسبة لقاعدة البيانات فأقوم بتسليم مشاريع مفتوحة المصدر مع تدريب بسيط للمستخدمين ذووا القدرة على التطوير لمعالجة الأخطاء البسيطة. وأيضاً كمحفز لارتكاب الآخطاء الجسيمة! من أجل استمرار تقديم الدعم الفني.. ذئب في جلد حمل! أما معالج الامان والمستخدمين فقد استخدمته مرة واحدة فقط في إصدار 97. أما عند الحاجة فأقوم بعمل ذلك برمجيا.. مشارعي ترتكز على البساطة في الاستخدام والبعد عن التكلف المعقِد للاستخدام.. .. نأتي على بيت القصيد 2003 فأعترف لك بأن اعتماد كثير من مطوري أكسس على 2003 هو بسبب وفرة المعالجات المساعدة بما فيها معالج شريط الأدوات وهذا ينسحب على 2002 و 2000. وفي اعتقادي 1997 أكثرهم حظاً! وهناك سبب آخر هو الاعتماد على البرمجة السطحية والعزوف عن برمجة الكائنات.

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

طبقت الاكواد على احد برامجي أعطاني اغلاق للبرنامج اعتبره انه منقول من جهاز اخر ههههههههه دبرها يا خال

اتفضل المتغير (2).accdb

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

اخر تحديث يمنع اضافة الاقساط اكثر من مرة تمت الاضافة بواسطة الاخ @kha9009lid اقساط.accdb

تفضل غيرت اسم جدول 2 الى tbl2 المتغير.accdb

وعليكم السلام-تفضل فرز حسب الحالة - نقص صف.xls

=DLookUp("[سعر الشراء]","[stock_query]","[الصنف]='" & [Type] & "'")

تفضل لك ما طلبت ,تم التعديل للطلبات الجديدة مستحقات 1.xlsx

اتفضل كل شئ بالعربى >>---> التاريخ الميلادى - التاريخ الهجرى - الوقت دونما التقيد بلغة النظام المتغير (1).accdb

وعليكم السلام 🙂 جوابك قد تحصل عليه في احد هذه الروابط . . . جعفر

احسنت أستاذ عبد اللطيف بارك الله فيك ورحم الله والديك

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

Microsoft Office Picture Manager برنامج يمكن التعمل مع الصور و تغيير حجمها و خصائصها Microsoft Publisher. يستخدم لصميم الصفحات الاعلانية و البروشورات الدعائية و المطبوعات الاعلانية .... Microsoft Share Point Designer يستخدم لتصميم صفحات الاتش تي ام ال فى المواقع المصممة بالشير بوينت Microsoft Project إعداد و متابعة البرامج الزمنية Office Lens لعمل مس ضوئي للمستندات

مرفق رابط برنامج لاداره المخازن و نقاط البيع و المعدات و موظفين و حسابات من تصميمي البرنامج بسعر رمزي مرفق نسخه تجربيه من البرنامج https://www.4shared.com/rar/qjf1M8dzgm/SSP_2019_-_V_4_Demo.html للتواصل emad.atef@live.com

السلام عليكم ورحمة الله وبركاتة بفضل الله أنا مبرمج و محلل قواعد البيانات أكسس للعمل عن بعد و حسب الطلب في برمجة قواعد البيانات الخاصة بالشركات و المؤسسات و المحلات التجارية والصناعية والخدمية ايضا و بامكاني العمل مع اية مؤسسة او شركة او فريق عمل عن بعد او اعداد دورات تاهيل للموظفين هذا فضلا عن خبرتي المالية لاكثر من 20 عاما (مدير مالي ) مما جعلني مميزا في اعداد البرامج حيث قوم بتفصيل البرنامج على النشاط والمكان ايضا مصر - مدينة السادات - 00201015284384

جرب هذا استاذ ابا خليل xf = "C:\abcd\" xid = 2 xt = 10 x = Shell("SoundRecorder.exe /file " & xf & xid & ".wav /Duration 00:00:" & xt, 4) طبعا لابد من وجود المسار ويسمح بالكتابة عليه تحياتي

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