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

[@BNDARBNDAR]

ياشيخ الله يسهل عليك دنيا واخره شرح واضح ووافي وسهل

[@mohamedhalaby2062]

جزاك الله خير علي كل ما تقدمه شرح جميل من مدرب في منتهي الاحترام والادب ـ ربنا يزيدك من علمه
اخيك د/ محمد

[@ahmedabdelmoneimuniversity986]

جزانا الله وإياكم الفردوس الأعلى من الجنة
اشكرك علي هذا الكلام الجميل

[@MohamedNasserOfficial]

الله يوفقك يا استاذ احمد و يزيدك من فضله ... استمر ولا تحرمنا مع علمك الذي انعم الله عليك به

[@ابوعزوز-ذ7ز]

استاذ احمد هل من الممكن ان اضيف اكثر من صوره لنفس الكتاب او لايمكن

[@mathematiquesinformatique1423]

شكرا على تقديمك هذه المعلومات القيمة

[@ahmedabdelmoneimuniversity986]

مرحبا بك

[@aldabosh]

بارك الله فيك ونفع بكم الامة

[@specialx9856]

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

[@ahmedabdelmoneimuniversity986]

جزانا الله وإياكم

[@rehammohteh3833]

الله يكرمك بجد الله يجازيك كل خير

[@ahmedabdelmoneimuniversity986]

جزانا الله واياكم

[@abdulhamidalhaddadi2255]

الله يكرمك على الدرس الجميل

[@user-rr9gg1dw2b]

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

[@rdgamerrdgamer8985]

استاذي العزيز اولا اشكرك على كل جهودك المبذولة والله يوفقكم يا رب....سؤالي اني نزلت الاكواد وفعلت ال reference بس لما اضغط الزر للاسف تظهر لي رسالة user-defined type not defined ويضلل على اول سطر من الكود ...ارجو افادتكم ولكم الشكر الجزيل

[@user-rr9gg1dw2b]

هل مجلدات pdf بنفس الطريقة او فقط صور

[@aufjadaan954]

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

[@ahmedabdelmoneimuniversity986]

وفيك بارك الرحمن ان شاء الله بجهز حلقة لهذا الموضوع

[@الضحي-ف5خ]

جزاك الله كل خير و ربنا يجعله في ميزان حسناتك حضرتك انا على اوفيس 2010 وتحديد الخيار من tools مش موجود غيرmicrosoft office 14.0 object library وعند الاختيار تظهر كود خطأ ٥

[@الشاعرجمالغانم]

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

[@adnangharbi8982]

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

[@ahmedabdelmoneimuniversity986]

جزانا الله واياكم
ان شاء الله بجهز فيديو لهذا الموضوع

[@ahmedabdelmoneimuniversity986]

ruclips.net/video/2vOUU3EAsmI/видео.html

[@binlami]

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

[@ahmedsharf9885]

السلام عليكم
بارك الله فيك اولاً
لما بعمل التقارير مش بتظهر الصور اظهرها ازاي

[@muhsinmuhamad619]

بارك الله فيك ويزيد من حسناتك , ممكن شرح كيف فتح فولدر الذي فيها مجموعة من اوراق بصيغة ( jpg) او ( pdf) او ملف ورد

[@ahmedabdelmoneimuniversity986]

ممكن توضيح أكثر

[@muhsinmuhamad619]

فتح فولدر حسب رقم كود معين من داخل قاعدة بيانات
مثلا اذ كان رقم الكود يساوى 1 عند ضغط على زر داخل البرنامج يفتح فولدر رقم 1
اريد كما موجود في هذة الاكواد @@ahmedabdelmoneimuniversity986

[@muhsinmuhamad619]

