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

بعد اذن الاخ مداد تم تغيير اسم الشيت الى اللفة الاجنبية "salim" (كما اعمل دائماً مع الاكواد لحسن عمل الماكرو من حيث النسخ واللصق) هذا الكود البسيط Option Explicit Sub get_Data() Dim S As Worksheet Dim x%: x = 4 Dim dic As Object Dim ky Set S = Worksheets("salim") S.Range("d4").CurrentRegion.ClearContents Set dic = CreateObject("Scripting.Dictionary") Do Until Cells(x, 1) = vbNullString If Not dic.exists(S.Cells(x, 1).Value) Then dic.Add (S.Cells(x, 1).Value), S.Cells(x, 1).Offset(, 1) End If x = x + 1 Loop '======================== With S.Range("d4").Resize(dic.Count) .Offset(, 1) = _ Application.Transpose(dic.items) .Value = _ Application.Transpose(dic.keys) .Offset(dic.Count).Resize(dic.Count) = _ Application.Transpose(dic.keys) For Each ky In dic.keys dic(ky) = dic(ky) + 1 Next .Offset(dic.Count, 1) = _ Application.Transpose(dic.items) End With Set dic = Nothing: Set S = Nothing End Sub الملف مرفق Conditional_Duplicate.xlsm

السلام عليكم دعائكم هو أغلى بكثير مما يمكن أن يقدمه أي إنسان، بارك الله بكم ولكم مثل ما دعوتم وأكثر إن شاء الله تعالى ملاحظة حاول ألا تستخدم الحقول المحسوبة في الجداول. بالتوفيق أخي الغالي ‏‏‏‏احصاء 2010 -E3.accdb

وعليكم السلام مشاركه لاخى صلاح جزاه الله خيرا بكود جميل من اكواد اختى العزيزه زهره جزاها الله كل خير تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق zxc.accdb

المعادلة في المرفق الجدول الاصفر Conditional_Duplicate1.xlsm

وعليكم السلام اخى صلاح المشكله انك بتطلب تحديث بناء على ID وهو غير موجود بالجدول 2 فمش قادر يحدث تم التحديث بنجاح بعد اضافه ID تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق تحديث تاريخ الميلاد من الرقم القومي.rar

أستاذ Ahmed 70 أين الضغط على الإعجاب ؟!!💙

تفضل كود لأحد اساتذة هذا المنتدي الجميل فواتير٣٣٣.xlsm

السلام عليكم في المرفق التعديلات المطلوبة حسب ما انتهت إليه معرفتنا ولما وصلنا من رؤيتكم عن المعالجة، ولكن يرجى الانتباه إلى أن التعديل حسب طلبكم شمل حقل الذكور في المستجد والقرار دون لحظ الإناث. لم نجد رابطاً بين التوزيع الديني للطلاب مع المجموع. لم أقم بتكرار الأكواد للحقول. جعلت الجدول يحفظ آخر تعديل فقط. أرجو لكم التوفيق ‏‏احصاء 2010 -E2.accdb

وعليكم السلام ورحمة الله وبركاته غير السطر If TabCtl0.Value = 1 Then الى If TabCtl0.Value = 1 Or TabCtl0.Value = 2 Then او الى التالي اذا اردت جميع التبويبات بما في ذلك الصفحة الرئيسية If TabCtl0.Value = 0 Or TabCtl0.Value = 1 Or TabCtl0.Value = 2 Then تحياتي

السلام عليكم أضفت حقلاً للاستعلام ليظهر انطباق النتيجة على المطلوب، يمكن حذفه دون تغيير في النتيجة. أرجو أن يكون هذا ما تحتاج. temp kam2EDIT.accdb

