jjafferr

رجاء ثم رجاء اخي الفاضل ، رجاء تكتب عنوان يخبرنا عن الموضوع ، وتكتب في الموضوع شو المشكلة ، رجاء !! جعفر

وعليكم السلام 🙂 اخي الفاضل ، رجاء مراعاة قوانين المنتدى 🙂 قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف بالاضافة ، يجب ان تكتب شو هي المشكلة عندك ، ولا تتوقع من الاعضاء ان ينزلوا برنامجك علشان يعرفون الطلب !! رجاء عمل موضوع جديد ، آخذ في الاعتبار جميع النقاط اعلاه 🙂 جعفر

في البداية ، لا ، ولم يكن هناك اي مشكلة ، ولكن لاحقا اضطررنا ان نعمل IP خاص لشبكتنا ، حتى لا نسمح للمستخدمين الآخرين رؤية برامجنا ومجلداتنا واجهزتنا ، ولما عملنا الشبكة الاصغر ، ولم يكن هناك DHCP Router ليوزع الـ IP ، فعملنا IP ثابت (Static IP) 🙂 جعفر

في حدث الحالي 🙂 جعفر

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

قائمة الصور اعلاه تم استرجاعها من البرنامج في مشاركتك : وجميعها بصيغة jpg وجميعها تفتح بصورة طبيعية ، ولكن قد يكون هناك مجموعة من الملفات التي ارفقها المستخدم في البرنامج بصيغ اخرى ، لهذا السبب اردتك ان ترفق بضع منها حتى افحصها 🙂 جعفر

في جزئية كنت ناوي اكتبها مع مشاركتي السابقة ، بس لما اخبرتني ام العيال ان الغدى جاهز ، طارت عن بالي 🙂 بعض الاوقات يكون عندنا مربع سرد فيه اكثر من عمود ، ونكون عملنا كود على الحدث "بعد تحديث" المربع ، حتى يضع قيمة العمود الثاني او الثالث في حقل او حقلين ، وعليه يكون الكود هكذا / Private Sub Form_Current() Dim nRow As Long, nColumn As Long 'nRow = رقم السطر 'nColumn = رقم العمود nColumn = 0 For nRow = 0 To Me.typ.ListCount - 1 If Me.typ.Column(nColumn, nRow) = "Y" Then Me.typ.Value = Me.typ.ItemData(nRow) Call typ_AfterUpdate '<==== Exit For End If Next i End Sub Private Sub typ_AfterUpdate() '<==== Me.Typ2 = Me.typ.Column(1) End Sub جعفر

على العموم ، صحيح ان جميع الطرق اعلاه تعطي النتيجة المطلوبة ، وذلك لأن مثال اخوي ازهر بسيط وبعمود واحد ، بينما الطريقة الصحيحة هي ، البحث عن القيمة في القائمة ( ComboBox او ListBox ) ، ومن اي عمود ، ثم اظهارها ، هكذا : rim nRow as long, nColumn as long 'nRow = رقم السطر 'nColumn = رقم العمود nColumn=0 For nRow = 0 To Me.Typ.ListCount - 1 If Me.Typ.Column(nColumn, nRow)="Y" Then Me.Typ.Value = Me.Typ.ItemData(nRow) Exit For End If Next i جعفر

هنا يأتي فائدة الملاحظات في الكود 🙂 فاعمل ملاحظاتك في كل حدث ، او في احداث معينة 🙂 جعفر

في هذه الحالة ، فهي لا تُسمى قيمة افتراضية 🙂 جعفر

سياق السؤال يشدنا الى الاجابة عن طريق معين ، وهو الزر ، بينما حل الموضوع عن طريقين: 1. في اعدادات الحقل ، هناك قيمة للقيمة الافتراضية ، فيمكن ادخالها هناك ، 2. او عند حدث "الحالي" او "التحميل" ، يمكن استعمال: me.typ = "y" . جعفر

السلام عليكم 🙂 في الواقع السؤال غير واضح !! الكود التالي على زر "case y" ، فالرسالة تخبرنا عن ما هو موجود في الحقل typ : Private Sub cmd_case_Click() Select Case Me.typ Case "y" MsgBox "Y is selected" Case "x" MsgBox "X is selected" End Select End Sub جعفر

وعليكم السلام اخي حمدي 🙂 وشكرا جزيلا لك 🙂 جعفر

اخي الفاضل : 1. قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف 2. اخبرك اخوي خالد : 3. اخبرك اخوي شفان ، ان قاعدة البيانات من نوع mde والتي لا يمكن ان تفتحها وترى الاكواد رجاء اخي الفاضل ، الالتزام بقوانين المنتدى 🙂 جعفر

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

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

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

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

كما أنه ممكن تخبرنا اي من الصور اللي ممكن ندمجها مع بعض لعمل ملف pdf جاهز للخطوة التالية😊 جعفر

الاستاذ احمد قصده : اذا اردت ان تنشر فيديو برنامجك ، فعليك بنشره في الرابط الذي وضعه الاخ احمد ، اما اذا اردت ان يستفيد منه الاعضاء ، ويعطوك تجاربهم ، فأنت في المكان الصحيح هنا 🙂 جعفر

