كيف أضيف مجلد صور آخر واربطه مع السجل

[حامل المسك]

السلام عليكم ورحمة الله

وفقكم الله لدي برنامج لأسماء الطلاب مع إضافة بعض الصور الخاصة بهم ، بالمرفق البرنامج مع مجلد بداخلة يحتوي على مجموعة صور للطالب رقم 1 والطالب رقم 2 لديه مجلد آخر

مكمن المشكلة أن البرنامج يسحب جميع الصور من المجلدphotos الخاص بالطالب رقم 1 فكيف أجعله في حالة اختيار الطالب رقم 2 ينتقل للمجلد الخاص بالطالب رقم2( 2 photos) وهكذا الثالث ...

مرفق مثال

وفقكم الله

123.rar

[أبو آدم]

السلام عليكم

اعذرني اخي الطيب بان اسأل عن سبب تعدد ملفات حفظ الصور ولماذا تخصيص ملف لكل طالب

ونحن في العون ما استطعنا

[حامل المسك]

وعليكم السلام ورحمة الله وبركاته

وفقك الله

لدي مجموعة طلاب لكل طالب مجموعة أسئلة معينة كل سؤال عبارة عن صورة

فأرغب عند اختيار الطالب مثلا مجمد واختار الصورة رقم 1 تظهر لي الصورة رقم 1 الخاصة به

ولكن عندما يكون جميع الطلاب في مجلد واحد فإنه ينبغي ألا تتكرر أسماء الصور فمثلا يكون رقم 1 لمحمد فقط دون بقية الطلاب

أي أريد أن أضع لكل طالب سؤال كصورة وأرقام الأسئلة تكون على النحو التالي مثلا

السؤال الأول رقمه 1

السؤال الثاني رقمه 2

وهكذا

ففكرت مليا فوجدت أن تخصيص ملف لكل طالب هو الأقرب في ظني

ولا أستغني عن رأيكم فهل هناك حل أقرب من هذا

وفقكم الله وشاكر ومقدر حرصكم وسؤالكم

تم تعديل ديسمبر 17, 2007 بواسطه حامل المسك

[أبو آدم]

السلام عليكم ورحمة الله وبركاته

اخي الطيب

أظن أن المرفق سيكون (حول) ما تفكر به ، عملت به أمس راجيا المثوبة من الله

آملا أن يفي بحاجتك

ونحن في العون ما استطعنا

أخوكم

أبو آدم

Archive.rar

[حامل المسك]

وفقك الله لكل خير

سأحاول التعديل عليه إن شاء الله

وأعطيك خبر

ولا أملك في هذه اللحظات وهي لحظات إفطار الصائمين في هذه العشر المباركة إلا أن أدعو لك بظهر الغيب ولجميع القائمين على هذا المنتدى

[حامل المسك]

أخي الحبيب

جزاك الله خير الجزاء على ما فعلت

ولكن هل من الممكن التعديل على الملف المرفق

لأنني لم أتوصل إلى المطلوب

ولك جزيل الشكر

[أبو آدم]

السلام عليكم ورحمة الله وبركاته

ابشر بما تريد .... ما استطعت

والله من وراء القصد

ونحن في العون ما استطعنا

[محب العلم]

حامل المسك المحترم ،

عودةً إلى ملفك الحل يكون كما يآتي :

استبدل السطر الآتي من إجراء form_current :

Me.ImagePreview.Picture = Application.CurrentProject.Path & "\photos\" & Me.FilePreview & ".jpg" 'Erro

بالسطر الآتي :

Me.ImagePreview.Picture = Forms![ParentForm].[Directory] & "\" & Me.FilePreview & ".jpg" 'That's it

حيث ParentForm هو النموذج الأساسي وهو [أسماء الطلاب]

و Dierctory [مجلد الصور]

عذرا : لم استطيع ارفاق الملف المعدل بسبب الحجم

تحياتي

[حامل المسك]

أخي الكريم

أولا وفقكم الله أجمعين ونفع بكم وجعل ما تقدمونه في ميزان حسناتكم وأن يغفر لكم في هذا اليوم العظيم

ثانيا : عملت التعديل المطلوب ،،،، لكن لم يفلح معي؟؟؟!؟؟

مرفق التعديل

2003333.rar

[محب العلم]

حامل المسك،

خطؤك بسيط جدا هو في المسميات فقط وقد قمت بإصلاحه

update.rar

عندما تفتح النموذج لا تنسى أن تعدل مجلد الصور الخاص بالطالب الأول مثلا C:\photo1 ومجلد الصور الخاص بالثاني مثلا c:\photo2 وهكذا ... ولا تنسى أن تكون هذه المجلدات موجودة فعلا وبها صور الطلاب

تحياتي

[حامل المسك]