بسم الله الرحمن الرحيم فى البداية لا اعلم ان كان قد تطرق احد الى هذا الموضوع الاتى شرحة من قبل ام لا وعلى كل لا ضرر فى توضيحة من جديد طبعا الحل دا هتلجأ لى بعد ما تنفذ منك كل سبل تصغير حجم قاعدة البيانات او ممكن تستخدمة عند انشاء برنامجك من البداية الموضوع ببساطة هو تحويل قاعدة بياناتاك من Access الى Sql تحويل الخلفية فقط ( الجداول ) اما النماذج فيتم انشائها فى اكسس عادى طريقة العمل المتطلبات ------------------ 1 - Microsoft SQL Server 2008 R2 RTM - Management Studio Express لينك التحميل https://www.microsoft.com/en-us/download/details.aspx?id=22985 2 - سيكوال سيرفير 2008 R2 لينك التحميل https://www.microsoft.com/en-us/download/details.aspx?id=30438 3- اوفيس اصدار 2007 فما فوق -------------------------------- شرح بسيط بالبلدى كدا احنا هنعمل سيرفير محلى وننشئ عليه قاعدة بيانات وبدل ما نصمم عليها الجداول من اول وجديد هنصدرها من الاكسس ببيانتها بكل ما تحتوى بس كدا هههههههههه طريقة العمل اول هنسطب السيرفر المحلى ( سيكوال سيرفير 2008 R2 ) طريقة تسطيب هتلاقوها فى الفيديو دا ثانيا تثبيت Microsoft SQL Server 2008 R2 RTM - Management Studio Express وهتلاقو طريقة التثبيت فى الفيديو دا نخش بقى على المهم بعد التثبيت هنفتح Management Studio Express هتلاقوه فاتح الشاشة دى هتكتب فى اسم السيرفير .\SQLEXPRESS وبعدين connect هتطلعلك الشاشة دى كليك يمين واختار داتابيز جديدة زى الصورة بالظبط هتظهرلك شاشة التالية هنكتب فيها اسم قاعدة بيانات اللى انت عاوزها وبعدين OK بعد كدا هتظهرلك قاعدة بايناتاك ضمن قواعد البيانات زى اللى فى الشاشة التالية لو مظهرتش كليك يمين ورفريش هتظهر معاك على طول --------------------------------------------------- كدا احنا انشأنا قاعدة البيانات على السيرفير ولكن بدون جداول فاضل بقى نظهر قاعدة البيانات للاكسس علشان يقدر يشوفها على السيرفير المحل تابع معايا اولا من قائمة استارت اختار بحث او ابحث عن البرنامج الاتى odbc data sources افتحه هيظهرلك الشاشة دى اختار Add بعد كدا هتظهرلك دى اختار Sql Server وبعدين Finsh هتظهرلك الشاشة دى طبعا هتكتب اسم قاعدة البيانات اللى انت عاوزها ونفسها فى حقل الوصف واسم السيرفير دا .\SQLEXPRESS وبعد كدا Next هتظهرلك الشاشة دى اختار منها Next هتظهر الشاشة دى علم على اللى فى الصورة واختار منها قاعدة بياناتك اللى انت انشأتها بعد كدا هتظهر اخر شاشة دى اختار منها Finsh هتظهرلك شاشة تاكيد اختار منها OK وممكن تعمل منها تيست لقاعدة البيانات تشوفها متصلة ولا لا بعد كدا هتلاقى قاعدة بياناتك ظاهرة فى كما فى الشاشة التالية --------------------------------------------- كدا احنا وصلنا لنص المهمة ظهرنا قاعدة البيانات للاكسس فاضل بس اصدر ليها الجداول بتاعتى هتفتح الاكسس وكليك يمين على الجدول نختار الاتى بعد كدا بعد كدا امسح الجدول طبعا قبل ما تمسح خد نسخة من قاعدة البيانات علشان مترجعش تصوتلى تقولى البرنامج باظ هههههههههه بعد كدا من بيانات خارجية فى الاكسس اختار التالى بعد كدا الاتباط بمصر البيانات علشان يعمل لينك للجدول بين السيكوال والاكسس بعد كدا اختار قاعدة البيانات بتاعتنا بعد كدا هتلاقى الجداول اللى صدرناها ظاهرة فى الاول مسبوقة بكلمة dbo_ اختاره واضغط اوكيه بعد كدا هياكد معاك حقول الجدول اللى هيا مفتاح اساسى اختار المفتاح الاساسى فقط هتلاقى الجدول ظهر عندك فى قاعدة البيانات الخاصة بك بهذا الشكل فقط اعد تسميته كما كان والجدول ظاهر بكل بياناته وبكدا يبقى قاعدة البيانات اتحول من اكسس الى سيكوال وسهل جدا تعمل لها باك اب من خلال سيكوال شكرا لكم

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