السلام عليكم 🙂 للعلم ، الاداة DBPix تحفظ فقط ملفات الصور ، بصيغة Blob في حقل OLE في جداولك. لإخراج جميع الصور من برنامجك وحفظها في مجلد ، احفظ هذه الوحدة النمطية في برنامجك بإسم mod_Blob_to_File : Option Compare Database Option Explicit ' 'https://www.utteraccess.com/forum/index.php?s=bb0cc83dcb349316e03115efcd24acf4&showtopic=1688201&view=findpost&p=1688652 ' 'modified by jjafferr ' 16-4-2020 ' Public Declare Function apiCreatePath Lib "Imagehlp.dll" _ Alias "MakeSureDirectoryPathExists" (ByVal strPath As String) As Long ' Public Function ExtractFiles() Dim strPath As String, tbl_Name As String strPath = CurrentProject.Path & "\myFiles\" apiCreatePath strPath 'tblItemsTracks tbl_Name = "tblItemsTracks" With CurrentDb.OpenRecordset(tbl_Name) Do Until .EOF If Len(![Picture] & "") <> 0 Then DownloadFieldToFile ![Picture], strPath & tbl_Name & "_" & ![TNo] & "_" & ![Id] & "_Picture.jpg" DownloadFieldToFile ![Thumbnail], strPath & tbl_Name & "_" & ![TNo] & "_" & ![Id] & "_Thumbnail.jpg" End If .MoveNext Loop End With 'tblItemsTracks tbl_Name = "tblItemSubImagesT" With CurrentDb.OpenRecordset(tbl_Name) Do Until .EOF If Len(![imgMain] & "") <> 0 Then DownloadFieldToFile ![imgMain], strPath & tbl_Name & "_" & ![ItemId] & "_" & ![ImageId] & "_imgMain.jpg" DownloadFieldToFile ![imgThumb], strPath & tbl_Name & "_" & ![ItemId] & "_" & ![ImageId] & "_imgThumb.jpg" End If .MoveNext Loop .Close End With MsgBox "Done" End Function Private Sub DownloadFieldToFile(ByRef objFieldName As Object, _ ByVal strFileName As String) Dim intFileNum As Integer intFileNum = FreeFile Open strFileName For Binary As intFileNum Put intFileNum, , objFieldName.GetChunk(0, objFieldName.FieldSize) Close intFileNum End Sub . لتشغيل هذه الوحدة النمطية ، اكتب التالي (رجاء الملاحظة الى ان علامة الاستفهام بالانجليزي وليست بالعربي) ، في النافذة اسفل نافذة الكود (لفتحها اضغط على Ctrl+G) : ?ExtractFiles هذه الوحدة النمطية ستعمل لك مجلد جديد اسمه myFiles داخل مجلدك ، وستحفظ الصور من الجدولين فيه ، لهذا السبب ، رجاء استعمل نسخة من برنامجك للقيام بهذا العمل ، وتأكد بأنه لديك مساحة فارغة على الهارددسك اكثر من 2 جيجا ، وقبل ان تستخدم برنامجك كاملا ، رجاء استعمل ملفات جزء من برنامجك لاصل ، حتى نتفق على اسماء الملفات ، فأنا حاليا حفظت الملفات هكذا : . فقد لا تناسبك التسمية ، وخصوصا اننا يجب ان نربط الصور مع السجلات لاحقا بالاسم الصحيح 🙂 اما بالنسبة لحفظ ملفات الاسكانر بصيغة pdf ، فهناك 3 طرق : 1. الطريقة الاسهل والتي اخبرتك عنها : 2. ان تستعمل الكود في التحكم في الاسكانر (ومنها الطريقة التي طلبتها في تعديل كود المرفق) ، فلا تتعب نفسك ، فلا توجد طريقة سهلة ، 3. ان تجعل الاسكانر يعمل لك صور بصيغة jpg ، وبعدها نستخدم برنامج خارجي ليضم جميع هذه الصور الى ملف واحد بصيغة pdf وطبعا ممكن التحكم بهذا برمجيا ، ولكن العمل يطول والانسب هو الطريقة رقم1 اعلاه : . طبعا بعد ان تخرج الصور من برنامجك ، يجب ان تحذف حقول OLE من جداولك (لا تنسى انك تستعمل نسخة من برنامجك) ، وبعدها اعمل للبرنامج ضغط واصلاح ، وسيرجع الى حجمه الصحيح 🙂 ويجب عليك ان تعيد العمل على برنامجك (ونصيحة ، لا تستعمل الاداة DBPix مرة اخرى في البرنامج ، فانت محتاج الى اظهار الصور فقط في مربع الصور في النموذج/التقرير) ، او اظهر ملف pdf في النموذج/التقرير : جعفر

وعليكم السلام 🙂 اخي ربيع ، لقد حصلت على البرنامج من منتدى الاكسل : فهل هناك شيء آخر تريده من منتدى الاكسس ؟ جعفر

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

ما هي صيغة الملفات التي كنت تأخذها عن طريق DbPix ، هل كانت jpg او pdf ؟ وها اسم الملف كان بالانجليزي او العربي ؟

معظم الاعضاء يلجؤون للمنتديات لما تواجههم مشكلة في مكان ما ، والبعض الآخر يساعد الباقين ، فلا هذا عنده وقت ، ولا ذاك ، إلا اللي محتاج وعنده مشكلة في المثال اللي تقدمه ، فعلى اساسه تلقاه مستعد يجرب 🙂 جعفر