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

المثال يتكون من حرفين كبيرين لاتيني/انجليزي ورقم ويمكن تحديد طول الرقم بين 1 و 5 أعداد ويمكن تحديد بداية الأرقام لكل حرف بصفر أو واحد ويمكن كذلك اختيار فاصل بين الحروف والأرقام. والمثال يمكنه جلب الرمز السابق والرمز التالي. Hawiii-Coding-02.accdb

استخدم هذا الكود .... Option Compare Database Dim dblStart As Double Dim dblEnd As Double Dim dblTime As Double Private Sub txtTest_Change() If Len(txtTest.Text) <= 1 Then dblStart = Timer Else dblEnd = Timer dblTime = Round(dblEnd - dblStart, 2) If dblTime > 0.2 Then txtTest = "" MsgBox " عفوا ... لايمكن الإدخال إلا عن طريق قارئ الباركود" End If End If End Sub

مشاركة مع اخي المهندس .... مثال.accdb

Nouveau Microsoft Access Database.rar Nouveau Microsoft Access Database2003.rar

هذا تواضع منكم اخي قاسم .... بارك الله فيك .

وعليكم السلام .... Nouveau Microsoft Access Database.rar

جرب المرفق مع ملفاتك جميعها .... حتى نكمل بقية البيانات بعد التأكد من عمل البرنامج مع جميع ملفاتك ....... ‏‏test_kanory.accdb

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

جرب هذا الكود Database1.rar

اعتقد هذا الموضوع يفيدك

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

تاكد من الملفين عن طريق فتحهم ببرنامج الاكسل هل يعمل الملفين .... ام احدهما عطلان ؟؟؟؟؟؟؟؟

طيب ... شوف هذا التحايل .... NM.accdb

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

تم إضافة الشرطين شرط اسم الشيت يكون data وشرط قيمة الخلية لا تساوي "" أو " " يفضل فهم الكود أولا قبل تطبيقه في الملف حتى يمكنك تنفيذ هذه الشروط بمفردك بعد هذا Sub Add() If ActiveSheet.Name = "data" Then Dim FR For FR = 10 To 50 If Cells(FR, 3) <> "" And Cells(FR, 3) <> " " Then Cells(FR, 3) = Val(Cells(FR, 3)) + 1 End If Next MsgBox "plus 1 add to all" End If End Sub بالتوفيق

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

مشاركة مع اخي @د.كاف يار ربما يستفاد منها البعض Q2.accdb

اتفضل التعديل سبب المشكلة الحدث بعد التحديث يجب ايقافه DATA14-1.mdb

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

عشت وكثر الله خيرك

تفضل هذا المثال MsgboxForWin.mdb