جزاك الله خيرا اخى صلاح جبر سؤال للاخ رايان هل ستضيف ثلاث حقول كلما رزق الموظف بمولود وبالتالى عالنماذج ؟

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

وعليكم السلام تفضل مثالك بعد التعديل اطفال.rar

CFAMURAD أين الضغط على الإعجاب ؟! 💙

وعليكم السلام-تفضل دالة dcountA شرح الدالة DCOUNT

وبما انك تعلم ان المنتدى تعليمى من المقام الأول ولبس لتقديم وعمل البرامج الجاهزة فكان عليك القيام بتصميم الملف الذى تريده بنفسك واذا تعثرت فى شيء فعليك برفعه هنا ولكن هذا برنامج بمقابل مادى اذا احببت برنامج إدارة شركات السفر و السياحة وهذا برنامج اخر مشروح داخل هذا الفيديو برنامج إدارة مكاتب السياحة و السفر , لمحة عامة - AHMAD's TTS

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

السلام عليكم السبب ان مجموعة (عضو جديد) لها حد لعدد المشاركات اليومية تم تعديل المجموعة لتجنب هذا الشرط اهلا بك كعضو ممبز 🌼

وعليكم السلام-اهلا بك فى المنتدى , فقط بهذه المعادلة =IFERROR(VLOOKUP($A2,Sheet1!$A$2:$B$900,2,0),"") معادلة جلب اسم المحافظة.xlsx

شكراً لردك بس ازاى احط الكود الى موجود فى الاكسس عشان يتعمل شكل برنامج

يمكنك عمل فلتر من أجل قيمة وحيدة

نعم اخي تفضل شاهد المرفقات Test_1.xls

,والله ماوفيتك حقك وهذا اقل شيئ بأن ادعو لك بارك الله فيك والف ألف شكر لحضرتك ربنا يكرمك ويزيدك علما وتقبل تحياتى حبيبى الغالى كده تمام التمام بارك الله فيك

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

الفاضل استاذى kha9009lid الذى افادنى كثيرا فى عملى ولازال شكرا خالص لشخصل الرائع وحلولك المتعدد شكرررررررررررررررررررررررررررررررررررا

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

تم معالجة الامر مع بعض التحسينات على الكود Option Explicit Sub ABSCENT_EXTRA() Application.Calculation = xlCalculationManual Dim K As Worksheet, A As Worksheet Dim Ro_K%, col%, NUM%, Ro_A%, x%, i%, m%, t%: t = 1 Dim ALL$, ALPHA$, Str$: Str = "غ" ALL$ = " ": ALPHA = " " Set K = Sheets("keab"): Set A = Sheets("arhkeab") Ro_K = K.Cells(Rows.Count, 2).End(3).Row If Ro_K < 5 Then Exit Sub Ro_A = A.Cells(Rows.Count, 2).End(3).Row m = IIf(Ro_A < 5, 5, Ro_A + 1) NUM = m For i = 5 To Ro_K If Application.CountIf(K.Cells(i, 6).Resize(1, 31), Str) = 0 Then _ GoTo My_next A.Cells(m, 2).Resize(, 2).Value = _ K.Cells(i, 2).Resize(, 2).Value For col = 36 To 6 Step -1 If K.Cells(i, col) = Str Then ALL = ALL & col - 5 & "-" End If Next col For col = 6 To 36 If K.Cells(i, col) = Str Then ALPHA = ALPHA & K.Cells(3, col) & "-" t = t + 1 End If Next col If t > 1 Then With A.Cells(m, 4) .Value = Mid(ALL, 1, Len(ALL) - 1) .Offset(, 1) = Mid(ALPHA, 1, Len(ALPHA) - 1) .Offset(, 2) = t - 1 .Offset(, 3) = K.Cells(2, "T") .Offset(, 4) = Year(Date) End With m = m + 1 End If My_next: t = 1 ALL = " ": ALPHA = " " x = x + 1 Next i With A.Range("b" & NUM).Resize(x, 7) .ClearFormats .InsertIndent 1 .Borders.LineStyle = 1 End With Application.Calculation = xlCalculationAutomatic End Sub Tarhil_3iyab (3).xlsm

