عفرنس

السلام عليكم لدي هذا البرنامج كان قد ساعدني فيه الأخ @Barna وفقه الله .. وهو عبارة عن استيراد درجات الطلاب ليكشف لي الفراغات في الخانات .. وكان يعمل على ما يرام .. لكني تفاجأت أن الوزارة غيرت في أعمدة ملف الأكسل لكل مادة فأصبح البرنامج يستورد بعض البيانات ويترك البعض لاختلاف الأعمدة في ملفات الأكسل عن السابقة . وقد حاولت جاهدا في التعديل لكني وصلت إلى طريق مسدود ، ولم أفهم طريقة الكود . . لعل أخينا @Barna يذكر هذا البرنامج ويفزع لنا فيه أو غيره من الإخوة الكرام .. @محمد أبوعبدالله @jjafferr دونكم البرنامج .. كشف الفراغات.rar

جزاك الله خيرا .. اعتذر منك أستاذي الفاضل حصل عندي خطأ في نسخ الكود ولك أنتبه . واستعجلت في الرد وطريقتك كانت صحيحة 100 % الخطأ حصل مني ..

أولا .. جزاك الله خيرا .. ثانيا .. عملت ما تفضلت به لكن اختف الصورتين .. ثالثا : ما أريده هو : لدي 200 طالب احتاج اضافة صورة الهوية والجواز لكل طالب .. طبعا الـ 200 صورة ( الهوية ) في مجلد ، و 200 صورة ( الجواز ) في مجلد آخر . وكل صورة سواء الهوية أو الجواز محفوظة برقم الهوية ID . أرجو أن أكون أوصلت المطلوب ..

السلام عليكم أرغب في استيراد صورتين لكل موظف كل واحدة منهما في مجلد ، محفوظة كلاهما بالرقم المدني . ( المجلدان كلاهم مع القاعدة في نفس المجلد ) وقد وجدت هذا الكود للأخ @Shivan Rekany Dim Psh As String On Error GoTo Err Psh = CurrentProject.Path & "/" & "الصور" & "/" & [ID] & ".jpg" pic.Picture = Psh Exit Sub Err: pic.Picture = "" Exit Sub دمتم سالمين .

وجدت هذا الكود للمقارنة .. .. Option Compare DatabasePrivate Sub Command0_Click()Dim a, ba = DLookup("Nationality", "dbo_EmInfoLOCAL", "[Employee_number] = " & Forms![Employee&Information_local_New]![Employee_number] & " ")b = DLookup("Nationality", "dbo_EmInfoVPS", "[Employee_number] = " & Forms![Employee&Information_local_New]![Employee_number] & " ")If Nz(a, 0) <> Nz(b, 0) ThenMe.Nationality.BackColor = vbRedMe.Nationality.ForeColor = vbWhiteMsgBox (Form.Controls("arabicName") & " / اختلاف البيانات مع ") & "", vbExclamation, "MOHB SYSTEM"ElseMsgBox (Form.Controls("arabicName") & " / تطابق البيانات مع ") & "", vbExclamation, "MOHB SYSTEM"Me.Nationality.BackColor = vbGreenMe.Nationality.ForeColor = vbBlackEnd IfEnd SubPrivate Sub Command6_Click()Dim strsql As StringDim strsql1 As StringDim rs As Recordsetstrsql = "SELECT dbo_EmInfoLOCAL.Nationality " & vbCrLf & _"FROM dbo_EmInfoLOCAL " & vbCrLf & _"WHERE ([Employee_number] = " & Forms![Employee&Information_local_New]![Employee_number] & ");"strsql1 = "SELECT dbo_EmInfoVPS.Nationality " & vbCrLf & _"FROM dbo_EmInfoVPS " & vbCrLf & _"WHERE ([Employee_number] = " & Forms![Employee&Information_local_New]![Employee_number] & ");"Set rs1 = CurrentDb.OpenRecordset(strsql)Set rs2 = CurrentDb.OpenRecordset(strsql1)If Nz(rs1.Nationality, 0) <> Nz(rs2.Nationality, 0) ThenMe.Nationality.BackColor = vbRedMe.Nationality.ForeColor = vbWhiteMsgBox (Form.Controls("arabicName") & " / اختلاف البيانات مع ") & "", vbExclamation, "MOHB SYSTEM"ElseMsgBox (Form.Controls("arabicName") & " / تطابق البيانات مع ") & "", vbExclamation, "MOHB SYSTEM"Me.Nationality.BackColor = vbGreenMe.Nationality.ForeColor = vbBlackEnd IfEnd Sub لكن فيه حقلين في كلا الجدولين من نوع ( رقم ) .. والذي لدي الحقول من نوع ( نص ) في كلا الجدولين .. كيف نستطيع التغيير في الكود حتى يتوافق مع ما أريد .

