حامل المسك قام بنشر ديسمبر 15, 2011 قام بنشر ديسمبر 15, 2011 السلام عليكم ورحمة الله وبركاته لدي نموذج مرتبط بتقرير وكذلك بالصورة إذا استعرضت التقرير أن الصورة تكررت وهي لشخص واحد فقط لأن الصور مسجلة بأرقام الطالب فيقوم البرنامج بسحب الصورة تبعا لرقم كل طالب فمال الخلل؟ رعاكم الله
حامل المسك قام بنشر ديسمبر 16, 2011 الكاتب قام بنشر ديسمبر 16, 2011 أعتذر فلقد ظننت أني أرفقت المثال 12.rar
ابوخليل قام بنشر ديسمبر 16, 2011 قام بنشر ديسمبر 16, 2011 السلام عليكم السبب في ظهور الصور رغم اختلاف الرقم المعرف هو هذا السطر الموجود في الامر البرمجي On Error Resume Next ويعني تجاوز الخطأ لما بعده حيث لو ازلت هذا السطر لظهر لك خطأ بعدم وجود صورة تحمل الرقم . يمكن التحايل على هذه المسألة بوضع صورة فارغة تحمل رقما معينا ويتم تحويل الرقم الذي لا يملك صورة اليها . وهو ما تم عمله في المثال المعدل . 12up.rar
ksmn64 قام بنشر ديسمبر 16, 2011 قام بنشر ديسمبر 16, 2011 أخي الكريم السلام عليكم ورحمة الله وبركاته يمكن ان تعمل كما قال الاخ ابو خليل في مشاركته ، أو أن يتم اخفاء الصورة بدل وضع صورة وهمية كما في المرفق. بالتوفيق،،، 12.rar
ابوخليل قام بنشر ديسمبر 16, 2011 قام بنشر ديسمبر 16, 2011 اهلا بك اخي العزيز ksmn64 افتقدناك ، فلا تطل الغيبة عنا جميل ما قدمت ، ولا شك اخفاء الرابط افضل من الانتقال الى رابط آخر ولكنها ليست وهمية بل حقيقية ، فأنا مثلا استخدم الصورة أدناه لمن ليس لديه صورة .
حامل المسك قام بنشر ديسمبر 16, 2011 الكاتب قام بنشر ديسمبر 16, 2011 أخي أبو خليل & ksmn64 جزاكم الله خير الجزاء كفيتم ووفيتم وفقكم الله ولكم مني الدعاء ...
حامل المسك قام بنشر ديسمبر 16, 2011 الكاتب قام بنشر ديسمبر 16, 2011 لازال هناك مشكلة حيث إن البرنامج يسحب الصورة المتتالية ثم إذا كان الطالب مثلا رقم 4 ليس لديه صورة فإنه يستبعد كل الصور بعد ذلك مجلد جديد.rar
عبـد الله قام بنشر ديسمبر 16, 2011 قام بنشر ديسمبر 16, 2011 انت استخدمت المثال حسب تعديل الاخ ksmn64 والكود ناقص والصحيح كذا: Private Sub ÊÝÕíá_Print(Cancel As Integer, PrintCount As Integer) On Error GoTo ErrHandler Me.ImagePreview.Picture = CurrentProject.Path & "\photos\" & Me.FilePreview & ".jpg" ErrHandler: If Err.Number = 2220 Then Me.ImagePreview.Visible = False Else Me.ImagePreview.Visible = True End If End Sub علما اني احبذ طريقة ابو خليل الاولى
حامل المسك قام بنشر ديسمبر 16, 2011 الكاتب قام بنشر ديسمبر 16, 2011 نعم شكر الله لكم الخطأ مني فلقد ضيعت بين الأمثلة بغرض تعلم كيفية المثال والحمد لله الذي هداني لمثلكم ((من جهلنا نخطئ ومن خطئنا نتعلم)) وجزاكم الله خير الجزاء
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.