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

لان احنا حددنا مربعات النص جرب الكود التالى ان شاء الله يظبط معك Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox and ctl.ControlType = acComboBox Then If ctl.Value <> "" Then ctl = "" End If End If Next ctl جرب ووافنا بالنتيجه بالتوفيق

السلام عليكم تفضل اخي ضع هذا الكود في خصائص الحقل - بيانات - قاعدة التحقق من الصحة / حيث يسمح لك بادخال تاريخ اليوم او قبل ذلك فقط ومن ثم ضع الرسالة المناسبة في نص التحقق من الصحة "لقد ادخلت تاريخ لاحق" <=Date() تحياتي

تفضل هذا التعديل اخي الكريم GYM.accdb

السلام عليكم تم عمل المطلوب في الملف المرفق بواسطة المعادلات وجداول مساعدة (ملونة بالأصفر الفاتح وأحد الجداول يحوي معادلات صفيف)... أرجو أن يفي الغرض المطلوب في انتظار من يقوم بالمساعدة بواسطة حل بـ VBA... بن علية حاجي رصد الدرجات.xlsm

تم معالجة الامر ملاحظة يجب ترك الصف 2 في الشيت total فارغاً للحفاظ على بنية الجدول دون تدخل خلايا غريبة (بذلك تكون اول خلية بالجدول بعد الرأس هي الخلية A4) Option Explicit Sub get_data_New() Dim SH_from As Worksheet Dim T As Worksheet Dim rg_to_Patse As Range Dim Rt%, MY_max%, Ro%: Ro = 4 Set T = Sheets("Total") Set rg_to_Patse = T.Range("A3").CurrentRegion Rt = rg_to_Patse.Rows.Count If Rt > 1 Then Set rg_to_Patse = rg_to_Patse.Offset(1).Resize(Rt - 1) Else Set rg_to_Patse = T.Range("B4").Resize(, 5) End If rg_to_Patse.Clear For Each SH_from In Sheets If SH_from.Name <> T.Name Then MY_max = Application.Max(SH_from.Range("A:A")) T.Cells(Ro, 2).Resize(MY_max, 5).Value = _ SH_from.Cells(3, 2).Resize(MY_max, 5).Value Ro = Ro + MY_max End If Next SH_from With T.Range("A3").CurrentRegion .Sort key1:=Range("b3"), Header:=1 .Columns(1).Offset(1).Formula = _ "=IF(B4="""","""",MAX($A$3:A3)+1)" .Offset(1).Borders.LineStyle = 1 .Offset(1).InsertIndent 1 .Value = .Value .Font.Bold = True End With End Sub M_data_new.xlsm

ومشاركه مع اخى على Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then If ctl.Value <> "" Then ctl = "" End If End If Next ctl تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

اخي العزيز Khalf نحن نتكلم عن برنامج متكامل للرواتب: الجواب - نعم ممكن في حالة عمل حقول محسوبة calculated بالجدول الواحد ( وهي طريقة غير محببة لانستخدمها بالجدول وانما نستخدم استعلام) ما هو الجيد وما هو السيء الحقول المحسوبة ؟ الجيد: أن الحقل المحسوب سيعرض نتيجة الحساب بوضع للقراءة فقط (Read-only)، هذا يعني أن المستخدم لا يمكنه التلاعب بالأرقام الناتجة. السيء: أن الحقل المحسوب لا يمكن أن يتضمن حقولا موجودة في جداول أخرى، هذا يعني أنه في بعض الحالات ستحتاج إلى إنشاء حقولا محسوبة في استعلام وهي دائما تحتاج تحديث

الاخ smfsho2009 شاهد المرفق Test_1.xls

فورم اظهار الادخال الجديد للاسم على الليست بوكس بمجرد الحفظ الفيديو

لو حرف امتناع لامنتناع ويستخدم كذلك كحرف مصدري بمعنى ان وكذلك للتمني وايضا للتقليل وللنفي ويستخدم للدعاء وللحض والامر وللتعميم والدلالة على المستقبل على العموم جرب المرفق لعله ينهي لو 😉 aa.accdb

