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

أخي الحبيب أبو عبد الرحمن أنا اللي مطنش ولا إنت اللي مشغول عننا .. لو إنت متابع كنت عرفت إني عملت مدونة جديدة خاصة بي ، وفيها حوالي 58 موضوع للآن .. وفيها موضوعات دسمة ومفيدة بس إنت اللي مش متابع رابط المدونة في التوقيع الخاص بي .. عموماً في انتظارك طلتك البهية على المدونة (بس مقلتش بهية مين دي !! تعرفها .. ولا أنا) تقبل تحياتي

السلام عليكم ورحمة الله وبركاته وبعد احبتي اليكم طريقة لاستخراج ارصدة الاصناف المتوفرة في المستودع وهي دالة تخرج لنا رصيد الصنف بمجرد تمرير رقم الصنف عليها اليكم الدالة مع الشرح Public Function alRaseed(ByVal vsenf As String) ' vsenf هو متغير نصي ويمكن ان يكون رقمي وهو يمثل رقم الصنف Dim shra, bai As Integer 'متغيرات رقمية shra = Nz(DSum("kmyahB", "tbl_buy", "N_mad=" & vsenf), 0) ' مجموع عدد الاصناف المشتراه من الصنف المحدد bai = Nz(DSum("kmyahS", "tbl_sales", "N_Mda=" & vsenf), 0) ' مجموع عدد الاصناف المبيعة من الصنف نفسه alRaseed = shra - bai ' الرصيد المتبقي End Function 'وفي النموذج ا Private Sub Cmd1_Click() text1 = alRaseed("0000121") 'الرقم بين القوسين يمثل معرف الصنف 'ويمكن ان نضع داخله اسم حقل الصنف End Sub اذا الشرح غير كافي يمكنني زيادة الايضاح

السلام عليكم بعد اذن اساتذة المنتدى الكرام هذه اول مشاركة لى بملف على هذا المنتدى العظيم .قمت يالتعديل والأضافة على بعض الشيتات الخاصة بالكنترول للصف الثانى الثانوى لما وجدت من بعض القصور فقمت ببعض الأضافات وأهمها ( ضم القسم العلمى والأدبى بكل فروعهم فى شيت واحد - كما ضميت كذلك طلبه المنازل ) ( تقريب الكسور فى المجموع الكلى للدرجة ) واتوجة بالشكر الى كل الأساتذة الموجودين بالمنتدى الذين تعلمت منهم الكثير وأخص بالذكر الأستاذ رجب جاويش على افكارة الرائعة فى الشيت كنترول الخاص بالثانوى العام التى اخذت منها الكثير واضفته للبرنامج وكذلك الأستاذ سامى الهادى وكذلك الأستاذ العلامة عبدالله باقشير الذى افادنى كثيرا فى تفقيط مجموع الطالب وهذه نسخة اولية ارجو التفضل بابداء ملاحظاتكم عليها. كلمة السر 123 ونظرا لكبر حجم الملف قمت بوضعه على هذا الرابط http://www.mediafire.com/download/l4lg47ckt7zobb8/%D8%A7%D9%84%D8%AB%D8%A7%D9%86%D9%89.rar

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

برنامج قاعدة شئون العاملين مميزة وبشكل جديد وتحتوى على: 1 - الاستعلام بلاسم على الموظف 2 - ادخال بيانات الموظف وتحديد رقم لكل ادارة 3 - القوائم ومنها نختار الموظفين لكل ادارة 4 - الإدارة وبها عدد الموظفين 5 - المؤهلات الدراسية عدد كلا منها 6 - التقارير + صورة الموظف 7 - حساب مكافأة نهاية الخدمة 8 - المجموعة النوعية التخصصية للدرجة 9 - الصور http://www.mediafire.com/download/wrcnxp72tc8dy9y/%D9%82%D8%A7%D8%B9%D8%AF%D8%A9_%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA_%D8%B4%D8%A6%D9%88%D9%86_%D8%A7%D9%84%D8%B9%D8%A7%D9%85%D9%84%D9%8A%D9%86.rar

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، جرب الملف المرفق التالي بعد تعديل بسيط على كود PDF_SALAM... تم إضافة كود Printing إلى الملف مع تعديله الجديد... أخوك بن علية Manafist Tarek 2016.rar

فرنسية وانجليزية الدوال.rar