السلام عليكم أريد عمل مقارنة بين حقل الايميل في جدول ( A ) وجدول ( B ) وإظهار الاختلاف بلون مغاير . بمعنى جدول A هو الأصل وجدول B هو الفرع فلو الطالب الأول ( عبدالله ) في جدول A اختلف إيميله في جدول B يظهره لي بلون احمر مثلا . . هلهناك كود معين مثلا .. أو معيار يمكن استخدامه في الاستعلام . MyData.v.6.rar

جزاك الله خيرا

جزاك الله خيرا

السلام عليكم اريد مقارنة بين جدولين يحتويان على نفس الحقول .. لمعرفة الزياة والنقص في بيانات احدهما عن الاخر . بمعنى / لو كان الجدول الاول يحتوي على 20 سجلا والاخر 18 سجلا اريد معرفة بيانات السجلين المفقودين .. بحثت كثيرا لكن لم اجد المطلوب .. شاكر لكم

لدي جدولين يتكون كل واحد منهما من 7 حقول واريد نسخ بيانات الجدول tbl_1 الى جدول tbl_2 .. ما هو الكود الخاص بهذا العمل ؟؟ شاكر لكم

جزاك الله خيرا .. هو المطلوب .. لكن لدي مشكلة وهي انه ما يعطيني التقرير نفس الفصل الذي عملت له التصفية .. علما أن النموذج والتقرير جعلت مصدره استعلام بمعنى : اذا انا عملت تصفية ( للصف الأول المتوسط الفصل رقم 5 ) لا يعطيني طلاب الفصل الذي عملت له التصفية . يعطيني كل الطلاب ، وهذا ما لا أريد .

أريد تصفية البيانات من خلال ثلاثة كمبوبوكس . في form2 Database1.rar

وفقك الله

اخي @kha9009lid احتاج مثل هذا البرنامج التوضيحي .. لعلك تزودنا به او باسمه ..

الإخوة الفضلاء @محمد أبوعبدالله @kha9009lid إخترت مشاركة الأخ الفاضل @ناقل كأفضل إجابة . حيث هو الذي وضع الكود ابتداء . وإلا فمقامكم ومشاركتكم فوق الرأس .. ولن نعدم الفائدة من مشاركاتكم .. جعلكم الله ذخرا لنا .. تحياتي لكم

شكر الله لك .. الشكر موصول للأخوة الفضلاء في هذا المنتدى المبارك .. سأجرب ما ذكرت وأوافيكم بالنتيجة

أخي @ناقل جربت أضع اسم الطالب كاملا وضبط معي . لكن ألا يمكن البحث بجزء من الاسم ( الاسم الأول أو الأخير أو أي جزء من الاسم ) لأن من الصعب أن أكتب أو أن أتذكر الاسم كاملا . نحن نريد اختصار الوقت .

أخي @ناقل ما ضبط الكود .. لعلك تجرب على البرنامج ..

شكر لك أبا عبد الله .. غيرت الرقم 7 بالرقم 10 ولم يضبط .. بمعنى ( لا يتم البحث ) ..

جزاك الله خيرا .. لكني أريد بحث باسم الطالب وليس برقم الهوية . هل أغير في الكود الرقم 7 بالرقم 10 ؟

تفضلا أخي @ناقل و معلمنا الخبير @محمد أبوعبدالله البحث يكون في نموذج ( اضافة صورة الهوية والجواز ) F_‏‏‏‏StuData.rar

للرفع

فيه مثل عند السعاودة يقول : ( الشيوخ ابصر ) .

السلام عليكم .. هل ممكن عمل بحث في نموذج منفرد ؟؟ علما أن النموذج مصدره الجدول وليس استعلام .

الإخوة الكرام @jjafferr @Mohameddd200300 تكرر الحديث عن هذا الموضوع ثلاث مرات .. وهذا حقيقة فيه تشتيت للمتابعين .. يرجى النظر في هذا ..