وعليكم السلام ورحمة الله اليك مثالك بعد التعديل علية zxc.accdb

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

السلام عليكم اعمل استعلام وضع في المعيار شرط العمر =< 18 سنة (اي من 18 سنة قاكثر ويمكن تعديلها) تحياتي اختبار.rar تقرير.rar

السلام عليكم اخي العزيز الافضل ان ترفق لنا ملفك او مثال لغرض التعديل اولا : مثال عن كود لالحاق البيانات بشرط؟ ' هذا هو كود الالحاق بشرط ان نحتاره مع تغيير اسماء الجداول والحقول DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO table2 ( ت, [اسم الموظف], [مجموع الراتب] )SELECT table1.ت, table1.[اسم الموظف], table1.[مجموع الراتب]FROM table1 WHERE (((table1.ت)=[Forms]![form1]![ت]));" DoCmd.SetWarnings True Beep MsgBox "تم الحاق البيانات بنجاح", vbMsgBoxRight + vbOKOnly, "تأكيد" End Sub ثانيا : مثال عن كود حذف بيانت الجدول DoCmd.SetWarnings False DoCmd.RunSQL "DELETE FROM table2;" DoCmd.SetWarnings True MsgBox "تم افراغ الجدول بنجاح", vbMsgBoxRight + vbOKOnly, "تأكيد" Me.table2.Requery تحياتي ملف مرفق لاحد الاخوة بالموقع استعلام الحاق و.rar

جرب هذا الملف My_Tajriba.xlsm

اطلع على هذا الموضوع

جرب هذا الماكرو Option Explicit Sub MY_SUM() Dim sh As Worksheet, m As Worksheet Dim t As Long Set m = Sheets("mine") For Each sh In Sheets If sh.Name Like "[a-zA-Z]" & "*#" Then _ t = t + Application.CountIf(sh.Range("I:I"), m.Range("A8")) Next m.Range("B8") = t End Sub

