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

جرب هذا ......................

اتفضل ان شاء الله يكون ما تريد Private Sub Command2_Click() If DCount("*", "[Students]", "[ID]=" & Me.Text0) > 0 Then Dim rst As DAO.Recordset Dim fld As Field Dim a As Integer Set rst = CurrentDb.OpenRecordset("SELECT Students.ID, Students.Fullname, Students.tel, Students.Degree, Students.class " & _ "FROM Students " & _ "WHERE (((Students.ID)=" & [Forms]![Form]![Text0] & "));") For a = 1 To rst.RecordCount For Each fld In rst.Fields If IsNull(fld.Value) Then If fld.Name = "Fullname" Or fld.Name = "tel" Then x = fld.Name & vbCrLf & x End If End If Next fld rst.MoveNext Next a If Len(x & "") <> 0 Then MsgBox "All Fields Null :" & vbCrLf & x, vbOKOnly, "انتبه" rst.Close: Set rst = Nothing End If End Sub بالتوفيق exap3_3A.accdb

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

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

انا مش عارف اوصلك الفكر انا اتعبتك معي استاذنا الفاضل شكرا على سعة صدرك

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

أهلا @طاهر الوليدي هذه هي الطريقة المطلوب اظهار قرب حقل ميلادي تقويم ميلاد وقرب حقل الهجري تقويم هجري .mdb

هل تقصد الحدف الخلايا من C4:A4 و C7:A7 وضح اكثر ما تريد و ما لا تريد

تفضل أخي العزيز هذه هي الدالة 🙂 =Mid([Text1];InStr(1;[Text1];"عن");InStr(1;[Text1];".")-InStr(1;[Text1];"عن")+1) تضعها في مصدر مربع النص الذي سيظهر النتيجة .. و Text1 هو مربع النص المصدر .. أعتذر لعدم التطبيق في ملفك .. ليس لدي إنترنت في الجهاز. اختصار الوقت.accdb

رابط الملف بدون ضغط https://www.4shared.com/s/fiDJvXuToiq

معلومة جميلة وقيمة تحياتي

دالة Nz ، دالة قوية وتغنيك عن استخدام عبارة الـ if ، أو دالة IIf علما لم أطلع على كل الأكواد ولم أقرأ جميع الردود ولما علقت لم أركز على كاتبها ، ونحن في منتدى نتعلم كل يوم شيء جديد وكثير من الأحيان أبدل فيه طريقتي التي اعتدت عليها لما أرى طريقة جديدة دون التدقيق كثيرا في كاتبها. لكم كل الود والتقدير.

السبب تغيير اسماء الحقول في الاستعلام جرب الان https://mrkzgulfup.com/download789169.html

بارك الله فيك أخانا الحبيب... الأمر بسيط، وهو استعمال هذه الأكواد مع تحديد حروف البدل من خانة خيارات البحث.

سؤال استاذ الفاضل احمد ماهي فائدة استخدام حلقتين تكرارية For a = 1 To rst.RecordCount For Each fld In rst.Fields If IsNull(fld.Value) Then اليست واحدة تكفي لتنفيذ المطلوب وخصوصا اننا نتعامل مع سجل واحد كل مره واذا اردنا استخدام for next بدلا من for each For x = 0 To rst.Fields.Count - 1 If IsNull(rst.Fields(x)) Then وايضا لماذا الانتقال للسجل التالي rst.MoveNext Next a كما يمكن الاستغناء عن الحلقة التكرارية بالكامل باضافة استعلام واحد نضع فيه حقل محسوب وسوف يؤدي المطلوب ولكن التكرارية هي الحل الامثل احسنت اخي ولكل طريقته وطالما تحدثنا عن الاختصار ممكن نختصر الكود كاملا الى سبعة او ثمانية اسطر فقط بتحويل الحلقة التكرارية الى وحدة نمطية ثم تقوم بتعويض الحقول الفارغة والمكتمل الى 0 و 1 وايضا ممكن تنفيذ كل المطلوب بدون استخدام vba اي عن طريق استعلام اضافي واستخدام المايكروا وفي هذه الطريقة لن نستطيع اظهار اسماء الحقول وانما فقط رسالة بوجود حقول فارغة ---------------------- واخيرا مازلت عند رأيي السابق طالما تعاملنا مع مصدر السجلات فنكمل الاضافة عن طريقه ولا داعي لاستعلام الالحاق هذة وجهة نظري وهي غير ملزمة لاحد تحياتي للجميع