Option Compare Database
Option Explicit
Private Sub cboFormNo_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ID] = " & Str(Nz(Me![cboFormNo], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub cboInheritName_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ID] = " & Str(Nz(Me![cboInheritName], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub cboShahidName_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ID] = " & Str(Nz(Me![cboShahidName], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub أمر129_Click()
On Error GoTo Err_أمر129_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "fsubFlterInherit"
stLinkCriteria = "[ID]=" & Me![ID]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_أمر129_Click:
Exit Sub
Err_أمر129_Click:
MsgBox Err.Description
Resume Exit_أمر129_Click
End Sub
Private Sub cmdChangePath_Click()
Dim strPath As String
Dim rst As Recordset
If MsgBox("تغير مكان فولد", vbYesNo, "تغير مكان") = vbYes Then
strPath = BrowseForFolder
If strPath "" And Not IsNull(strPath) Then
Set rst = CurrentDb.OpenRecordset("tblPath")
rst.Edit
rst!Path = strPath
rst.Update
MsgBox " تم تغير مكان " & strPath
End If
End If
End Sub
Private Sub cmdOpenFolder_Click()
OpenFile DLookup("Path", "tblPath") & "\" & Me.formNo
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
' LastupdateDate = Date
End Sub
Private Sub Form_Close()
DoCmd.Minimize
End Sub
Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
End Sub
Private Sub JoriShahid_KeyUp(KeyCode As Integer, Shift As Integer)
If Shift = 2 And KeyCode = 49 Then DoCmd.OpenForm "flkpJoriShahid"
End Sub
Private Sub Laian_KeyUp(KeyCode As Integer, Shift As Integer)
If Shift = 2 And KeyCode = 49 Then DoCmd.OpenForm "frmLaian"
End Sub
Private Sub ShahidDegree_KeyUp(KeyCode As Integer, Shift As Integer)
If Shift = 2 And KeyCode = 49 Then DoCmd.OpenForm "flkpShahidDegree"
End Sub
Private Sub أمر130_Click()
On Error GoTo Err_أمر130_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_أمر130_Click:
Exit Sub
Err_أمر130_Click:
MsgBox Err.Description
Resume Exit_أمر130_Click
End Sub
Private Sub أمر131_Click()
On Error GoTo Err_أمر131_Click
DoCmd.Close
Exit_أمر131_Click:
Exit Sub
Err_أمر131_Click:
MsgBox Err.Description
Resume Exit_أمر131_Click
End Sub
Private Sub Command39_Click()
On Error GoTo Err_Command39_Click
DoCmd.Close
Exit_Command39_Click:
Exit Sub
Err_Command39_Click:
MsgBox Err.Description
Resume Exit_Command39_Click
End Sub
Private Sub Command40_Click()
On Error GoTo Err_Command40_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Form2"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command40_Click:
Exit Sub
Err_Command40_Click:
MsgBox Err.Description
Resume Exit_Command40_Click
End Sub
Private Sub Command41_Click()
On Error GoTo Err_Command41_Click
DoCmd.Close
Exit_Command41_Click:
Exit Sub
Err_Command41_Click:
MsgBox Err.Description
Resume Exit_Command41_Click
End Sub

[@ahmedabdelmoneimuniversity986]

@@muhsinmuhamad619 ارسلي النموذج علي الميل [e-mail]

[@yo0b]

السلام عليكم حاولت تطبيق الفكره في جهه العمل ولكن file dialog لا يظهر بتاتا ويظهر معي خطا غير معروف

[@mosalharbi8454]

السلام عليكم . طبقت الشرح بالنسبة للجزء الاول الي هو المسار وكل شي تمام ، لكن بعد ثاني سجل او ثلاث سجل لاتظهر الصورة رغم صحة المسار ، اما الصور الاولى والثانيه تظهر . هل تعلم ماهي المشكلة ؟ اكون شاكر لك

[@شهدالبغدادية-ك2و]

جزاك الله كل خير استاذ في منتهى الادب والاحترام . ممكن اضافة pdf بدل الصورة

[@ahmedabdelmoneimuniversity986]

جزانا الله واياكم
ان شاء الله بجهز فيديو لهذا الموضوع

[@ahmedabdelmoneimuniversity986]

ممكن استعمال الاثنين معا
ruclips.net/video/2vOUU3EAsmI/видео.html

[@wsm359]

سلام عليكم عندي عالاكسس 2007 عملت نفس الشي الصورة ما عم تفتح بينما عالاكسس 2016 عم تفتح في حل لهالمشكلة بال 2007؟

[@AliIbrahim-mn9vw]

جزاك الله خير الف جزاء.. كنت في حيره من امري لمده ثلاث ايام و الحمد لله تم حل المشكله عندي... لكن لو سمحت سؤال 🙋 او طلب صغير كيف اغير الكود و اجعله يتقبل اكثر من صوره مع عداد للصور

[@afouf01]

بارك الله فيك تعلمت منك شيء جميل

[@ahmedabdelmoneimuniversity986]

وفيك بارك الرحمن

[@mtop3147]

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

[@ahmedabdelmoneimuniversity986]

جزاك الله خيرا على الكلام الجميل ومرحبا بك

[@emadmcww]

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

[@ahmedabdelmoneimuniversity986]

ولا يهمك رابط الملف موجود أصلا تحت الفيديو

[@emadmcww]

@@ahmedabdelmoneimuniversity986 في حاجة كمان ازاي الواحد يبقي زي حضرتك كده مبتكر اكواد مش ناقل
الشئ ده تاعبني جدا

[@ahmedabdelmoneimuniversity986]

@@emadmcww والله يا أخي الكريم أنا أعمل في الحلقات علي ايصال المعلومة بابسط الطرق حتي نبني اخوة تفهم ما تفعل وحتي تصبح مبرمجا محترفا

[@mtop3147]

يسلمو الايادي استاذ ؛ في هذه الحالة الصور تظهر في التقرير ام لا؟ كل الشكر

[@ahmedabdelmoneimuniversity986]

تظهر ان شاء الله

[@manaamywork6955]

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

[@ahmedabdelmoneimuniversity986]

وعليكم السلام ورحمة الله وبركاته
ضع هذا الكود تحت الزر في حدث النقر
Dim ie As Variant
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Navigate2 "google.com"
.Visible = True
.Silent = True
End With

[@zanoba23]

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

[@ahmedabdelmoneimuniversity986]

هتقلل من استهلاك الحجم في صور وغيرها

[@01fhd]

استاذي الفاضل بارك الله فيك انا مشيت معاك تمام بس عندي مشكلة كود .filters.add”image file”,”*.jpg; الى اخره مثل شرحك تماماً بس يضلل بالصفر ولا استطعت اعرف السبب حاولت كثير ولأسف ممكن تعطيني حلول بارك الله فيك

[@abdelrahmanahmed4108]

Nice❤️👍

[@ahmedabdelmoneimuniversity986]

مشكوووور

[@abdelrahmanahmed4108]

الصورة حلوة😂😂

[@ahmedabdelmoneimuniversity986]

جميله مش كده برده