يرجى التعديل على كود التقرير لاظهار الصور ويفتح التقرير في وجود الصورة او عدمه

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

على هذين الرابطين شرح وامثلة على الصور في التقارير

/index.ph...=178421&hl=

/index.ph...=174301&hl=

بالتوفيق

ناصر المصاروة

مشكور اخوي ناصر المصاروة

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

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

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

عرض الصور حتى بعد اغلاق القاعدة واعادة فتحها علما ان التقارير تفتح من حتى في عدم وجود صورة وهذي الميزة الي انا محتاجها

ومشكور يرجى مراجعة الكود او التعديل على القاعدة بشكل ممباشر حتى اقدر لاحظ الفرق

اخي هل يمكنك تقليص حجم القاعدة لاتمكن من تحميلها

ف ال"Download" لدي محدود

انقل الصور الى مجلد منفصل

واجعلها على هيئة "Jpg"

ناصر المصاروة

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

وهذي القاعدة بعد حذف الصور وضيف صور من عندك وجرب في حال الاضافة تقدر تعرض الصور في التقرير

لكن بعد ما اتسكر القاعدة واعادة فتحها ما راح تطلع عندك الصور الى في حال اضافة او تغير احد الصور

ومشكور اخوي

_____.rar

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

اخي بعد الاطلاع على برنامجك فانه لا يقوم بتخزين مسار الصورة في جدول اللاعبين

وهذا راجع الى الالية التي تستخدمها والتي بحاجة الى المزيد من الدراسة

وهو يشبه الى حد كبير هذه القاعدة

فجرب استخدامها وكل ما عليك هو ربطها بالجدول وتغيير المسميات فيها

reportoption.rar

وبالتوفيق

ناصر المصاروة

وعليكم السلام اخي ناصر

البرنامج ينقل الصورة عن طريق الاب ديت الى ملف صور الاعبين والفايدة من ذلك في حال نقل الملف او البرنامج لا تفقد مكان الصورة ولا تحتاج

الى تعديل المسار حيث ان المسار الصور بنفسه مسار البرنامج

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

لو انك فقت ملف الصورة الاصلية او نقلت البرنامج الى اي مكان اخر لا تحتاج الى تعريف رابط الصور مره اخرى ولا تكون ملزم بمكان الصور

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

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

لكن البرنامج ياخذ الصورة من اي مكان انت تختاره ويعضها في ملف الصور وعندها لا تحتاج الى تعريف او البحث عن الصورة في الملف

وعن طريق البرنامج تقدر تحذف الصورة واضافة صورة جديدة بدلا عنها

هذي الفكرة والكود الموجود فيها اهوا نفس الكود الي استخدمه اخونا مهند عبادي في برنامج الدوري مع تعديل بسيط

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

المشكلة الكود مو شغال بالشكل المطلوب بطريقة كاملة لو فيه طريقة اتخلي التقرير يحفظ مسار الصور نفس ما اهوا موجود عندك في البرنامج

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

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

الصور الي حاولت اظهارها من قبل لازم تنقل الصورة الى ملف الصور واختيارها من اهناك وهذي مشكله لو عندك صور اكثيرة لعدد الموظفين

او الاعبين وهذي المشكلة

لكن البرنامج الي عندي تقدر اتسوي اسكين للصور او عن طريق الكيمرا واتحطها في اي مكان وتذهب وتختارها وراح ينسخها البرنامج

ويحضرها الى ملف الصور من غير حاجه منك الى نسخها ووضعها في ملف الصور

وبعدها تذهب للبحث عنها اهناك وراح اتكون مشكله لو فيه

صور كثيرة ولازم ادور بينهم على ملف الصورة والطريقة غير عملية

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

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

Soccer.rar

zaEMP_UP.rar

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

أخي الكريم غير الكود في رأس التقرير إلى التالي

If Not IsNull(Me.PlayerPic) Then
Me![APic].Visible = True
Me![APic].Picture = CurrentProject.Path & "\images\Players\" & Me![PlayerPic]
End If

مشكور اخوي koao جزاك الله خير فعلا الكود ضبط وهذي الي كنت ابي جزاك الله خير وخلاه لك في ميزان حسناتك الف الف شكر

والله يبارك فيك

واشكر اخوي ناصر على محاولته مساعدتي واشكر ادارة المنتدى

وان شاء الله نقدر وانكون من الذي يردون على اسالة الناس مثل ما اتسون بعد ما نتعلم منكم وانفيد مثل ما اتفيدونا

الله يبارك فيكم وجزاكم بصالح اعمالكم كثير الثياب

اخوكم محمد

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

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

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

وعليه ارى ان الكود الخاص بالوظيفة UploadImage الموجود في الموديول File I/O يجب تغييره للتالي

Function UploadImage(MSG As String, SubDir As String, Old As String) As String
On Error GoTo err
 Dim A As String, T As String
 Dim fso
 Dim Afile As String