تماما اخى العزيز طبعا كل الفضل يرجع لهذا المنتدى وكل فريق الموقع الذين لا يبخلون بأى معلومة لآى شخص مختاجها وانا كنت من الناس دى الى اتعلموا بالمنتدى البرنامج عبارة عن كم معلومات عن الموظف المفروض تكون في شئون العاملين لتقديمها لمتخذ القرار عن اى شيء تخص المصلحة او الإدارة او الموظف شرح البرنامج 1 - ادخال البيانات وهى اهم صفحة لآنها تجمع بها البيانات وهو مبنى عليه البرنامج كله والصفحات الأخرى بتأخذ البيانات منها وهى عبارة عن استكمال البيانات بدقة 2 - حانة القايمة بها قائمة منسدلة لآختيار رقم يمثل ادرة من الادارات 3 - صفحة القوائم من اعلي الصفحة يوجد قائمة منسدلة نختار رقم منها وهو يمثل إدارة من الإدارات وسوف يظهر العاملين الذين يشغلون الادارة 4 - صفحة الادارات وهى عبارة عن اسم كل الإدارات وعدد العاملين بكل ادارة 5 - المؤهلات الدراسية وهى حصر بكل الشهادات الدراسية الموجودة بالنوع والعدد 6 - المجموعة التخصصية للدرجة وهى توضيح بالمسمى الوظيفى للموظف نوع الوظيفة المعين عليها حصر اسم الوظيفة وعدعها 7 - التقرير وهو بيان حالة الموظف وكل مايخصه من معلومات ( بطاقة وصف للموظف + صورتة ) وهذا بأختيار اسم الموظف من القائمة المنسدلة ملحوظة البرنامج مبني علي معادلات بحث وهي التي تم الاستعانة بها مثل : للبحث VLOOKUP للقوائم INDEX للاعداد CONTIF للصور INDIRECT وشكرا لعل وعسي ان أكون وفيت المطلوب

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

استاذنا الفاضل ياسر اعتقد ان كلامك صحيح .. المشكلة ليست في الاندر سكور .. المشكلة ان اسم الموديول نفس اسم الفنكشن تحياتي

السلام عليكم قد يكون الموضوع مش جديد وعلى المبتدئين ! ولكن يمكن ان يكون من نوع السهل الممتنع ! الموضوع : عند اضافة بيانات لحقل معين اريد ان يشيك اولا هل هو موجود فيذهب لذلك السجل او يستمر في الاضافة عند عدم وجود المكرر ان ما جعلني اكتب هذا الموضوع هو ان احد الاخوة طرح هذا السؤال وهو شخص اعرف ان مستواه جيدا فقمت بالبحث في اماكن عدة فلم اجد جوابا شافيا ! ويكثر الطلب عليه دائما ! وضعت هنا طريقتين وعند الحدث قبل التحديث للحقل: 1. وهي المطبقة في المرفق: Private Sub Id_BeforeUpdate(Cancel As Integer) Set rs = Me.RecordsetClone rs.FindFirst "id=" & Me.Id If Not rs.NoMatch Then Undo Me.Bookmark = rs.Bookmark MsgBox ("موجود هنا") End If End Sub 2. Private Sub Id_BeforeUpdate(Cancel As Integer) idx = Me.Id If DCount("*", "persons", "id=" & idx) Then Undo DoCmd.FindRecord idx MsgBox ("مكرر هنا") End If End Sub تحياتي متمنيا الفائدة ومستقبلا التعقيب وراغبا في المشاركة بافكار اخرى check_before_ins_upd.rar

السّلام عليكم و رحمة الله و بركاته أخي الفاضل " عبد الرحمن " .. و بعد إذن أستاذي و أخي الحبيب الغالي " ياسر خليل أبو البراء " .. و الذي معه كل الحق في عدم فهمنا المطلوب .. على مجرّد شيت أم على الفورم ..مع ذلك .. هذه إحدى الطرق بكيفية أكثر من بسيطة لتأكيد الحذف برسالة لعل و عسى تفي بالغرض فائق إحتراماتي الحذف مع رسالة تأكيد.rar

وعليكم السلام ورحمة الله وبركاته أخي الكريم عبد الرحمن يرجى تغيير اسم الظهور للغة العربية هل تقصد إظهار رسالة للمستخدم أم عمل فورم يقوم مقام الرسالة ؟ الأمر مختلف يرجى التوضيح وإرفاق ملف للتوضيح تقبل تحياتي

أحسنت وبارك الله فيك ...

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

وأحرز أخونا عبد السلام هدفاً رائعاً ..يا له من هدف ممتع ..لقد أمتعني بشكل كبير جداً حقاً إنك لرائع ، وملحوظة قوية جداً .. لم أنتبه على الإطلاق لاسم الموديول فلم أعتاد أن يسمي الناس الموديولات الخاصة بهم ، ولهذا لم أفكر بالأمر رغم أنني في تصميم البرامج لا أترك الاسم الافتراضي للموديول بل أقوم بتسميته باسم معبر عن الهدف منه وعادةً أبدأ التسمية بكلمة mod اختصار كلمة module ومن ثم رجوعاً إلى الملف الأصلي في المشاركة في الموضوع على الأخ ناصر أن يقوم بالتالي الذهاب لمحرر الأكواد Alt+ F11 الذهاب لنافذة المشروع والنقر على اسم الموديول Kh_Mustowa ثم الذهاب إلى نافذة الخصائص وتغيير اسم الموديول إلى مثلاً Mod_Kh_Mustowa