بعد التعديل كلامك صحيح عن التاريخ مصدر أكواد تقويم أم القرى ومنتقي التاريخ: https://sites.google.com/view/abuhadi/ms-access Gyab_New_02.rar

بارك الله فيك اخي الكريم وجزاك الله خيرا يارب اثقل الله ميزان حسناتك يارب

الشكر لله ثم لاخوانننا واساتذتنا جزاهم الله عنا كل خير اتفضل التعديل على تعديلك لكود اخى واستاذى @kanory جزاه الله خيرا Private Sub Command2_Click() If DCount("*", "[Students]", "[ID]=" & Me.Text0) > 0 Then Dim rst As DAO.Recordset Dim fld As Field Dim a As Integer Set rst = CurrentDb.OpenRecordset("SELECT Students.ID, Students.Fullname, Students.tel, Students.Degree, Students.class " & _ "FROM Students " & _ "WHERE (((Students.ID)=" & [Forms]![Form]![Text0] & "));") For a = 1 To rst.RecordCount For Each fld In rst.Fields If IsNull(fld.Value) Then MsgBox "فارغ " & fld.Name & " حقل", vbOKOnly + vbMsgBoxRight, "انتبه" End If Next fld rst.MoveNext Next a rst.Close: Set rst = Nothing End If End Sub بالتوفيق

يمكن اختصار: n = IIf(IsNull([Text0]), 0, [Text0]) إلى: n = Nz(Me.Text0), 0) ويمكن لمزيد من الاختراز تبديل: If IsNull(fld.Value) Then إلى: If Trim(Nz(fld.Value, "")) = "" Then مع الإعتذار لكاتب الأكواد فهي صحيحة ولكن صيغت أولها للإختصار والأخرى لمزيد من الإحتراز.

السلام عليكم . هذه النسخة تم تعديلها لتتناسب مع رغبة الطالب بجانب المجموع وده رابط البرنامج المعدل. اضغط على الصورة

وهذه مشاركة مع اساتذتي الكرام ... مع التحية لهم جميعا ..... If DCount("*", "[Students]", "[ID]=" & Me.Text0) > 0 Then Dim rst As DAO.Recordset Dim fld As Field Dim a As Integer Set rst = CurrentDb.OpenRecordset("SELECT Students.ID, Students.Fullname, Students.tel, Students.Degree, Students.class " & _ "FROM Students " & _ "WHERE (((Students.ID)=" & [Forms]![Form]![Text0] & "));") For a = 1 To rst.RecordCount For Each fld In rst.Fields If IsNull(fld.Value) Then MsgBox "قم باكمال البيانات" & "(" & fld.Name & ")" & "ليس هناك بيانات في الحقل" DoCmd.OpenQuery "استعلام1", acViewNormal Exit Sub End If Next fld rst.MoveNext Next a rst.Close: Set rst = Nothing DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, Degree, class ) " & vbCrLf & _ "SELECT Students.ID, Students.Fullname, Students.tel, Students.Degree, Students.class " & vbCrLf & _ "FROM Students " & vbCrLf & _ "WHERE (((Students.ID)=[Forms]![Form]![Text0]));" DoCmd.SetWarnings True Me.Text0 = "" Else MsgBox "هذا القيد غير موجود" End If Me.Requery Me.Text0 = Null Me.Text0.SetFocus Example.accdb