تم نقل الموضوع لقسم الوورد قد تكون هناك فصول Sections ضمن الملف و بالتالي يبدأ الترقيم ببداية كل فصل

اهلا استاذ حسين نور الموقع بوجودك

تسلم يا غالى خالد سيسكو

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

مرحباً أستاذ خالد يمكن ذلك ودون استعلام بجعل العمليات الحسابية في النموذج عن طريق استعلامات مدمجة بالفيجوال بيزيك وعمليات حسابية تعطي قيم لحقل مخفي أو ظاهر بحسب الحاجة. فيكون البرنامج من جدول واحد ونموذج إدخال تتم العمليات به وتنتقل منه إلى الجدول.

افاد الله استاذ خالد هذا ما اريد ان اصل اليه

السلام عليكم ربما مع هذه المشاركات للخبراء لن يكون لتعليقي محل، ولكن وباختصار: نعم، يمكن عمل البرنامج بجدول واحد.

قم بتغيير اسم الشيت مجمل إلى Total ونفذ هذا الكود Option Explicit Sub get_data() Dim SH_from As Worksheet Dim T As Worksheet Dim Rt%, MY_max%, Ro%: Ro = 3 Set T = Sheets("Total") Rt = T.Cells(Rows.Count, 2).End(3).Row If Rt <= 2 Then Rt = 3 With T.Range("B3").Resize(Rt, 5) .ClearContents .Interior.ColorIndex = xlNo End With For Each SH_from In Sheets If SH_from.Name <> T.Name Then MY_max = Application.Max(SH_from.Range("A:A")) T.Cells(Ro, 2).Resize(MY_max, 5).Value = _ SH_from.Cells(3, 2).Resize(MY_max, 5).Value With T.Cells(Ro + MY_max, 3) .Value = SH_from.Name .Offset(, -1).Resize(, 5).Interior.ColorIndex = 6 End With Ro = Ro + MY_max + 1 End If Next SH_from End Sub الملف مرفق M_data.xlsm

الفلترة بناء استعلام بمعيار مبني على القائمة المنسدلة comUnits وهذة القائمة تستمد قيمتها من خلال استعلام مبني على الجدول tblUnits فلو كان الجدول يحتوي على 3 وحدات تكون خيارات الفلترة لثلاث وحدات ولو كان الجدول يحتوي على 1000 وحدة تكون خيارات الفلترة 1000 وهكذا تحياتي

اضفت وحدات جديدة ولم اواجه اي مشكله ايضا غيرت صيغة ملف اكسيل لان الكود السابق احيانا يرفض الفتح جرب الملف المرفق علما بان الفلترة لا علاقة لها بعدد الوحدات 3 او 100 او 1000 Database3 (2).accdb

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

مشاركه مع اخى واستاذى العزيز @essam rabea بالنسبه للسؤال الاول شو الاستعلام لم يتم تجديد الاشترك وافتحه فى وضع التصميم وشوف فى حقل تم تجديد الاشتراك المعيار 0 بالنسبه للسؤال الثانى انت تقصد انه بيفتح على رقم المشرك لكن حقل الاسم فارغ ام ماذا جرب الان ووافنا بالنتيجه بالتوفيق ان شاء الله GYM.rar

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

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

وعليكم السلام ألقي نظره على هذا الموقع الأجنبي ( سورس كود مجاني ) وحفظ فلوسك 😅 https://www.sourcecodester.com/microsoft-access

السلام عليكم اخي محمد 🙂 صار لي يومين اضرب اخماس في اسداس ، وما عرفت المطلوب رجاء تشرح لي بالتفصيل لو سمحت 🙂 جعفر

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

بسم الله الرحمان الرحيم اليوم سأقدم لكم مشروع صغير و هو احتساب الاعمار منها العام و الشهر و اليوم سوف أرفق لكم هذا الملف البسيط مع تحياتي لكم المبرمج : مناد سفيان ............ الجزائر

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

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