فى البداية اوجه الشكر لكم وانوه ان هذا الموضوع هو تكملة للموضوع التالى الخاص بتحويل الاكسس الى سيكوال انشاء السيرفر وتحويل اكسس الى سيكوال اى انـــــه لابد من تثبيت السيرفر اولا فقط على الجهاز الذى سيكون عليه قاعدة البيانات وتحويل قاعدة البيانات من اكسس الى سيكوال لكى يتم الاتصال بشكل فعلى هنا يعنى هنثبت سيكوال فقط على جهاز السيرفر مش كل الاجهزةة كلانا يعرف كيفية مشاركة الاكسس على الشبكة المحلية فقط هنعمل مشاركة للمجلد الذى يحتوى على قاعدة البيانات وبكدا اى مستخدم على الشبكة المحلية يقدر يستخدم قاعدة بيانات اكسس الموضوع يختلف كثير مع سيكوال تعالو لنقسم الموضوع الى جزئين الاتصال عن طريق الشيكة المحلية الاتصال عن طريق الانترنت 1 - فتح بورت فى الويندوز 1 - فتح بورت فى الويندوز 2 - فتح بورت فى السيرفر 2 - فتح بورت فى السيرفر 3- تثبيت الاى بى للويندوز 3 - فتح بورت فى الراوتر 4 - الحصول على اى بى ثابت اولا الاتصال عن طريق الشبكة المحلية ------------------------------------------------ بعد نثبيت السيرفر وتحويل الاكسس الى سيكوال اى تصدير الجداول من اكسس الى قاعدة بيانات سيكوال هناك امور مشتركة بين الاتصالين وهو فتح بورت فى الويندوز وفتح بورت فى السيرفر اذا نبدأ فى شرح كيفية فتح بورت فى الويندوز عن طريق Windows Firewal كدا فتحنا بورت لسيكوال سيرفر فى النظام طبعا لو عندك برامج حماية غير windows Defender يجب ان تسمح له بفتح البورت ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- والان فتح بورت فى السيرفر كدا فتحنا بورت فى السيرفر نيجى بقى للاتصال من جهاز اخر غير جهاز السيرفر تابع معى اولا يجب معرفة اى بى جهاز الذى عليه السيرفر عن طريق Cmd ثم ipconfig هيظهر الاى بى فى IPv4 Adress اما الثانية فدا عنوان الراوتر طبها الاى بى الخاص بجهاز السيرفر هو 192.168.1.3 وهذا الذى سوف نتصل به من الكمبيوتر الاخر الذى على نفس الشيكة المحلية هنفتح ODBC زى ما عملنا فى الموضوع السابق والخطوة الاهم هى التالية هنكتب اسم قاعدة البيانات اسم السيرفر سيكون كاالتالى الاى بى الخاص بالسيرفر , بورت السيرفر ( 1433 ) كوما وليس نقطة (192.168.1.3,1433 ) وتكمل خطواتك عادى زى الموضوع السابق بقى وبكدا يبقى اتصلنا بجهاز السيرفر ونستطيع نعمل ارتباط لجداول قاعدة البيانات من سيكوال الى اكسس حاجة اخيرة الاى بى الخاص بجهاز السيرفر بيتغير كل شوية ممكن نثبته عن طريق الخطوات التالية هنجيب الاى بى من cmd كدا احنا ثبتنا الاى بى الخاص بالجهاز اللى عليه السيرفر علشان تقدر تدخل بيه من على اى جهاز ------------------------------------------------------- المرحلة الثانية الاتصال بالسيرفر من على النت اى ليس شرطا وجودالمتصل على نفس الشبكة المحلية هى هى نفس الخطوات فقط هنضيف خطوة زيادة الا وهى الحصول على Static IP وفتح بورت فى الراواتر بالنسبة للاى بى الثابت دى خدمة بتقدمها الشركة اللى انت متعاقد معاها على خط الانترنت فى مصر تكلفة الاى بى الثابت عشرة جنيه شهريا من We بتطلبه من الشركة وهى بتثبتلك اى بى عمتا لو عاوز تعرف الاى بى بتاعك تابع الاتى مع العلم ان الاى بى بتغير كل ما تعمل ريستارت للراوتر هتبحث فى جوجل كدا ويطلعلك الاى بى كدا ودا اللى هنقدر ندخل بيه على السيرفر من اى مكان شرط توافر انترنت طبعا مش هتقدر تتصل على السيرفر بالاى بى دا اللى لما تفتح بورت فى الراوتر اللى متصل عليه السرفر تابع معايا انا عندى راوتر تى داتا وهشرح عليه تقريبا هى نفس الخطوات فى كل الروترات فتح بروت فى الراوتر طبعا هتعرف عنوان الراوتر بتاعك من هنا والاى بى اللى هنستخدمه هندخل على المتصفح ونكتب فى عنوان الراوتر وندخل عليه طبعا الاسم وكلمة السر بيبقى موجودين على ضهر الراوتر بعد كدا نفس الخطوات بالظبط كدا يبقى فتحنا البورت فاضل اللاتصال طبعا هتفتح ODBC ذى ما ذكرنا قبل كدا وهتدخل البيانات زى كدا الاى بى , 1433 وتابع بقية الخطوات زى الموضوع السابق علشان تقدر تحضر قاعدة بيانات سكوال على جهازك وتتصل عليه طبعا الشغل اللى مطلوب على جهاز السيرفر الحصول على الى Static IP فى حالة الاتصال عن بعد فتح بورت فى الرواتر فى حالة الاتصال عن بعد تثبيت اى بى الجهاز فتح بورت فى الويندوز فتح بورت فى السيرفر بعد ما تعمل كل دا انت ما عليك الا انك تتصل على السيرفر كما ذكرت دون الحاجة الى تثبيت سيكوال سيرفر على جهازك شكرا لكم كان مفروض فى مرفق بتدخله بيانات السيرفر زى اى بى اسم قاعدة البيانات سيكوال اسم المستخدم لو فى وكلمة السر للسيرفر وهو هينشأ الاتصال اوتامتيك طبعا بعد ما تظبط جهاز السيرفر زى ما قلنا وفى نفس المرفق خيار اخر وهو هتدخل البيانات السابقة اضافة الى اسم جدول موجود على سيكول وهو هيربطهولك تلقائى فى قاعدة اكسس بس الوقت اتاخر اوى وانا بسقط من النوم الصراحة ان شاء الله نقوم بتصميمه غدا السلام عليكم ورحمة الله وبركاته اخوكم السيد جمال 🥰

