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

وهذه طريقة اخرى ... ايضا عملت على الزر الاول وانت طبق للبيقة .. سجلات 05.accdb

انظر المرفق عملت على اول زرار .... طبق انت على بقية الازرة سجلات 06.accdb

عليكم السلام والرحمة الحقل المطلوب لا يمكن تفريغ بياناته بعد ادخالها فالكود في المرفق هو لمسح البيانات وليس تفريغها وهذا اقرب تعبير وجدته لوصف الحالة جرب الكود ادناه وستفهم قصدي Me.c3 = Null

السلام عليكم ورحمة الله استخدم الكود التالى و لكن يجب عليك الغاء الهايبرلنك الذى يربط الزر بورقة حساب حتى يعمل معك الكود Sub fildata() Dim lr As Long lr = Sheets("شهر3").Range("A" & Rows.Count).End(3).Row Sheets("حساب").Activate Sheets("حساب").Range("A3").Value = Sheets("شهر3").Range("A" & lr).Value End Sub

استاذي العزيز wael_rafat شكرا لك وانا بالخدمة والشرح سيكون اختيار ثلاثة عناصر لكل يوم عدا يومي السبت والاحد فيتم اختيار عنصرين Num = 1 بما انه عدد الايام اكبر بكثر من عدد العناصر لذا نضع عداد لمعرفة عدد العناصر التي تم اختيارها ونخبر الكود بالعودة للعنصر الاول عند انتهاء عدد العناصر والذي سيتبين لاحقا For j = 1 To XCount2 هذا عداد لعدد الايام If Weekday(Rs2!XDate, 7) > 2 Then k = 3 Else k = 2 End If هذا الكود لاختبار اليوم هل هو عطلة ام لا اذا كان عطلة يختار عنصرين واذا لا يختار ثلاثة فالكود اعلاه يعيد اليوم الى رقم فاذا كان واحد فاليوم هو السبت واذا اثنين فاليوم هو الاحد وهكذا For i = 1 To k Rs2.Edit Rs2(i) = Rs!XNo Rs2.Update هذا الكود خاص باختيار العناصر لكل يوم والتي تم تحديد عددها سابقا Num = Num + 1 If Num > XCount Then Rs.MoveFirst Num = 1 Else Rs.MoveNext End If هذا الكود هو الذي سيختبر هل تم شمول جميع العناصر والعودة للعنصر الاول من جديد ام لا فالسطر الاول يزيد واحد في كل مرة يتم اختيار عنصر ويجري الاختبار هل تم الوصول لاخر عنصر اما لا اذا لا سيستمر العداد ويختار العنصر التالي واذا نعم سيختار العنصر الاول ويعيد العداد الى حالته الاولى ليستمر العد من جديد وتستمر العملية لحين انتهاء عدد الايام او الفترة الزمنية المطلوبة بالنسبة لتحديد عدد العناصر من مجموعة معينة او تحديد ايام عطل غير يومي السبت والاحد الافضل وضع مربع اختيار لاختيار العناصر والعطل كما هو الحال في المرفق الاخير لاستاذ Tarekfathallah وعذرا للتقصير والاطالة

البرنامج من خلاله تقدر تنظم خطوط الاتوبيسات فى العمل لنقل العاملين من والى جهة العمل يساعدك البرنامج فى معرفة مستقلى الخط من الموظفين وعدد الكراسى بالخط (شاغر \ مشغول) والعاملين الحاصلين على بدل انتقال ولا يستقلوا اتوبيسات الشركه او جهة العمل اليوزر : hatem الباسوورد : 2545 رابط التحميل https://drive.google.com/file/d/1G8Aohiy03yR4WVNiPALl42mzh_0_u81d/view?usp=sharing

نتيجة التجارب إلى الآن .. بالطريقة الأولى تم التطبيق على الزرين الآخرين بحيث يبدأ الترقيم من الحديث الحالي أو التالي " WHERE (((" & strTableName & ".HNO)>=" & strbar & "))") وفي كود الاستدعاء Call re_Num3("b14", "HNO", str, Me.HNO) ولكن في الطريقة الثانية لم تنجح هذه الطريقة لأن استدعاء الكود يكون من نموذج آخر Call re_Num("b14", "HNO", TempVars("barna"), Forms!b14.bar) وجربت تغييره إلى .. .. .. Forms!b14.HNO) .. .. .. Forms!b14!HNO) .. .. .. Forms!b14!bar) وما زبطت .. شكلو الطريقة الأولى أسهل 😃 شكرا لك أخي الكريم .. يعني كل التجارب الفاشلة كان حلها حذف هالسطر 😂

فقط احذف هذا من الكود لديك ... Me.Requery

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

