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

السلام عليكم 🙂 ملاحظاتي: 1. يجب ان يكون هذا الحقل هكذا ، وعادة يكون المفتاح الاساس ، ولكن لأن عندك مفتاح اساس آخر ، فمافي مشكلة: . 2. وجميع الحقول لا تستخدم خاصية Lookup الجدول : . 3. تسمية الجداول/النماذج/الاستعلامات/التقارير تبدأ بحرف/حروف تميزها عن بقية الكائنات (ما يكون عندك جدول واستعلام ونموذج وتقرير بنفس الاسم ، Type1 ، مثلا) ، وانما يكون tbl_Type1 و qry_Type1 ..) ، ونجعل الحقل مفهرس لأن عنده علاقة مع جدول آخر (انظر الصورة رقم 11) ، ويجب ان يكون في جدول الحقلين Auto_ID و Auto_Date (المسمى غير مهم ، وانما الاعدادات مهمة) ، فبالاضافة الى فائدة Auto_ID لتسريع جلب بيانات الجدول ، و Auto_Date لمعرفة وقت عمل السجل ، فإن هذين الحقلين هما الاساس في تحويل جدولك الى SQL Server لاحقا اذا شئت : . 4. مصدر سجلات الحقل من جدوله tbl_Type1 ، بينما مصدر بيانات السجل من جدول MZ_TAB : . 5. هكذا نرى في النموذج الاسم الذي نريد المستخدم ان يراه : . 6. . 7. بعد ان يُدخل المستخدم قيمة للحقل nom ، يمكن استخدام الدوال لتحديث الحقلين الآخرين في النموذج : . 8. وبما انن نحدّث الحقلين تلقائيا ، فنقفلهم حتى لا يعبث بهما المستخدم : . 9. نوع القيمة المسترجعة من الدالة ، يجب ان تطابق تلك التي في الجدول : . 10. تجنب استخدان الكلمات العربية في اي من كائنات برنامجك ، فمن السهل التغلب على هذه النقطة من البداية ، ولكن اذا لم تفعل هذا ، فستقلب كف على كف : . 11. العلاقة بين الجدول الجديد والجدول/الجداول التي تكون فيها قيمة TYPE1 ، اما العلاقة التي في الاعلى ، فمالك شغل في اولاد الجيران وعملهم 😁 . جعفر 1350.1.MZtab08.accdb.zip

جرب هذا الكود Private Sub CommandButton1_Click() Dim D As Worksheet Dim P As Worksheet Dim How_many%, I%, x% Dim Arr_sh(), arr_From() Arr_sh() = Array("PAGE1", "PAGE2", "PAGE3") arr_From = Array("E3", "D5", "D7", "D9", "D11", _ "G5", "G7", "G9") Set D = Sheets("Data") For I = LBound(arr_From) To UBound(arr_From) If D.Range(arr_From(I)) = vbNullString Then MsgBox "Imcopmlete Data In: " & Chr(10) & _ D.Range(arr_From(I)).Address & Chr(10) & _ "I Cannot contenue", 64 Exit Sub End If Next For I = 0 To 2 If Application.CountA(Sheets(Arr_sh(I)).Range("b8:b37")) < 30 Then Set P = Sheets(Arr_sh(I)) Exit For End If Next If P Is Nothing Then Exit Sub How_many = Application.CountA(P.Range("b8:b37")) + 8 With P.Cells(How_many, "B") For I = LBound(arr_From) To UBound(arr_From) .Offset(, I) = D.Range(arr_From(I)) Next End With x = Application.CountA(P.Range("b8:b37")) P.Range("A8").Resize(x).Value = _ Evaluate("Row(1:" & x & ")") For I = LBound(arr_From) To UBound(arr_From) D.Range(arr_From(I)) = vbNullString Next End Sub osama elmorsy.xlsm

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

الحقل Auto_ID مكرر فى جدولين مختلفين بنفس الاسم والجدولين مذكورين فى الاستعلام الحالى .. الحل اكتب اسم الجدول او الاستعلام المراد استخدام الحقل منه بالصيغة التالية [Table].[Auto_ID] استبدل كلمة Table باسم الجدول او الاستعلام الخاص بك .. بالتوفيق [Table].[Auto_ID]

في هذا الرد 👆 كان استخدام مايكروا لاغلاق الفورم الغير مرغوب فيه ولكن يتطلب معرفة اسم الفورم وهذا غير ممكن اذا كان عدد النماذج كبير لذا ممكن نعمل وحدة نمطية نضع فيها الكود التالي Public Function AllForms() Dim frm As Form For Each frm In Application.Forms If frm.Name <> "form_1" Then DoCmd.Close acForm, frm.Name Next frm End Function ثم نستدعيه من مايكروا بداية التشغيل والهدف عند بدء التشغيل اغلاق اي فورم ماغدا الفورم الذي اخترناه ليكون النموذج الاساسي في جميع الاحوال هذه الحلول تعتبر رد فعل على المشكلة ولا تعالج الاساس وهو تمكن مستخدم من الدخول والتغيير كما يريد وهذا امر خطير لذا شاهد هذا الموضوع 👇 ربما يقدم لك حل افضل موفق اخي احمد 🙂

اتفضل لعلى قد فهمت ما تريد Private Sub txt_AfterUpdate() x = Me.txt.Column(0) 'Me.rmb.SetFocus 'DoCmd.GoToRecord , , acNewRec Me.rmb.Form!idrxt.DefaultValue = x End Sub بالتوفيق t1.accdb

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