السلام عليكم ورحمه الله وبركاته مشاركه مع اخى واستاذى ووالدى الحبيب @مبرمج سابق جزاه الله عنا كل خير 💐🌹 وعلى الرغم باننى لست احد الاساتذه فقد احببت مشاركتكم للتعلم والاستفاده فقد مزجت بين كود معلمى ووالدى الحبيب وبين الكود السابق بالمثال لرغبه الاخ السائل الكود التالى والمرفق بالمثال Private Sub Command2_Click() Dim n As Integer n = IIf(IsNull([Text0]), 0, [Text0]) If DCount("*", "[Students]", "[ID]=" & n) = 0 Then MsgBox "هذا القيد غير موجود": Exit Sub Dim rst As Recordset Dim fld As Field Set rst = Me.RecordsetClone rst.FindFirst "[ID]=" & [n] For Each fld In rst.Fields If IsNull(fld.Value) Then MsgBox fld.Name DoCmd.OpenForm "frm_Stud", , , "[id]=" & [n] Exit Sub End If Next fld DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, Degree, class ) " & vbCrLf & _ "SELECT Students.ID, Students.Fullname, Students.tel, Students.Degree, Students.class " & vbCrLf & _ "FROM Students " & vbCrLf & _ "WHERE (((Students.ID)=[Forms]![Form]![Text0]));" DoCmd.SetWarnings True Me.Text0 = "" Me.Text0.SetFocus End Sub وتعديل بسيط ع كود معلمى ووالدى الحبيب جزاه الله عنا كل خير وهو اخراج جزء الاضافه لما بعد فحص الحقول Private Sub Command2_Click() Dim n As Integer n = IIf(IsNull([Text0]), 0, [Text0]) If DCount("*", "[Students]", "[ID]=" & n) = 0 Then Exit Sub Dim rst As Recordset Dim rs As Recordset Dim fld As Field Set rst = Me.RecordsetClone Set rs = CurrentDb.OpenRecordset("team") rst.FindFirst "[ID]=" & [Text0] For Each fld In rst.Fields If IsNull(fld.Value) Then MsgBox fld.Name DoCmd.OpenForm "frm_Stud", , , "[id]=" & [Text0] Exit Sub End If Next fld rs.AddNew rs.Fields(0) = rst.Fields(0) rs.Fields(1) = rst.Fields(1) rs.Fields(2) = rst.Fields(2) rs.Fields(3) = rst.Fields(3) rs.Fields(4) = rst.Fields(4) rs.Update rs.Close: rst.Close Set rs = Nothing: Set rst = Nothing End Sub تقبلوا تحياتى ومرورى Example_1.accdb

بسم الله الرّحمن الرحيم السلام عليكم ورحمة الله تعالى وبركاته ما شاء الله! تباركَ الله! جزاكم الله تعالى خيرًا، وأحسن إليكم. أخي المُبارك أ. @أبو عاصم المصري لُطفًا هل يتيسّر شرحٌ لآلية الأكواد؟! وذلك لمعرفة كيفية تكوينُ أي معادلة في الوورد وزادكمُ الله تعالى من واسِع فضله وعلمه.

تعديل وشرح لبعض النقاط الهامة اولا : تم تعديل بعض المعادلات لزيادة عدد التخصصات ثانيا : شرح لبعض النقط الهامة عند اختيار الرغبات وتعديلها رابط التعديل https://www.mediafire.com/file/vlaump9km3a3viu/برنامج+توزيع+التخصصات_اسكندرية_معدل.rar/file

عملت لك نموذج الاختيار الاهداف في نموذج اختيار الخطة وضعت زر امر يفتح النموذج المساند للاختيار المتعدد وبالتالي يمكن اختيار اكثر من هدف كل مرة ويمكنك الاستمرار على الطريقة السابقة اي انه يمكن اضافة هدف كل مرة او مجموعة من الاهداف الاهداف بلون مختلف في النموذج الجديد تعني انها موجود مسبقا لدى الطفل فلا يتم اضافتها مره اخرى حتى لا يحصل تكرار صحيح ممكن منع التكرار او منع ظهور هذة الاهداف ضمن النموذج ولكن ليس لدي وقت ولا طولة البال تحياتي برنامج اعداد الخطط لمركز السلام(3).accdb

كيف تدرج دالة فى الاكسل لتكون متاحه لكل الملفات بإنشاء ملف ( AddIn ) يحتوى على دوالك الخاصة المرفقات عبارة عن :: 1 - ملف البرنامج ( Omar Install addIn.xls ) 2 - ملف به بعض الدوال لعمل تجربه عليه ( دوال أبو تامر.xls ) المرفقات ::: Creat_AddIn.rar 3 - ملق الشرح ( Omar Install addIn.exe ) شرح إنشاء ملف ( AddIn ) يحتوى على دوالك الخاصة