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

المثال يتكون من حرفين كبيرين لاتيني/انجليزي ورقم ويمكن تحديد طول الرقم بين 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

المكتبة العلمية دروس إكس وورد اكسس أندرويد قرآن المكتبة العلمية دروس إكس وورد اكسس أندرويد قرآنأقدم لكم رابط المكتبة العلمية على سحابة ميقا https://mega.nz/folder/kkojTSCL#l5i4J_pOmepM4n5xZW67MA بس لسة قيد الانشاء فيها ماقد تسير رفعه بفضل الله

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

تم إضافة الشرطين شرط اسم الشيت يكون 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 بالتوفيق

اضف مربع اختيار .... ويتم التصفية للطباعة فقط المختار من خلال الشيك بوكس

هذه الميزة جميلة لكنها تنطق عند حدوث تغيير في كل مكان وهذا مذعج جدا الكود يحدد الخلايا التي ينطقها البرنامج مثلا إذا أردنا نطق أي تعديل في خلايا العمود A نستعمل الكود التالي في حدث عن التغيير Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Dim v As Object Set v = CreateObject("SAPI.SpVoice") v.Speak Target.Text Set v = Nothing End If End Sub وأعمل حاليا على كود ينطق باللغة العربية ولكنه يحتاج إلى اتصال بالانترنت إن شاء الله أعرضه فيما بعد بالتوفيق

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

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

اتفضل التعديل سبب المشكلة الحدث بعد التحديث يجب ايقافه DATA14-1.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 بالتوفيق

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

هذا ما أريده من بداية الكلام فربما لا يحسن أحدنا وصف ما يريد فيحكي بالتفصيل ما يريده فيحاول الجميع الفهم أنت تريد عمل توزيع المحصلين عشوائيا على شهور العام من 1 إلى 12 تفضل هذا ملفك بعد التعديل توزيع المحصلين عشوائيا.xlsm

عمل رائع وجميل ... بارك الله فيك استاذ @Hawiii

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

يوجد ولكن باللغة الإنجليزية

اتفضل يابوالحسن 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

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

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

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

تفضل .... ناقل_3.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

الامر سهل انظر الى مواقع الاسهم في الصورة واضغط على النقاط الثلاث في الصورة مكان السهم يظهر لك استعلام لبيانات مربع القائمة ... طبق على مثالك ..

لاحظ التقرير .... بعد التعديل ..... اما بالنسبة للوقت هناك خطأ لديك وهو انك جعلت الحقل الخاص بالوقت نص المفروض تجعله وقت وتاريخ حتى يمكن جمع الساعات والدقائق ويمكن ان تساوي يوما في حالة التاخر حتى يتم الخصم على الموظف يوم في حال اكتمالها يوما .... Dawam1 (1)1.accdb

هل هذا ماتريد؟؟؟؟ انظر النموذج ..... كلمة المرور هي نفسها mohd1234 Dawam1 (1)1.accdb

انا الحقيقة سألت لان احد الملفين لم يعمل معي .... ؟؟

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

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

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

هل ما زلنا لم نصل لسر ترتيب الأرقام بهذه الطريقة؟؟!!

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

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

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