عفرنس

الكود يعمل بشكل صحيح . لكنه كان عندي قبل بهذا الشكل Private Sub zer1_Click() Dim filename As Variant Dim SourceFile, DestinationFile Dim picturepaht picturepaht = GetOpenFile_CLT("", "اختر صورة :") With picturepaht If picturepaht <> "" Then Me.imgLogo.Picture = picturepaht logo = picturepaht Else MsgBox "No image selected." End If End With SourceFile = logo DestinationFile = CurrentProject.Path & "\" & "shar" & ".jpg" FileCopy SourceFile, DestinationFile MsgBox "تم تغيير الشعار" End Sub فقدمت فيه وأخرت . والسبب لأنه في حال اخترت تغيير الشعار ثم تراجعت عن التغيير تظهر رسالة ( لم يتم تغيير الشعار ثم يتلوها الرسالة الأخرى تم تغيير الشعار . فقدمت الأربعة الأسطر الأخيرة من الكود ووضعتها قبل else فلم تعد تظهر لي اللخبطة التي كانت .

من طول الغيبات جاء بالغنايم فاقدينك ..

السلام عليكم أعزائي المشاهدين . هل الكود التالي سليم من حيث ترتيبه . إذا فيه ملحوظات ياليت يتم تعديلها . Private Sub zer1_Click() Dim filename As Variant Dim SourceFile, DestinationFile Dim picturepaht picturepaht = GetOpenFile_CLT("", "اختر صورة :") With picturepaht If picturepaht <> "" Then Me.imgLogo.Picture = picturepaht logo = picturepaht SourceFile = logo DestinationFile = CurrentProject.Path & "\" & "shar" & ".jpg" FileCopy SourceFile, DestinationFile MsgBox "تم تغيير الشعار" Else MsgBox "تم التراجع عن تغيير الشعار" End If End With End Sub

بارك الله فيك .. وشكر لك .. المطلوب تم بنجاح ولله الحمد .

أين يتم التعديل في جدول techer أم أين ؟؟ طبعا لا يوجد عندي استعلام . جداول فقط وتقارير

إي والله يستاهل أبا بسملة أحمد الفلاحجى Barna لعلك تعرج على سؤالي علشان ارسلك ورتين ..

لدي ملف اكسل بيانات المعلمين ، يتم استيراده إلى جدول باسم techer أيضاوكذلك جدول Temp4 عند عرض تقرير بيانات المعلمين يظهر لي من ضمن البيانات صف باسم ( الاسم والبريد الإلكتروني ) كما في صورة التقرير المرفقة . طلبي هو كيف ألغي استيراد هذا الصف ؟؟ حتى لا يظهر ضمن البيانات ؟؟

وعليكم السلام ورحمة الله وبركاته طريقة الأخ اشرف كانت واضحة لدي . لكني بحثت ووجدت طريقة أخرى تختلف عن طريقة الأخ أشرف . وقد عملت بها .. أشكر لك ردك واهتمامك .. ودي أرسل لك وردتين بس ما أدري كيف ؟؟ 😝

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

أخي أحمد هل بالإمكان توضح لي أكثر ما تقصد من خلال عمله بالمرفق ..

جزاكم الله خيرا على صنيعكم

أخي جعفر انا عملت نموذج خاص سميته Data مهمة هذا النموذج هو تعديل البيانات الأساسية في التقارير في أعلى الصفة وفي أسفلها .. فعندما مثلا يستخدم البرنامج في أكثر من مدرسة نذهب فقط لتعديل اسم المدرسة واسم المدير والشعار من نموذج Data فقط فيتقير في جميع التقارير الموجودة في البرنامج .. ** وللعلم فلم أفهم عليك ما قصدته في الرد اعلاه ** فلو أرفقت لي ما تقصد على نفس البرنامج حتى أستوعب مرادك أكن لك شاكرا . 😘😘😘

بالضبط أستاذ أشرف هذا ما أريده شكر الله لك

أريد أن أضيف صورة في التقرير ويمكن تعديلها من خلال نموذج DATA لكني لم أستطع لأن التقارير مرتبط بنموذج MARK هل من سبيل ؟؟ MARK1.rar

شكر الله لك وجزاك خيرا ..

بحثت لك فوجدت هذا الملف .. إن شاء الله يكون ما أردت . تقريب1.mdb

لا .. أخي جعفر .. أنا أسحب الهوية والجواز scan من خلال البرنامج اشراق ويخزنها في مجلدين ( احدهما للهوية ) والآخر ( للجواز ) ثم البيانات أستوردها من نظام نور على صيغة ملف اكسل بحيث تظهر في البرنامج كما في المرفق .

البرنامج اسمه ( إشراق ) برنامج شخصي

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

صورة الهوية الجواز محفوظة بصيغةpdf

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

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

اين المثال الذي قصدت ؟

السلام عليكم هل ممكن وضع كلمة سر على الجداول والاستعلام والتقارير كما هو النموذج ؟؟