السلام عليكم مشروع حملة حج خيرية .. طلب مني توزيع آلي للركاب حسب شروط محددة عدد الباصات 5 يتسع الباص لـــ 49 كرسي لكل باص مشرف خاص عدد المشرفين 5 مع عائلاتهم كل حاج معه مرافقين يختلف عددهم من حاج لآخر ، ويمكن ان يكون الحاج وحيدا المطلوب بضغطة زر التوزيع على الباصات حسب الشروط التالية 1- توزيع المشرفين الخمسة على الباصات الخمسة كل حسب رقم الباص المسجل امامه . 2- توزيع بقية الحجاج على الباصات بشرط مهم وهو ان يكون كل حاج وعائلته ضمن باص واحد . وينطبق ذلك على المشرفين ايضا 3- تعبئة الباصات الاول ثم الذي يليه حتى اكتمال الباصات بالركاب المرفقات : جدولان : رئيسي وفرعي الرئيسي سجل فيه بيانات الحاج والفرعي سجل فيه بيانات المرافقين له يشترك الحاج والمرافقين له بمعرف موحد بينهم : userid ينفرد كل فرد بمعرف خاص به : cardID الشكر مقدما .. لكم جميعا احبتي haj.mdb

السلام عليكم 🙂 واصبح البرنامج مستعد يأخذ اي عدد 🙂 وبواجهة جديدة : . . جعفر 1158.2.mdb.zip

السلام عليكم 🙂 اذا تسمحي اخوي ابو خليل ، واخوي محمد ابوعبدالله 🙂 مشاركتي لا تؤدي العمل بضغطة زر ، وانما تقدر تستفيد منها لتوزيع الغرف لاحقا ايضا 🙂 الاختيار ليس تلقائي ، ولكنه يسهل العمل كثيرا 🙂 ومن تجربتي مع الحجاج ، بعض الاوقات في مجموعة تحب ان تكون مع مجموعة اخرى في الباص ، فطريقتي سوف تسهل عليك 🙂 العمل كله بيكون في الجدول tbl_Groups ، والعمل بالمجموعات ، لذا : 1 و 2. استعلامات الحاقية ، فقط لاخذ بيانات الجدولين tbl_Tsjeel والجدول tblSub_Tsjeel الى الجدول tbl_Groups . 4. نموذج العمل هو frm_Main تختار من قائمة "في انتظار التوزيع" (وفي الواقع الاختيار عن طريق userid) ، العدد الذي تريده ، وفي الاسفل بتشوف عدد اختياراتك ، ومجموع الاشخاص اللذين اخترتهم ، تختار الى اي باص تريد ان تلحقهم ، باختيار رقم الباص ، ثم النقر على الزر الاول (السهم من القائمة الى الباصات) ، وتلقائيا تشوف النتائج ، واذا اردت ارجاع اي مجموعة ، فالاختيار يكون من قائمة الباص ، وتنقر على الزر بالاسفل (السهم من الباصات الى القائمة) ، وتلقائيا تشوف النتيجة 🙂 . هي لعبة اكثر منها عمل 🙂 جعفر 1158.haj.mdb.zip

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

