أبوبسمله

تم تعديل المرفق الرئيسي... ابوجودى

اخى العزيز @ابو جودي السبب ان المرفق لم يعمل عند اخوانى واساتذتى الداله التاليه والمرفق انت رافعه والجدول به سجل فالشرط محقق Public Function CountRec() As Boolean If DCount("*", tblUUID) = 1 Then CountRec = True End Function

جربت الاول واخبرنى انه خطا والثانى تمام

فتحت المرفق فالبدايه خالص عادى ولم استخدم الشفت او غيره وتم فتحه عادى ولم يتم اظهار اى نموذج اساسا ولما فتحت FrmMain فتح عادى ولم يتم تحويلى الى ان دخلت عالوحده النمطيه وتتبعت الكود ووصلت للجدول وقمت باظهاره وحذفته وشغلت FrmMain مره اخرى فقام بانشاء الجدول والتحويل للنموذج FrmNotReg وهذا الرقم 4C4C4544-0047-3710-8036-B8C04F474831

الان نعم وهو موجود تم تحويلى لكن لم حملت المرفق لم يتم تحويلى مثل اخوانى واساتذتى

اخى العزيز @ابو جودي جدول UsysSecured موجود بالقاعده ولم حذفته وقمت بتشغيل فورم FrmMain قام بالتحويل للنموذج FrmNotReg بالتوفيق اخى واستاذى

السلام عليكم ورحمه الله وبركاته اخوانى واخواتى الافاضل لى طلب وهو الدعاء بظهر الغيب لاخ عزيز على قد ابتلاه الله واهله بكورونا فاسالكم بالله ان تدعوا الله لهم بالشفاء عن أبي الدرداء رضي الله عنه قال: قال رسول اللهِ صلى الله عليه وسلم: «مَا مِنْ عَبْدٍ مُسْلِمٍ يَدْعُو لأَخِيهِ بِظَهْرِ الْغَيْبِ، إِلاَّ قَالَ الْمَلَكُ: وَلَكَ بِمِثْلٍ» عن ابن عباس رضي الله عنهما عن النبي صلى الله عليه وسلم: ((من عاد مريضاً لم يحضر أجله فقال عنده سبع مرارٍ: أسأل الله العظيم رب العرش العظيم أن يشفيك، إلا عافاه الله من ذلك المرض)). أسأل الله العظيم رب العرش العظيم أن يشفيك واهلك أسأل الله العظيم رب العرش العظيم أن يشفيك واهلك أسأل الله العظيم رب العرش العظيم أن يشفيك واهلك أسأل الله العظيم رب العرش العظيم أن يشفيك واهلك أسأل الله العظيم رب العرش العظيم أن يشفيك واهلك أسأل الله العظيم رب العرش العظيم أن يشفيك واهلك أسأل الله العظيم رب العرش العظيم أن يشفيك واهلك اللهم اشفى مرضانا ومرضى المسلمين اجمعين شفاء لا يغادر سقما

احسنت اخى واستاذى @سامي الحداد بارك الله فيك وجزاك الله كل خيرا جزاكم الله خيرا اخوانى واساتذتى 💐

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

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

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

شغال زيه الفل استاذ موسى يمكن هو ماخدش باله من طريقه التشغيل جزاك الله خيرا عالعموم اضع له طريقه اخى واستاذى العزيز خالد @kha9009lid الغائب عن العين الحضر فالقلب مع جميع اخوانى واخواتى الذيت تعلمت واتعلم منهم كل يوم جزاهم الله عنا كل خير وهى تصفيه القائمه بمجرد الكتابه بالكمبو بالتوفيق اخوانى kids(2).accdb

عندك خطأين واحد فالجدول IETEM_NEM بانك جعلت الحقل ITEM_NO نص طويل حولها لنص مختصر ثانيا فالكود فالسطر الاخير لم تغير Me!ID Me!id = "bw/" & prtyr & "-" & Format(xNext, "00000") فغيره الى Me!ITEM_NO = "bw/" & prtyr & "-" & Format(xNext, "00000") بالتوفيق

سوف اطلع ع المرفق واوافيكم بالرد بالتوفيق

اتفضل اخى ومعذره فقمت باستيراد النماذج والجدول الى قاعده بيانات اخرى قمت بعملها فى كمبو واحد ان شاء الله يكون ما تريد Private Sub naked1_AfterUpdate() Me.Subfrm!naked1 = Me.naked1 End Sub بالتوفيق Database1.accdb

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

وعليكم السلام ورحمه الله وبركاته واياكم اخى ووالدى العزيز ابويوسف @محمد حسن المحمد واحشنى والله واعتذر عن التقصير فالسؤال عنكم فسامحنى 💐

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

وعليكم السلام ورحمه الله وبركاته اخى الفاضل طارق @Tarekfathallah هل اقوم بالتغييرات اللازمه ام لا بالنسبه لجدول IETEM_NEM وحقل ITEM_NO رقم الوارد الذى تريد جعل هذا الترقيم به والبادىء من اليسار بالحروف فهو فى جدولك الان حقل رقمى والترقيم الذى تريده به حروف وعلامات فيجب تغييره الى حقل نصى هل اقوم بالتغييرات ام لا ؟

اتفضل اخى ان شاء الله يكون ما تريد ولاحظ التغييرات فالكود وجزاه الله خيرا معلمنا العزيز وشيخنا الجليل @ابوخليل Private Sub Form_BeforeInsert(Cancel As Integer) On Error Resume Next Dim xLast, xNext As Integer Dim prtyr, prtTxt As Integer prtyr = Right(DatePart("yyyy", Date), 4) prtTxt = CLng(Mid(DMax("ID", "tbl1"), 4, 4)) xLast = CLng(Right(DMax("ID", "tbl1", prtTxt = prtyr), 5)) If IsNull(xLast) Then xNext = 1 Else xNext = xLast + 1 End If Me!ID = "ss/" & prtyr & "-" & Format(xNext, "00000") End Sub بالتوفيق ترقيم مع السنة وزيادة حرف_1.mdb

جزاكم الله خيرا اخوانى واساتذتى @سامي الحداد و @Moosak على مشاركتكم 💐 بالتوفيق اخوانى

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

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

السلام عليكم مشاركه مع اخى واستاذى @Eng.Qassim جزاه الله خيرا هل هذ ما تريد Me.BEBY_Age = Me.yes & " سنه " & Me.mos & " شهر " & Me.das & " يوم " برنامج حضانة.accdb

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