برنامج صغير يحل مشكلة البحث عن "الكلمة" في ملفاتك الوورد مهما كان عددها منقول السلام عليكم ورحمة الله وبركاته من جديد وعودة للأحباب ببرنامج صغير يحل مشكلة البحث عن كلمة أو كلمات في ملفات الوورد التي عندك بالجهاز مهما كان عددها كلنا نعاني من هذه المشكلة: أتذكر كلمة - أو جملة معينة - في ملف وورد ولكنني لا أتذكر أي ملف هو هذا الملف هل أفتح كل الملفات وأبحث فيها؟ ماذا أفعل؟ أخبروني مفيش حل معقول أبدأ الحل اليوم بإذن الله تعالى في برنامج صغير جدًا تجدونه بالمرفقات - كالعادة - يبحث لنا في أي كمية من ملفات الوورد وبمنتهى الدقة ليس هذا فقط، بل بإمكانه أن يفتح لك الملف الذي به الكلمة المختارة، بل ويقوم بتلوين الكلمة أو الجملة وفيه غير هذا من الإمكانيات التي وهبها الله للإنسان وسخَّرها له فقط تابع الصور وقم بالتحميل واستبدال الكراك كما هو مبين بالصور لم أحب أن أضع لكم صور التسطيب لعدم احتوائه على الجديد، فالتسطيب يكون بالطريقة العادية دون اختراعات مني بعد التسطيب لا تفتح البرنامج، بل قم بالذهاب إلى مكان التسطيب واستبدل الكراك ووافق على الاستبدال ثم قبل البحث عن المراد قم باختيار أية لغة عربية من قائمة الفونت التحميل في المرفقات 32exam-setup.rar

مثال علي اختيار رقم عشوائي مع السماح بالتكرار أو عدم السماح ( لابو حمود ) RANDOM_abuh.rar

مثال لاظهار الأذكار بالتتابع المثال للأخ فهد الدوسري AZKAR_FHD.rar

أيضا تم اضافة مثال آخر الي نفس الموضوع فى الارشيف http://www.officena.net/ib/index.php?act=S...&st=0#entry6020 و مثال الأخ فهد مشكورا يعتمد علي ال RecordsetClone و المثال الذي أضفته عن طريق دالة Dcount

أخي :العصيمي جرب هذا المثال عله يفيدك فيما تريد إن شاء الله حاول أن تدخل معلومة متكررة في السجل كاملاً مثلاً الاسم____العمر___الهاتف فهد_____10______1234567 فهد_____10______1234567 أما لو أختلف أي معلومة في السجل فسوف يقبلها البرنامج.. مثلاً أختلاف العمر وتطابق باقي المعلومات فهد_____11______1234567 فهد_____10______1234567 أوأختلاف الاسم وتطابق باقي المعلومات وليد_____10______1234567 فهد_____10______1234567 أواختلاف الهاتف وتطابق باقي المعلومات فهد_____10______9876543 فهد_____10______1234567 أرجو أن يكون هذا هو ما تريده وتقبل تحياتي fahad_2003.zip

هل هذا الموضوع من ضمنها شرح دوال أكسس - دوال تجميع المجال http://www.officena.net/ib/index.php?showtopic=152 أيضا الامثلة فى هذا القسم دوال الأكسس http://www.officena.net/ib/index.php?s=&act=SF&f=30