جرب التعديل التالي أخي العزيز Sub Test() Application.Calculation = xlManual With Sheets("اللجان") .Calculate For J = [am3] To [an3] Step 20 [I2] = IIf(J <= [an3], J, ""): [R2] = IIf(J + 1 <= [an3], J + 1, ""): [aa2] = IIf(J + 2 <= [an3], J + 2, ""): [aj2] = IIf(J + 3 <= [an3], J + 3, "") [I7] = IIf(J + 4 <= [an3], J + 4, ""): [R7] = IIf(J + 5 <= [an3], J + 5, ""): [aa7] = IIf(J + 6 <= [an3], J + 6, ""): [aj7] = IIf(J + 7 <= [an3], J + 7, "") [I12] = IIf(J + 8 <= [an3], J + 8, ""): [R12] = IIf(J + 9 <= [an3], J + 9, ""): [aa12] = IIf(J + 10 <= [an3], J + 10, ""): [aj12] = IIf(J + 11 <= [an3], J + 11, "") [I17] = IIf(J + 12 <= [an3], J + 12, ""): [R17] = IIf(J + 13 <= [an3], J + 13, ""): [aa17] = IIf(J + 14 <= [an3], J + 14, ""): [aj17] = IIf(J + 15 <= [an3], J + 15, "") [I22] = IIf(J + 16 <= [an3], J + 16, ""): [R22] = IIf(J + 17 <= [an3], J + 17, ""): [aa22] = IIf(J + 18 <= [an3], J + 18, ""): [aj22] = IIf(J + 19 <= [an3], J + 19, "") With .PageSetup .LeftHeader = "اللجنة " & Sheet2.Range("Q5").Value & vbCrLf & "القاعة " & Sheet2.Range("Q6").Value .CenterHeader = "امتحانات الطلبة" & vbCrLf & "للعام " & Sheet2.Range("Q7").Value .RightHeader = Sheet2.Range("Q3").Value & vbCrLf & Sheet2.Range("Q4").Value End With .Calculate ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next J End With Application.Calculation = xlAutomatic End Sub تقبل تحياتي

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

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

بارك الله فيك استاذ ياسر .. لكني قمت بتعديل بيسط في الكود كالاتي =SUMPRODUCT(--(MID(A2;ROW($A$1:$A$100);1)=B2)) اي ان الكود سيكون حسب تعديلك =sommeprod(--(stxt(A2;ligne($A$1:$A$100);1)=B2))

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

أخي الكريم رشراش احتمال وجود نسخة الأوفيس لديك باللغة الفرنسية تستلزم منك أن تقوم عند نسخ المعادلة بتغيير اسماء الدوال ..فمثلاً الدالة Sumproduct يقابلها بالفرنسية sommeprod والدالة Row يقابلها بالفرنسية ligne والدالة Mid يقابلها بالفرنسية stxt ومن ثم أعتقد لنسخ المعادلة التي تفضل بها أخونا العزيز عبد السلام ، يجب استبدالها بالفرنسية بهذا الشكل =sommeprod(--(stxt(A2,ligne(A1:A101),1)=$B$2)) لاحظت في التوقيع الخاص بك تحيا الأمة الإسلامية - الشيعة (رجاء إزالة التوقيع منعاً لأي جدال أو نقاش حول الأمر .. المنتدى تعليمي وكلنا هنا يجمعنا المصلحة العامة للجميع بصرف النظر عن الانتماءات أو التحزبات أو خلافه ، وبرجاء عدم الدخول في نقاش أو جدال في هذا الأمر - أردت فقط التنويه) تقبل تحياتي

تم التعديل اخي .. جرب ان تختار احد الاوبشن بدون ماتختار التشك بوكس

تعديل كود.rar

Private Sub CheckBox1_Change() VisUnVis End Sub Private Sub CheckBox2_Change() VisUnVis End Sub Private Sub CheckBox3_Change() VisUnVis End Sub Sub VisUnVis() OptionButton1 = False OptionButton2 = False OptionButton3 = False OptionButton4 = False OptionButton5 = False If CheckBox1 = False And CheckBox2 = False And CheckBox3 = False Then OptionButton1.Locked = True OptionButton2.Locked = True OptionButton3.Locked = True OptionButton4.Locked = True OptionButton5.Locked = True Else OptionButton1.Locked = False OptionButton2.Locked = False OptionButton3.Locked = False OptionButton4.Locked = False OptionButton5.Locked = False End If End Sub عمل هذا الكود .. اذا لم يتم اختيار اي من التشك بوكسس .. لايمكن اختيار الاوبش بوتنز

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

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