Ops_File_Exist:
   UploadImage = ""
   DLGChoice = 1
   If Old > "" Then
	  DoCmd.OpenForm "FRM DLGBOX1", , , , , acDialog
	  If DLGChoice > 0 Then
		 If DeleteImage(CurrentProject.Path & "\images\" & SubDir & "\" & Old) Then
			UploadImage = "Killed"
		 End If
	  End If
   End If
   If Old = "" Or DLGChoice = 1 Then
	  T = "كافة أنواع ملفات الصور" & Chr(0) & "(*.Gif; *.JPG; *.BMP;)"
	  A = getfile(MSG, T)
	  If A > "" Then
		 DoCmd.Hourglass True
		 Afile = CurrentProject.Path & "\Images\" & SubDir & "\" & filename(A)
		 Set fso = CreateObject("Scripting.FileSystemObject")
		 If fso.FileExists(Afile) Then
			Select Case MsgBox("يبدو أن هناك صورة بنفس الإسم , هل تريد إستبدالها؟", vbYesNoCancel)
			Case vbNo
				DoCmd.Hourglass False
				GoTo Ops_File_Exist
			Case vbCancel
				DoCmd.Hourglass False
				Set fso = Nothing
				Exit Function
			End Select
		 End If
		 FileCopy A, Afile
		 DoCmd.Hourglass False
		 Set fso = Nothing
		 UploadImage = filename(A)
	  End If
   End If
err:
End Function

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

وانت حاط نفس صورة لها نفس الاسم الى علي راح تنحذف الصورتين معا

مشكورا اخوي على تنبيهك لي على هذا الغلط الكبير والي كان راح يسبب لي مشكله في المستقبل من غير ما ادري

وبعد ما اكون انهيت شوط اكبير في ادخال البيانات

جزاك الله الف خير اخوي واتمنى الكل يستفيد من تعديلك على الكود

والله يخليه لك في ميزان حسناتك

وحاب اسال اشلون لو بغيت اتعلم لغة البرمجه يعني كتابة الاكواد انه اتعلم كل سطر في الكود شنهو يعني بالضبط

فيه مكان او كتاب يعلم هذي الشي او فيه صفحة في المنتدى تعلم هذي الشي يعني تعلم ترجمة الكود بشكل كامل حتى لو كان فيه اي مشكله في المستقبل اعرف من المشكله في وين اعدل على الكود

لانه اكون خلاص فهمت الكود وما يكون مجرد رموز ما افهم منها اي شي غير اني انسخها من غير معرفة معناها وشنهو اتسوي بالضبط

وشكرا مقدما على كل مساعداتك لي اخوي والله يبارك فيك

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

أخي مشارف .. دعواتك المباركة كان لها الأثر الكبير في نفسي .. وشملك ومن يقرأ بها .. اللهم آمين

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

وإن كان وقتك لا يسمح .. فأرجو أن تكون لغتك الإنجليزية جيدة .. وبذلك تكون لا تحتاج لكتب وغيره .. فما عليك إلا النقر على أي كلمة في الكود .. وأنت في نافذة محرر الأكواد ثم تكبس على مفتاح F1 ليفتح لك نافذة بها شرح وافي عن هذه الكلمة وقد تجد مثال عليها .. ولأي كائن تتبع .. والكثير من الفوائد .. وإذا أشكل عليك شيء ففضاء الإنترنت واسع فاكتب الكلمة في محرك قوقل وأتبعها بكلمة VBA وهي إسم لغة البرمجة المستخدمة في تطبيقات الأوفيس

وإن كانت اللغة ضعيفة أو معدومة .. فإبحث في المكتبات العربية المجانية عن كتب تشرح لغة Visual Basic 6 وهي VB6 وهل لغة برمجة شبيهه جدا بلغتنا على أقل تقدير في الأساسات .. كإستخدام If والحلقات وغيرها .. وأسس نفسك عليها

ولتطور نفسك إكتب أمثلة بسيطة غير معقدة .. وكل يوم زد العيار قليلا .. وكل ما كثرت أخطاءك كل ما كان أحسن .. لكي تعرف مالذي سبب الخطأ وتعرف كيف تتجنبه لاحقا .. ودائما لا تفكر كيف ستخرج المخرجات فقط .. بل فكر بفكر مترجم اللغة الذي يمسك الكود سطر سطر ..

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

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

والحمد لله رب العالمين أولا وآخرا

اللهم أنصر إخواننا في غزة .. على أعدائهم .. اللهم آمين

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

يمكن لاحظة وضع الكواد والاشياء الباقية بس في مرات تحتاج مساعدة بالذات اذا تعلق الامر بالاكواد والحمدالله قدرت اتعلم بعض الاكواد البسيطة

لكن اكواد الوحدات النبطية صج محيرة بس الله ان شاء الله يسهل ونفهمها وانا فعلا اتمنا اكون مبرمج وان شاء الله احصل الوقت لدراستها

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

ان شاء الله وانا بدوري بحاول اساعد غيري بقدر علمي كرد للجميل للمنتدى الي فادنا كثير ومنها خلانا نتعرف على امثالك من الناس الخيرين

الله يبارك فيك