شكرا للأخ سحاب علي مداخلته ، و سأحاول أيضا شرح الفكرة فيما يلي : و طبعا الموضوع عرضة لافكار كثيرة و لكن ساشرح فكرة لتوضيح الطريقة ( طريقة التعامل مع الدوال و التأكد من الرصيد ) . مع ملاحظة أني كتبت الكود التالي سريعا و لم أجربه فعليا ( لتوضيح الفكرة فقط ) لنفرض أن الرصيد المتاح يسجل فى جدول الموظفين كاجمالي المسموح به لكل موظف. و المستهلكات تسجل فى جدول الاجازات كتاريخ بداية و نهاية و منها علي النموذج تحسب عدد الايام المطلوب تسجيلها كأجازة ( مدة الاجازة ) ومدة الاجازة هي التي سنقوم باختبار هل الرصيد يسمح بها أم لا txtnewRquest هو مربع النص الذي يتم منه تسجيل مدة الاجازة فى جدول الاجازات سواء مباشرة بالكتابة فيه أو بالكود بعد تحديث تواريخ بداية و نهاية الاجازة علي النموذج txtempId هو كود الموظف علي النموذج txtremaining مربع نص غير منضم يتم حساب المتبقي فيه بالكود ( قبل تسجيل الاجازة التي يتم اختبارها حاليا ) txtRassed مربع نص غير منضم يتم حساب الرصيد الاصلي فيه بالكود و لدينا جدولان الاول الموظفين و اسمه tblemp و به حقل الرصيد الكلي Total و حقل كود الموظف empId و جدول حركة الاجازات tblVications و به حقل المستهلك used و كود الموظف empId بالاضافة الي توايخ الاجازة و لكن هي ليست موضوعنا هنا و الكود ينفذ من زر أمر فى نموذج الاضافة الي جدول الاجازات فاما يقوم باظهار رسالة برفض التسجيل لعدم وجود الرصيد ، أو يحسب لنا القيم و يضعها علي النموذج و طبعا هذا لا يكفي لاتمام العمل و التسجيل ، و لكن فقط أردت توضيح النقطة المطلوبة وان لم يكن الشرح التالي واضحا ، فأرجو أن يفي مثال الاخ سحاب بما تريد Dim Rassed, used As Integer Rassed = DLookup("[Total]", "tblemp", "[empId]=" & Me.txtempId) used = DSum("[used]", "tblVications", "[empId]=" & Me.txtempId) If (Rassed - used) < Me.txtnewRquest Then MsgBox "No Rassed available" Exit Sub Else Me.txtRassed = Rassed Me.txtremaining = (Rassed - used) MsgBox " Vications Can be Taken !! " End If

اذا أردت نسخ سجل بالكامل فلا أفضل استخدام استدعاء أوامر القوائم و لكن يتم ذلك بال dao أو ال ado هذا مثال لنسخ السجل الموجود فى النموذج الي سجل جديد مع تغيير الترقيم باضافة 1 و هو يحتاج الي اضافة مرجع dao و يتم فيه نسخ السجل فى النموذج الحالي و اضافة سجل و فتح النموذج علي السجل الجديد Private Sub copyRec_Click() Dim MYDB As Database, MYSET1 As Recordset Set MYDB = CurrentDb() Set MYSET1 = MYDB.OpenRecordset("Query-or-Tablename") MYSET1.AddNew Dim n As Long n = DMax("inID", "Query-or-Tablename") + 1 MYSET1![ID] = n MYSET1![Field1] = Me![TextBox1] MYSET1![Field2] = Me![TextBox2] MYSET1![Field3] = Me![TextBox3] MYSET1![Field4] = Me![TextBox4] MYSET1.Update MYSET1.Close Set MYDB = Nothing DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 MsgBox " Copy Record Data Completed into record no. :" & Str(n), 64, "Alert" Dim stLinkCriteria As String stLinkCriteria = "[ID]=" & n DoCmd.OpenForm "Formname", , , stLinkCriteria End Sub

السلام عليكم هذا مثال لمن يريد معرفة عدد حروف أي جملة عربية وبالتفصيل قام بتعديل الكود ليصبح بهذا الشكل الذي في المثال أستاذي المبدع أبو هادي وله مني وافر الشكر والعرفان . (( يوجد في المثال نموذجين قبل تعديل الأستاذ أبو هادي وبعد التعديل )) ولكم تحياتي أخوكم : فهد الدوسري A_B_C.zip

السلام عليكم شكرا جزيلا أخي فهد على هداياك الجميلة . تحياتي .

السلام عليكم نعم أخي ha98 ، هذا الثابت هو المختص بإجبار فتح النموذج على شكل Data Sheet ولو تلحظ مسمى الثابت ac Form D S يدل على معناه حيث الـ D من Data والـ S من Sheet . تحياتي .