السلام عليكم أعضاء المنتدى الكرام أذكر طريقة تكملة البيانات تلقائيا في الفورم انطلاقا من نفس الجدول بحيث هناك طريقتين: طريقة الاولى عن طريق ما يسمى recordset Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM Clients WHERE idClient= " & Me.nomClien, dbOpenDynaset) Me.Societé = rs!Societé Me.Adresse = rs!Adresse Me.Tel = rs!Tel Me.Email = rs!Email Me.Ville = rs!Ville rs.Close Set rs = Nothing أما الطريقة الثانية فهية عن طريق Dlookup If DLookup("idClient", "Clients", "idClient=" & Me.nomClien) Then Me.Ville = DLookup("Ville", "Clients", "idClient=" & Me.nomClien) Me.Societé = DLookup("Societé", "Clients", "idClient=" & Me.nomClien) Me.Adresse = DLookup("Adresse", "Clients", "idClient=" & Me.nomClien) Me.Tel = DLookup("Tel", "Clients", "idClient=" & Me.nomClien) Me.Email = DLookup("Email", "Clients", "idClient=" & Me.nomClien) End If سأرفق الملف لفهم أكثر كما أطلب من أساتذتنا الكرام هل هناك طريقة أخرى تقوم بهذا العمل بغرض التعلم لان هناك دائم طرق كثير للوصل الى الهدف في أكسس وشكرا لكم . test.accdb

1- برنامج محاسبة شركات http://www.mediafire.com/file/ujwyko1qiao3tz6/account_Prog_new2020_test.accde/file 2- برنامج ادارة محل جوالات (شراء - بيع - صيانة ) http://www.mediafire.com/file/r0pj4f2nub4z63t/%D8%A7%D8%AF%D8%A7%D8%B1%D8%A9_%D9%85%D8%AD%D9%84_%D8%AC%D9%88%D8%A7%D9%84%D8%A7%D8%AA_2019_%D8%A7%D9%84%D8%A7%D8%B5%D8%AF%D8%A7%D8%B1_%D8%A7%D9%84%D8%AB%D8%A7%D9%84%D8%AB.accde/file 3- برنامج ادارة الشقق ( تأجير وتحصيل الاجرة الشهرية ) http://www.mediafire.com/file/24531uui72xhqcj/%D8%A7%D8%AF%D8%A7%D8%B1%D8%A9_%D8%A7%D9%84%D8%B4%D9%82%D9%82_.accde/file 4- برنامج ادارة مشتل زراعي 5- برنامج ادارة مكتب محامي 6- برنامج ادارة المدارس الخاصة ورياض الاطفال برنامج ادارة المدارس الخاصة الاصدار الثالث.rar برنامج ادارة مكتب المحامي مع ارشفة الصور.rar برنامج مشاتل زراعية الاصدار الثالث.rar

السلام عليكم اخي باسم شكراً على هذه الملاحظة لتعديل الدالة عدل هذا السطر A_ID = Format(DateSerial(Mid(A_Rng, 2, 2), Mid(A_Rng, 4, 2), Mid(A_Rng, 6, 2)), "yyyy/mm/dd") ليصبح A_ID = Format(DateSerial("19" & Mid(A_Rng, 2, 2), Mid(A_Rng, 4, 2), Mid(A_Rng, 6, 2)), "yyyy/mm/dd")

نرجو اضافة هذه الاكواد للمحافظات حتى يكتمل الجمال *** القول الفصل فى اكواد المحافظات 1 القاهرة 2 الاسكندرية 3 بورسعيد 4 السويس 11 دمياط 12 الدقهلية 13 الشرقية 14 القليوبية 15 كفر الشيخ 16 الغربية 17 المنوفية 18 البحيرة 19 الاسماعيلية 21 الجيزة 22 بنى سويف 23 الفيوم 24 المنيا 25 اسيوط 26 سوهاج 27 قنا 28 أسوان 31 البحر الأحمر 32 الوادى الجديد 33 مطروح 34 شمال سيناء 35 جنوب سيناء 36 الأقصر 37 اخرى *** ولك خالص تقديري

السلام عليكم ورحمة الله تعالى وبركاته تفضل أخي الكريم الملف المرفق الدالة تم إنشاؤها بVB لذا يجب نسخها في ملف عملك month.rar