طريقة غير صحة بما انك تريد الشرط على البيانات الحالية في النموذج اذا يجب ان تستخدم حلقة تكرارية في كل مرة تقوم بأخذ المؤشر الى اول سجل و ثم الانتقال للتالي الى ان تصل لأخر سجل تفضل هذا الكود لعمل اللازم ضعه في حدث عند التغيير Dim x x = iPage Dim i, i2 As Integer DoCmd.GoToRecord , , acFirst For i = 0 To Me.Form.Recordset.RecordCount - 1 If iPage = x Then i2 = i2 + 1 If i2 > 1 Then If MsgBox("تم استخدام الحساب مسبقا" & vbNewLine & "هل تريد التراجع ؟", vbCritical + vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdUndo DoCmd.SetWarnings True Exit Sub End If End If End If DoCmd.GoToRecord , , acNext Next i DoCmd.GoToRecord , , acNewRec Me.iName.SetFocus

يمكنك عمل ذلك من خلال التنسيق الشرطي بمعادلة مثل =MONTH(D3)=MONTH(TODAY()) وتطبق على المدى C3:C14 بالتوفيق

هذه هي التصفية بالمعادلات وتتم بمعادلات المصفوفات حدد النطاق B3:B16 ثم اكتب في شريط الصيغة المعادلة التالية =IFERROR(INDEX(entries!D:D,SMALL(IF(1001=entries!$C:$C,ROW(D:D),""),ROW()-2)),"") واضغط Ctrl+shift+enter لقبول المعادلة وكررر ذلك مع النطاقات C3:C16 =IFERROR(INDEX(entries!E:E,SMALL(IF(1001=entries!$C:$C,ROW(E:E),""),ROW()-2)),"") وأيضا مع النطاق D3:D16 =IFERROR(INDEX(entries!F:F,SMALL(IF(1001=entries!$C:$C,ROW(F:F),""),ROW()-2)),"") ملحوظة: هذه المعادلات لا يتم سحبها أفقيا أو رأسيا وإذا تم ينتج عنها بطء شديد للملف لذا يفضل تحديد النطاق الذي ستطبق عليه كله مرة واحدة بالتوفيق

عمل رائع جزاك الله خيرا ممكن كل شهر يتم تلوين اسم المستحق

'طبعاً كما أخبرك استاذ محمد ... وهذا فيديو للشرح , طبعاً بع اذن استاذنا الكبير محمد صالح

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

وعليكم السلام-يمكنك استخدام هذه المعادلة =IF(C19=$F$7,$E$8,"")

شكرا استاذنا القدير عمل رائع اكرر شكري وتقديري لكم

اتفضل يابوالحسن If DCount("*", "tbl_Items", "iBill_Number Like '" & Main_iBill_Number & "' AND iPage=" & iPage) <> 0 Then MsgBox "فشل الاختيار" & vbNewLine & "تم ادخال هذا الحساب مسبقا", vbCritical + vbMsgBoxRight, "تنبيه" Me.iPage.SetFocus Exit Sub Else DoCmd.GoToRecord , , acNewRec Me.iName.SetFocus End If

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

لن يتم اضافة المستخدم الآخر على نفس الملف سيتم انشاء ملف بإسم كل مستخدم تفضل هذا شرح بالفيديو المرفق Video2.zip

يمكنك ربطة بزر أمر أو صورة أو شكل في الشيت عن طريق إدراج شكل وكتابة اي عبارة عليه ثم كلك يمين وتختار assign macro ثم تختار اسم الماكرو المطلوب ربطه بالزر

ليست طريقة احترافية لكنها ربما تفي بالغرض مثال اوفيسنا نقل التركيز الى اخر نموذج اعمل علية.accdb

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

جرب هذا التعديل Private Sub CommandButton2_Click() Dim i As Long Me.ListBox1.CLEAR 'لعمل رأس الاعمدة For a = 1 To 6 Me.ListBox1.AddItem Sheet3.Cells(1, a) Next a Me.ListBox1.Selected(0) = True End Sub

تفضل ..... ناقل_1.accdb

المطلوب غير منطقي أريد كود (هذا اعتراف بأنه كود) وجميع الأكواد لن تعمل إلا إذا قام المستخدم بتفعيل الماكرو ربما أن يفتح الملف على شيت به صور وشرح لطريقة تفعيل الماكرو يؤدي الغرض مثل هذه الصور مع كتابة عبارات مثل : حتى يعمل الملف بصورة صحيحة يجب الضغط على زر تمكين المحتوى Enable content أو ضبط الإكسل على الموافقة على تشغيل جميع الأكواد بهذه الطريقة بالتوفيق

جرب هذا .... ابجد هوز.rar

طبق هذا المثال لديك .... ناقل.accdb

طيب اتفضل هذا التعديل عقود خدمات 2.accdb

تفضل التعديل اخي الكريم عقود خدمات 1.accdb

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

شكرا لكل من مر على أول موضوع لي بالمنتدى ذكريات جميلة

يارب

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

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

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

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

يوجد فى الخصائص الخيار control box قم بإعطائة القيمة no