ضع فى خانة القيمة الافتراضية لمربع النص d1 = Format(now(); "ddd")

موضوع ذو صلة و ان كان لا علاقة له بالسؤال التعرف علي اللغة الحالية و تغييرها و التحكم فيها

من خصائص مربع النص تنسيق format اختار Numeral System و اجعلها context للتغير بحسب اللغة أو Hindi او National بحسب الاصدار لديك لتكون عربية دائما

طبعا هذا ممكن ،و لكن ... ليس من التطبيق الجيد تخزين ما يمكن استنتاجه فتاريخ اليوم كافي لاستنتاج اسمه فى أي وقت فلا داعي لتخزينه و عموما لتسجيل البيانات المستنتجة فى جدول ، من المفترض أنك تريد تسجيلها كنص ( اسم اليوم ) ففي حدث بعد التحديث لمربع ادخال و تعديل التاريخ ضع الكود التالي Private Sub d1_BeforeUpdate(Cancel As Integer) Me.dayname = Format(Me.d1, "ddd") End Sub علي اساس ان d1 هو مربع ادخال أو تعديل التاريخ و dayname هو المربع المرتبط بالحقل الذي تريد تخزين اسم اليوم فيه كنص

السلام عليكم كذلك يمكن استخدام دالة Format وذلك كالتالي : =Format(Date(),"ddd") أو للأسماء الكاملة كالتالي : =Format(Date(),"dddd") تحياتي .

أخي العزيز، جرب استخدام دالة () date في القيمة الإفتراضية للعمود بدلا من () time وفي التنسيق أكتب ddd مع تحياتي

أيضاً مثال علي ما الرد الاول ( استخدام التنسيق "ddd" ) dayname.rar

أخي الكريم ،،،، السلام عليكم ورحمة الله وبركاته لإظهار اسم اليوم لتاريخ معين ،،، اعمل مربع نص اجعل مصدر عنصر التحكم له هذا الكود : =Weekday([Date]) سوف يظهر لك في مربع النص هذا رقم اليوم اعمل مربع نص آخر ليظهر لك فيه ( اسم اليوم ) ،،، مثلاً حدد مربع نص اسمه ( combo2 ) وهذا الذي سوف يظهر فيه اسم اليوم ،،،، أنشيء مربع نص لإدخال التاريخ وليكن اسمه ( date ) ،،، ضع هذا الكود في حدث بعد التحديث لهذا الحقل : If day = 1 Then Me![combo2] = "السبت" ElseIf day = 2 Then Me![combo2] = "الأحد" ElseIf day = 3 Then Me![combo2] = "الإثنين" ElseIf day = 4 Then Me![combo2] = "الثلاثاء" ElseIf day = 5 Then Me![combo2] = "الأربعاء" ElseIf day = 6 Then Me![combo2] = "الخميس" ElseIf day = 7 Then Me![combo2] = "الجمعة" End If DoCmd.Requery "combo2" لقد عملت مثالاً لذلك ،،،، عسى أن يفي بالغرض شاكر dayname_97.zip

اخي العزيز توجد هناك قاعدة بيانات جاهزة تاتي مع الاوفيس واسمها northwind (يمكنك البحث عن هذا الاسم باستخدام البحث عن الملفات الموجود في قائمة ابدأ) وستجد في هذة القاعدة استعلام اسمه "Quarterly Orders by Product" و له نفس الفكرة ولكنه يستخدم الربع السنوي بدلا عن الشهر وللحصول على الاشهر يمكنك تعديل الحقل الذي هو عنوان العمود في هذا الاستعلام بان تعدل "q" إلى "mmm" وان تكتب اسم الحقل الخاص بالتاريخ لديك بدلآ عن [orderdate] الموجود في هذا الاستعلام وستحصل في النتيجة على استعلام جدولي يمكنك انشاء تقريرك بناءآ عليه...ارجو ان يكون هذا الرد مفيدآ لك ...مع تحياتي,,,