=SUMPRODUCT(--(MID(A2;ROW(A1:A101);1)=$B$2))

اول خطا كان في البداية If .CheckBox1.Value And .CheckBox2.Value And .CheckBox3.Value = False Then MsgBox "ÇÎÊÇÑ ãÇÈíä ÇáÞíãÉ ÇáäÞÏíÉ Çæ äÓÈÉ ãÆæíÉ" If .CheckBox1.Value And .CheckBox2.Value And .CheckBox3.Value = True Then عدله الي If .CheckBox1.Value= False And .CheckBox2.Value= False And .CheckBox3.Value = False Then MsgBox "ÇÎÊÇÑ ãÇÈíä ÇáÞíãÉ ÇáäÞÏíÉ Çæ äÓÈÉ ãÆæíÉ" If .CheckBox1.Value= False And .CheckBox2.Value= False And .CheckBox3.Value = True Then لم اراجع الكود بالكامل .. ربما بعد هذا التصحيح ستنحل المشكلة

بعد اذن الاستاذ ياسر جرب salary finished.rar

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

هذه الروابط لعموم الفائدة هذا من عام &nbsp;2001 وهذا من عام &nbsp;2007 هنا الكود من عام 2008 وهذا من عام &nbsp;2010 وهذا من عام &nbsp;2012 وهذا من ميكروسوفت حديث

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

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

جرب الكود التالي بعد التعديل .. Sub Print_Task() Application.ScreenUpdating = False Rows("8:32").Hidden = False For I = 8 To 32 If Cells(I, 3).Value = "" Then Cells(I, 3).EntireRow.Hidden = True End If Next I If MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") = vbYes Then ActiveSheet.PrintPreview ActiveSheet.PrintOut For I = Range("E5").Value + 1 To Range("F5").Value For I = 8 To 32 If Cells(I, 3).Value = "" Then Cells(I, 3).EntireRow.Hidden = True End If Next I Range("E5") = I If I <= Range("E5") Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Rows.Hidden = False Next I Range("E5").Select Rows.Hidden = False Else MsgBox "Cancelled", vbExclamation End If Application.ScreenUpdating = True End Sub تقبل تحياتي

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

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

جميل جدا

تم تطبيق الدالة على المثال هنا التطبيق في حقل الرصيد في نموذج المبيعات

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

انا اسف اليك الرابط http://www.mediafire.com/download/wrcnxp72tc8dy9y/%D9%82%D8%A7%D8%B9%D8%AF%D8%A9_%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA_%D8%B4%D8%A6%D9%88%D9%86_%D8%A7%D9%84%D8%B9%D8%A7%D9%85%D9%84%D9%8A%D9%86.rar

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

أخي الكريم أفضل أن تقوم بطرح موضوع مستقل لتجد استجابة أفضل من إخوانك بالمنتدى مع إرفاق ملف يوضح المطلوب بدقة وإرفاق شكل النتائج المتوقعة تقبل تحياتي

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

تفضل ... Database41-02.rar

تفضل في حالة عدم وجود الرقم يفتح سجل جديد Private Sub text1_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Emp_No] = " & [text1] If Not rs.NoMatch Then Me.Bookmark = rs.Bookmark Else DoCmd.GoToRecord , , acNewRec End If End Sub

العفو أخي الكريم 1 - كود جعل التاكست بوكس لا يقبل الحروف : Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[!0-9]" Then KeyAscii = 0 End Sub 2 - التّرقيم التّلقائي ..ستجد بالملف المرفق .. 2 أنواع من الأكواد بطريقة مبسطة .. إختر الكود الأول أو الكود الثاني بالتّوفيق إن شاء الله الترقيم التسلسلي بالفورم.rar

يا لطيف 7 شهور .. الحق انك مناضل تفضل : باعتبار اسم الحقل والذي نوعه رقمي في الجدول والذي تبحث عن طريقه اسمه id اعمل مربع نص غير منضم في النموذج واجعل اسمه text1 افتح على التصميم وفي حدث بعد التحديث لمربع النص المذكور الصق هذا الكود Private Sub text1_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[id] = " & Me![text1] If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub ان كان نوع الحقل في الجدول نصيا ستحتاج الى تغيير بسيط في الكود

بعد التحية.. هل ممكن اعرف ان:: =VLOOKUP(G7;new_table;2;0) هذا المعادلة ماذا تقصد ب new_table ؟؟؟ عملت نفس المعادلة ولم تتنفذ العملية. ارجوا الافادة... مع التحية