أخي الكريم لا أعلم ماذا أقول لكما ( محب العلم ، nart lebzo(

طلبت ابتغاء الشُّكر فيما فعلت بي ... فقصَّرت مغلوباً وإنِّي لشاكر

لقد كنت تعطيني الجزيل بديهةً ... وأنت لما استكثرت من ذاك حاقر

فأرجع مقنوطاً وترجع بالَّتي ... لها أوَّلٌ في المكرمات وآخر

وفقكم الله وأسأله أن يجعل ما تقدمونه في ميزان حسناتكم فإن هذا البرنامج الذي اقوم بإعداده يخدمة حلقات تحفيظ القرآن الكريم فاسأل الله أن يكتب لكما الأجر فيه.

[حامل المسك]

أخي محب العلم أحبك الله

كل عام وأنت بخير ومن العايدي

لقد عملت تعديل على البرنامج بحيث وضعت زر أمر للبحث عن مجلد الصور ولكن الإشكالية أن زر الأمر يبحث عن الصورة وليس عن المجلد

فكيف أجعله يختار الملجد وليس الصورة

مررررررررررررررررررفق المثالللللللللللللللللللللل

1234.rar

تم تعديل ديسمبر 19, 2007 بواسطه حامل المسك

[محب العلم]

وأنت بخير ،

تم التعديل على الكود الخاص بالزر لإظهار الدليل ، يرجى مراجعته

لا تدخل اسم ملف الصورة مع الدليل

إليك التعديل : updatev2.rar

تحياتي لك

تم تعديل ديسمبر 19, 2007 بواسطه محب العلم

[أبو آدم]

السلام عليكم ورحمة الله وبركاته

آسف للانقطاع فاعذرني حامل المسك

جزيت خيرا محب العلم ، تفاعلك مبارك ومشكور

آمل ان ارى المشروع المتكامل ليتم توزيعه لوجه الله تعالى

وان استطعنا المساهمة به ففضل من الله

ونحن في العون ما استطعنا

تقبل الله الطاعات وغفر لنا ولكم الزلات

[حامل المسك]

جزاكم الله خير أجمعين وطول بالكم علي

إخواني الكريم التعديل جيد ولكن غير المطلوب

أنا أريد في حالة الضغط على الزر المحاط بالخط الأحمر أختار أن اسم المجلد ومن ثم يضعه هو في Dierctory

في المثال الذي رفعتُه المشكلة فيه أنه لا يختار المجلد بل يختار الصورة فأنا أريد أن أختار الملجد بحيث يريحني من عملية نسخ المسار ولصقة في خانة Dierctory

ولكم جزيل الشكر

وآسف جدا جدا جدا على الإثقال

[حامل المسك]

وفقك الله أخي محب العلم

أي أنا أريد عكس المثال الذي تم إرفاقه أريد في حالة الضغط على الزر يبحث اختار أنا مجلد الصور ثم يضعه في Dierctory

وفقكم الله

[محب العلم]

تمام ، سأتابع إن شاء الله

[محب العلم]

حامل المسك ،

تم تحقيق المطلوب بإذن الله

التعديل

تحياتي

[حامل المسك]

عذرا بارك الله فيك لا زالت المشكلة قائمة فعند الضغط على الزر تأتي رسالة (( المجلد غير موجود أو فارغ))

آمل أن أكون قد وضحت الصورة المطلوبة لكم

[محب العلم]

حامل المسك،

تم انجاز المطلوب وذلك بالتحقق من الدليل قبل الدخول وعند الخروج

الآن لن تظهر لك الرسالة نهائيا

التعديل : updatev4.rar

تحياتي

[حامل المسك]

عذرًا أخي محب العلم

أنا قد أثقلت عليك ، المطلوب سلمك الله

أنني اقتبست الكود هذا من برنامجك إرشيف الصور

Private Sub sds_Click()
On Error Resume Next
Dim strCaminho As String
strCaminho = localizarArq("c:\")
If IsNull(strCaminho) Or strCaminho = "" Then Exit Sub
Me.Dierctory= strCaminho
Call CarregaFoto
On Error GoTo 0

End Sub

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

وعذرا وعذرا

[محب العلم]

الكود الذي تعرضه قديم من الملف updatev2 والآن اصبحنا في Updatev4 يعني عدل مرتين وفي أخر مرفق هو كما يلي :

 

Private Sub sds_Click()
On Error Resume Next
Dim strCaminho As String
Dim myDirectory As String

For i = 1 To Len(Me.Dierctory)
 pos = InStr(i + 1, Me.Dierctory, "\")
 If pos <> 0 Then
  lastpos = pos
 End If
Next i

Me.Dierctory = Left$(Me.Dierctory, lastpos)

myDir = Dir(Me.Dierctory, vbNormal)

If myDir <> "" Then
 strCaminho = localizarArq(Me.Dierctory)
 For i = 1 To Len(strCaminho)
  pos = InStr(i + 1, strCaminho, "\")
  If pos <> 0 Then
   lastpos = pos
  End If
 Next i
If IsNull(strCaminho) Or strCaminho = "" Then Exit Sub
 Me.Dierctory = Left$(strCaminho, lastpos)
Else
 MsgBox "Error"
End If

On Error GoTo 0
End Sub

وهذا الكود يسجل اسم المجلد دون اسم الملف

تحياتي

[حامل المسك]

اعذرني أخي فإن الله تعالى يقول : ((فإنها لا تعمى الأبصار ولكن تعمى القلوب التي في الصدور))

بالفعل هذا الطلوب

جزاك الله خير الجزاء وبلغك منزلة الشهداء

[محب العلم]

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

محب العلم لحب العلم محب

[حامل المسك]

أخي محب العلم

وفقكم الله لقد أدرجت على هذا الرابط

http://www.officena.net/ib/index.php?showtopic=20942

موضوع يتعلق بهذا البرنامج وكان يفترض أن يكون ضمن هذه المشاركة ولكن كانت زلت قلم.

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

مع شكري للأخ Amhr على ما قام به من تعديل على البرنامج

والشكر موصول لك أخي محب العلم ولجميع الإخوة في المنتدى

والله من وراء القصد