وعليكم السلام استاذ ازهر اتفضل ان شاء الله يكون ما تريد Private Sub txt_AfterUpdate() x = Me.txt.Column(0) Me.rmb.SetFocus DoCmd.GoToRecord , , acNewRec Me.rmb.Form!idrxt = x End Sub بالتوفيق t1.accdb

جزاك الله خير اخي عبدالله وبارك الله علمك

حسب فهمي لطلبك ... جرب المرفق نسبة التغير.xlsx

جزاك الله خير اخي علي وبارك الله فيك

السلام عليكم اين تريد اظهار نتائج بحث الزيارات اخي Alxx

وعليكم السلام-تفضل النتائج1.xlsx

وعليكم السلام-تفضل كان عليك استخدام خاصية البحث بالمنتدى تعلم كتابة أكواد VBA

ملاحظات قيمة اللهم اجعل ما يقدمه اخي جعفر من علم نافع في ميزان اعماله

وعليكم السلام معنى الرسالة ان فيه جدولين عندك بينهما علاقة والحقل المسمى AUTO_ID مكرر فى الجدولين حل المشكلة يا اما تسمى احد الحقلين باسم اخر ام تضع اسم الجدول فى الاستعلام بجانب الحقل يعنى اما تكتب كالتالى بفرض ان الجدول اسمه TBL1 تكتبه كالتالى TBL1! AUTO-ID جزاكم الله خيرا

الكود المطلوب Private Sub CommandButton2_Click() 'Ta3dil Dim lr%, i% Dim bol As Boolean Dim Asnaf As Worksheet Dim F_rg As Range, Where As Range Dim Ro%, mot Set Asnaf = Sheets("الاصناف") lrow = Asnaf.Range("C" & Rows.Count).End(xlUp).Row If TextBox1.Value = "" Then MsgBox ("لا يوجد بيانات للتعديل") Exit Sub End If mot = TextBox1.Text Set Where = Asnaf.Range("C3:C" & lrow) Set F_rg = Where.Find(mot, lookat:=1) If F_rg Is Nothing Then MsgBox "I cannot Find: " & Chr(34) & mot & Chr(34) & _ Chr(10) & "In the column(C)" Exit Sub End If Ro = F_rg.Row With Asnaf.Range("C" & Ro) For i = 1 To 8 If i = 6 Then i = 7 .Offset(, i - 1) = Me.Controls("TextBox" & i) Next .Offset(, 5) = Me.ComboBox6.Value End With End Sub Atfan_1.xlsm

السلام عليكم جرب المرفق بكود طباعة آخر مع بعض التعديلات على الملف (إضافة معادلات)... otokar.xlsm

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

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

انت تكتب الوقت بشكل خاطىء (الصورة) يجب كتابته كما في الخلية D3 من هذا الملف Wask.xlsx

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

وعليكم السلام اخى هانى شوف الاستعلام الجدولى sheet_Crosstab والتقرير sheet_Crosstab لعله يفيدك ان شاء الله بالتوفيق sheet_hani(1).mdb

جرب الطريقة التالية New Microsoft Access Database.accdb

تفضل أخي الكريم NEW1.xlsm

السلام عليكم و رحمة الله و بركاته في المرفق برنامج MsgBuilder الصغير بحجمه و الكبير بفعله , و الذي بواسطته تقوم بإنشاء رسائل بكل سهولة و بالشكل الذي تريد MsgBuilder.rar

السلام عليكم ورحمة الله وبركاته ترتيب العشرة الاوائل حسب المجموع والعمر ادخل معطياتك بداية الكود '================================================== ' من نطاق البيانات '================================================== '''''''' اسم النطاق او عنوانه مع اسم الورقة Private Const MyRng As String = "RangDate" '''''''' ارقام الاعمدة من نطاق البيانات '''''''' :حسب الترتيب التالي '''''''' رقم الجلوس,الاسم,تاريخ الميلاد,الفصل '''''''' SeatNum,Name,Bridate,MyClass Private Const MyColumn As String = "1,2,4,3" '================================================== ' من ورقة الاوائل '================================================== '''''''' اول خلية لوضع لست الاوائل Private Const MyRngPast As String = "D7" '''''''' نطاق اسماء الفصول Private Const MyClass As String = "P7:P13" '''''''' نطاق اسماء المواد ومواقعها Private Const MyTotal As String = "R7:T19" '''''''' تنسيق التاريخ Private Const DateFormat As String = "yyyy/mm/dd" '================================================== '================================================== المرفق اكسل2003 اكسل2007 ترتيب العشرة الاوائل حسب المجموع والعمر.rar ======================================================= تم التعديل حسب ملاحظة ايسم ابراهيم ادناه المرفق اكسل 2003/2007 ترتيب العشرة الاوائل حسب المجموع والعمر1.rar 61.97K 0 عدد مرات التحميل

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

وعليكم السلام ورحمة الله وبركاته العالم العلامه والبحر الفهامه عبد الله باقشير أحسنت أحسن الله إليك .. ماشاء الله عمل ولاأروع

السلام عليكم الاستاذ الفاضل عبدالله باقشير عمل مميز يضاف الى اعمالك المميزة المتقنة == بارك الله فيك

فكرة الكود رائعة أخي عبد الله زادك الله من العلم النافع

السلام عليكم الاستاذ الفاضل عبدالله باقشير عمل مميز يضاف الى اعمالك المميزة المتقنة == بارك الله فيك

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

الأخ الفاضل / عمـــاد الحســـــامى السلام عليكم ورحمة الله وبركاته أشكركم على تقبل الهدية وعلى ابرازها فى أسمى مكان أشكرم على قدر سعادتى .. وفقكم الله

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

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