وعليكم السلام .. انتا بتستخدم اصدار 64 من الاوفيس والاكواد محتاجة تتعدل عشان تشتغل على الاصدار ده .. عندك حلين الحل الاول تعديل كل الاكواد اللى فيها كلمة Declare تزود بعدها كلمة ptrsafe .. والحل الافضل انك تغير نسخة الاوفيس وتنزل اصدار 32 بيت لأن ال64 كله مشاكل حتى لو حليت دى فى المستقبل اكيد هيتعبك .. بالتوفيق

جرب هذا المرفق عسى ان تجد طلبك DB.rar

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

اخى العزيز انا عملت الفكرة التى تدور فى داخلك وهى على سبيل المثال : عند اختيار المصاريف العمومية من قائمة منسدلة تظهر فى الخلية المجاورة لها عناصر المصاريف العمومية فقط ثم عند اختيار بند من بنود المصاريف العمومية تظهر قائمة منسدلة ثالثة بها عناصر اخرى يعنى انا عاوز اقولك انت عايز 3 قائمة منسدلة ينبسق من بعض وتتغير عناصرهم بتغير عناصر القائمتان الاخريتان

وعليكم السلام ... الموضوع ليس بالسهل او الهين كما تتخيل فالموضوع صعب وكبير وهو تحويل برنامج أو ملف كامل بالأكواد هذا ليس يسير !!! , بارك الله فيك

اخي الكريم لفتح محادثه مع رقم محدد استخدم الشفرة التالية dIM phone_no, MsgText AS sTRING phone_no=" رقم الهاتف المحمول" mSGtEXT="نص الرسالة" Application.FollowHyperlink Address:="https://api.whatsapp.com/send?phone=" & phone_no & "&text=" & MsgText ' الاجراءات بعد فتح الواتس اب سواء عن طريق المتصفح او التطبيق للإرسال auseTime = 40 start = Timer Do While Timer < start + auseTime DoEvents Loop Call SendKeys("~", True) Call SendKeys("{Enter}", True) Call SendKeys("^v", True) Call SendKeys("{Enter}", True)

حل آخر في الملف المرفق... tarif.xls

لا افهم كيف بامكان خلية واحدة ان تظهر نتيجة اكثر من معادلة واحدة المعادلات المطلوبة في العامود N Nassim.xls

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

استاذي الحبيب abouelhassan انا بخدمتك ورحم الله والديك على هذا الدعاء ومبارك عليكم الشهر الكريم واعاده الله عليكم بالصحة والسلامة وقبول الاعمال

بارك الله فيك وجزاك الله خير اخي الكريم الله يعطيك العافيه هذا هو المطلوب الف شكر لك اخي تحياتي لك

مع انه يمكن الغاء عمل الزر عن طريق خصائص النموذج وبدون الحاجة الى كود لكن ممكن مع الانتباه الى ان تعطيل بعض خصائص النموذج يتطلب لها الدخول على عرض التصميم لذا يمكن التحايل وعملها عن طريق 👇 DoCmd.OpenForm "frm1", acDesign Forms!frm1.CloseButton = False DoCmd.Close acForm, "frm1", acSaveYes DoCmd.OpenForm "frm1" وتفسيره افتح النموذج في عرض التصميم اجعل زر الاغلاق غير مفعل اغلق النموذج مع حفظ التغيير اعد فتح النموذج مشوار طويل ولكن .... الملف مرفق aziz.accdb

مش فاهم تقصد اية

لأن الاسكانر مطفي او غير معرف

بارك الله فيك اخى استاذ عبدالله الصاري

بل يعمل 2545 حفطك الله

بواسطة استعلام مثال للكود SELECT Count(tb1.تربص) AS CountOfتربص, tb1.first_name FROM tb1 GROUP BY tb1.first_name, tb1.تربص;

لا يمكن التعديل على البيانات في حالات الإستعلام التالية: crosstab query (crosstab query: A query that calculates a sum, average, count, or other type of total on records, and then groups the result by two types of information: one down the left side of the datasheet and the other across the top.). SQL-specific query (SQL-specific query: A query that consists of an SQL statement. Subqueries and pass-through, union, and data-definition queries are SQL-specific queries.). The field you are trying to edit is a calculated field (calculated field: A field, defined in a query, that displays the result of an expression rather than displaying stored data. The value is recalculated each time a value in the expression changes.). In this case, you may be able to edit the other fields. The query is based on three or more tables and there is a many-to-one-to-many relationship في الموقع التالي تجد تفاصيل و كيفية استعمال الاستعلام لتحرير أو اضافة بيانات الدخول على الموقع

جرب الكود التالي Forms![MainFormName]![SubFormName].SetFocus DoCmd.GoToRecord , , acNewRec

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

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

الاخوة الافاضل لدي استعلام متجدد (اي يتم الغاء المعلومات السابقة ويتم اضافة معلومات جديدة) واريد ان يتسلسل الترقيم دائما من الرقم 1 وهكذا . مع جزيل الشكر

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

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

السلام عليكم مثال 2 في 1 . Form2 مثال للشجرة مطبق على دليل محاسبي . Form1 مثال بسيط لترجمة الأسماء . تحياتي . Treectrl.zip

اقوم بتصميم قاعدة بيانات لخدمة العملاء وتقوم اساسا على تلقى اتصالات العملاء ويتم تسجيل بيانات العملاء فى: الجدول 1 : بيانات العملاء ويتضمن كود العميل ، الاسم ، المنطقة ، العنوان ، الهاتف ويقوم الفني بزيارة العميل واعداد بطاقة الخدمة المطلوبة ويتم تسجيلها فى الجدول 2 : بطاقة الخدمة ويتضمن : رقم بطاقة الخدمة ، كود العميل ، وجميع بياناته ( من خلال مربعات التحرير والسرد اعنمادا على الجدول الاول ) اسم المشرف ووصف العمل ، ونوع الخدمة وقمت بعمل استعلام لبطاقة الخدمة والنمازج الاخري الجدول 3 : تسجيل البيانات ويتضمن رقم بطاقة الخدمة ومعلومات اخري عن رقم الفاتورة والسداد وخلافه عملت استعلام يضم بيانات من الجدول 2 و 3 وعند تصميم النموزج اقوم بادخال رقم البطاقة وعملت مربع تحرير سرد اعتمادا على استعلام الجدول 2 ليظهر كود العميل وبالفعل ظهر ولكن اريد ان تظهر باقى بيانات العميل الاسم المنطقة العنوان ،،، لم تنجح المحاولة لان البيانات فى نموزج بطاقة الخدمة لاسم العميل والمنطقة والعنوان هي مربعات تحرير وسرد اعتمادا على الجدول الاول اسف طولت عليكم لكن لانه ممنوع ارفاق المثال اردت الرح بالتفصيل، والمطلوب كيف تظهر جمع بيانات العميل بمجرد ادخال رقم بطاقة الخدمة خاصة وانني عندما حاولت اعمل علاقة بين رق بطاقة الخدمة والعميل يظهر النموزج 3 فارغا تماما اشكركم مقدما

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

اخوتي الكرام السلام عليكم ورحمة الله وبركاته اني مشترك جديد وقد لاحظت المجهود العظيم في الموقع ولو سمحتم انا لي سؤال قد يبدو غبيا ولكن :( اين يمكن كتابة الأكواد الكثيرة الموجودة في الدروس الرائعة السابقة0 وشكراااااااااا

أنواع البيانات فى الأكسس و كيفية الاختيار بينها عند تصميم الجداول ، علينا الاختيار من انواع البيانات ، بما يتناسب مع كل حقل و قد يصلح أكثر من نوع للحقل الواحد ، و عليه يكون الاختيار لما يستهلك مساحة أقل من الذاكرة أي نختار علي قدر ما نحتاج فقط و لمراجعة الانواع المتاحة بالتفصيل اضغط هنا و الأنواع بصفة عامة هي : Text : للتعامل مع القسم النصية عدد الحروف الأقصي هو 255 Memo : للقيم النصية الطويلة ، أو الرقمية عدد الحروف الأقصي هو 65,536 حرف Number : للقيم الرقمية و يقبل تخزين سعات مختلفة بحسب النوع المحدد و الانواع بصفة عامة هي Byte Integer Long Integer Single Double Replication ID decimal و تفاصيل بياناتها موضحة فى الرابط أعلاه Date/Time لتخزين التواريخ و الأوقات Currency لتخزيت العملات AutoNumber لتخزين رقم فريد ، يزداد بصورة منتظمة أو عشوائيا ، و لكنه فى النهاية فريد فى الجدول و يضاف تلقائيا مع فتح كل سجل Yes/No : للبيانات التي هي تمثل أحد خيارين لا ثالث لهما Yes/No, True/False, On/Off لا يقبل عدم وجود قيمة OLE Object لادراج كائنات تم انشائها ببرامج أخري : صور ، إكسيل ، ... Hyperlink وصلة خارجية الي مكان آخر قد تكون ملف أو مسار علي الانترنت Lookup Wizard لانشاء حقل يعتمد علي اختيار قيمة مناظرة من جدول آخر ، باختيار هذا الخيار ، يتم فتح معالج لا ختيار الحقل و القيمة المعادة و مرة أخري :d للتعرف علي أنواع البيانات بالتفصيل إضغط هنا مثال : لتخزين الاسم للموظف هل نختار Text memo طبعا سنختار Text مع ان النوع الاخر يصلح ، و لكن ستكون زيادة استهلاك للذاكرة بدون داعي ، و يعتبر خطأ تصميمي ، و لكن لن يمنع البرنامج من العمل