رمهان قام بنشر مارس 20, 2017 قام بنشر مارس 20, 2017 (معدل) تفضل وما عليك الا ربط الجداول فقط او اعادة الربط كما انني حذفت جميع الاكواد بمافيها الوحدة النمطيه واختصرت العمل حتى يسهل على الاخوان قراءة الفكرة والطريقة لمعرفتها وتعلمها بالتوفيق careitems.rar تم تعديل مارس 20, 2017 بواسطه رمهان 2
kaser906 قام بنشر مارس 20, 2017 الكاتب قام بنشر مارس 20, 2017 19 دقائق مضت, رمهان said: تفضل وما عليك الا ربط الجداول فقط او اعادة الربط كما انني حذفت جميع الاكواد بمافيها الوحدة النمطيه واختصرت العمل حتى يسهل على الاخوان قراءة الفكرة والطريقة لمعرفتها وتعلمها بالتوفيق careitems.rar ما شاء الله تبارك الله ربي يزيدك من علمه وفضله الله يجزاك خير ويرحم والديك النتيجة 100/100 شكرا لك استاذي الكريم 2
kaser906 قام بنشر مارس 20, 2017 الكاتب قام بنشر مارس 20, 2017 (معدل) 2 ساعات مضت, رمهان said: بالتوفيق استاذي الكريم ما عليه بثقل عليك والعشم فيك واجد هل يمكن إنشاء مجلد داخل مجلد قاعدة البيانات باسم image عند النقر على زر الامر ادخال صورة ليتم تخزين الصور به وعرضها بالنموذج على ان يكون ذلك لمرة واحدة فقط عند عدم وجود المجلد داخل مجلد قاعدة البيانات تم تعديل مارس 20, 2017 بواسطه kaser906 تعديل الشرح
صالح حمادي قام بنشر مارس 20, 2017 قام بنشر مارس 20, 2017 السلام عليكم في 20/3/2017 at 12:21, رمهان said: ان شاء الله الليله او بكره اليوم مسافر إن شاء الله ترجع بالسلامة أستاذ رمهان أستأذنك أخي رمهان في الإجابة على هذا السؤال أخي كاسر يمكنك إستعمال هذا الكود: curPath = "\\TOSHIBA\careitems\image" If Len(Dir(curPath, vbDirectory)) = 0 Then MkDir (curPath) End If فهو يقوم بإختبار وجود المجلد في المسار المحدد و إن لم يجده يقوم بإنشائه عن طريق الدالة MkDir
kaser906 قام بنشر مارس 20, 2017 الكاتب قام بنشر مارس 20, 2017 منذ ساعه, رمهان said: اليوم مسافر ترجع بالسلامه استاذي الكريم 16 دقائق مضت, صالح حمادي said: السلام عليكم إن شاء الله ترجع بالسلامة أستاذ رمهان أستأذنك أخي رمهان في الإجابة على هذا السؤال أخي كاسر يمكنك إستعمال هذا الكود: curPath = "\\TOSHIBA\careitems\image" If Len(Dir(curPath, vbDirectory)) = 0 Then MkDir (curPath) End If فهو يقوم بإختبار وجود المجلد في المسار المحدد و إن لم يجده يقوم بإنشائه عن طريق الدالة MkDir الله يعطيك العافية استاذ صالح كوود مسار السيرفر تغير اصبح الان يتم قراءة مسار السيرفر اليا ارجو منك تحميل المرفق الاخير للاستاذ رمهان والاطلاع
صالح حمادي قام بنشر مارس 20, 2017 قام بنشر مارس 20, 2017 في 20/3/2017 at 13:48, kaser906 said: كوود مسار السيرفر تغير اصبح الان يتم قراءة مسار السيرفر اليا ارجو منك تحميل المرفق الاخير للاستاذ رمهان والاطلاع نعم أخي أعلم ذلك أنا فقط وضعته كمثال و يمكنك تعويض المسار بما تشاء
kaser906 قام بنشر مارس 20, 2017 الكاتب قام بنشر مارس 20, 2017 43 دقائق مضت, صالح حمادي said: نعم أخي أعلم ذلك أنا فقط وضعته كمثال و يمكنك تعويض المسار بما تشاء حاولت ولكن لم انجح فكل المحاولات فشلت
صالح حمادي قام بنشر مارس 20, 2017 قام بنشر مارس 20, 2017 تفضل أخي هذا هو شكل الكود بعد التعديل: If Len(Dir(Replace(DLookup("database", "msysobjects", "database is not null"), Right(DLookup("database", "msysobjects", "database is not null"), Len(DLookup("database", "msysobjects", "database is not null")) - InStrRev(DLookup("database", "msysobjects", "database is not null"), "\")), "image"), vbDirectory)) = 0 Then MkDir (Replace(DLookup("database", "msysobjects", "database is not null"), Right(DLookup("database", "msysobjects", "database is not null"), Len(DLookup("database", "msysobjects", "database is not null")) - InStrRev(DLookup("database", "msysobjects", "database is not null"), "\")), "image")) End If If Dir(Replace(DLookup("database", "msysobjects", "database is not null"), Right(DLookup("database", "msysobjects", "database is not null"), Len(DLookup("database", "msysobjects", "database is not null")) - InStrRev(DLookup("database", "msysobjects", "database is not null"), "\")), "image\" & Me.المعرف & ".jpg")) <> "" Then If MsgBox("الملف موجود هل تريد الاستبدال", vbYesNo) = vbNo Then Exit Sub End If If Application.FileDialog(3).Show = -1 Then FileCopy Application.FileDialog(3).SelectedItems(1), Replace(DLookup("database", "msysobjects", "database is not null"), Right(DLookup("database", "msysobjects", "database is not null"), Len(DLookup("database", "msysobjects", "database is not null")) - InStrRev(DLookup("database", "msysobjects", "database is not null"), "\")), "image\" & Me.المعرف & ".jpg") imgPicture.Requery PicFile = Replace(DLookup("database", "msysobjects", "database is not null"), Right(DLookup("database", "msysobjects", "database is not null"), Len(DLookup("database", "msysobjects", "database is not null")) - InStrRev(DLookup("database", "msysobjects", "database is not null"), "\")), "image\" & Me.المعرف & ".jpg") End If و هذا ملفك بعد التعديل careitems.rar
kaser906 قام بنشر مارس 20, 2017 الكاتب قام بنشر مارس 20, 2017 منذ ساعه, صالح حمادي said: و هذا ملفك بعد التعديل تمام استاذ صالح فقط نحتاج اعادة المسار في عنصر تحكم عرض الصورة =Replace(DLookUp("database";"msysobjects";"database is not null");Right(DLookUp("database";"msysobjects";"database is not null");Len(DLookUp("database";"msysobjects";"database is not null"))-InStrRev(DLookUp("database";"msysobjects";"database is not null");"\"));"image\" & [Me].[العرف] & ".jpg") فهذا المسار مهمتة عرض الصورة في جهاز المستخدم في حالة تم اضافة الصورة من جهاز مستخدم اخر او من السيرفر حاولت اعدل باضافة المجلد ولكن لم تنجح المحاولة فلم تظهر الصورة لا بالجهاز الاساس ( السيرفر ) ولا بجهاز المستخدم
صالح حمادي قام بنشر مارس 20, 2017 قام بنشر مارس 20, 2017 السلام عليكم 8 دقائق مضت, kaser906 said: فقط نحتاج اعادة المسار في عنصر تحكم عرض الصورة لما لا تجعل مصدر عنصر تحكم عرض الصورة هو الحقل PicFile لأن في الكود السابق يحفظ مسار الصورة في هذا الحقل
kaser906 قام بنشر مارس 20, 2017 الكاتب قام بنشر مارس 20, 2017 1 دقيقه مضت, صالح حمادي said: السلام عليكم لما لا تجعل مصدر عنصر تحكم عرض الصورة هو الحقل PicFile لأن في الكود السابق يحفظ مسار الصورة في هذا الحقل استاذي عندما اقوم باضافة صورة من السيرفر مع جعل خاصية عنصر التحكم picfFile لايتم عرض الصورة في جهاز المستخدم والسبب انها تأخذ هذا المسار C:\careitems\2.jpg فلا يستطيع البرنامج المثبت على جهاز المستخدم قراءة المسار الصحيح فمن النظرة الاولى تعتقد ان هذا المسار هو على القرص المحلي للجهاز لكن عند اعادة المسار المشار اليه الى عنصر التحكم تظهر الصورة في جهاز المستخدم عن طريق دالة DlookuP
صالح حمادي قام بنشر مارس 20, 2017 قام بنشر مارس 20, 2017 (معدل) معذرة نسيت أمر السيرفر استعمل هذا الكود =Replace(DLookUp("database";"msysobjects";"database is not null");Right(DLookUp("database";"msysobjects";"database is not null");Len(DLookUp("database";"msysobjects";"database is not null"))-InStrRev(DLookUp("database";"msysobjects";"database is not null");"\"));"image\" & [المعرف] & ".jpg") و هذا هو المرفق careitems.rar تم تعديل مارس 20, 2017 بواسطه صالح حمادي 2
kaser906 قام بنشر مارس 20, 2017 الكاتب قام بنشر مارس 20, 2017 19 دقائق مضت, صالح حمادي said: معذرة نسيت أمر السيرفر استعمل هذا الكود =Replace(DLookUp("database";"msysobjects";"database is not null");Right(DLookUp("database";"msysobjects";"database is not null");Len(DLookUp("database";"msysobjects";"database is not null"))-InStrRev(DLookUp("database";"msysobjects";"database is not null");"\"));"image\" & [المعرف] & ".jpg") شكرا لك استاذي صالح الان اصبح يعمل بشكل ممتاز الشكر موصول لاستاذي رمهان الذي صبر معي وتحملني خطوة بخطوة فكان نعم المعلم الفاضل 1
صالح حمادي قام بنشر مارس 20, 2017 قام بنشر مارس 20, 2017 الان, kaser906 said: شكرا لك استاذي صالح الان اصبح يعمل بشكل ممتاز الشكر موصول لاستاذي رمهان الذي صبر معي وتحملني خطوة بخطوة فكان نعم المعلم الفاضل الحمد لله الذي تتم بنعمته الصالحات
رمهان قام بنشر مارس 21, 2017 قام بنشر مارس 21, 2017 (معدل) في 3/20/2017 at 07:02, kaser906 said: وأملي في أخراج هذا المثال على أكمل وجه فهو سيكون بمثابة مرجع لكثير من الأعضاء لأني أكاد أجزم بأن مثل هذا الموضوع في رفع الصور والملفات على السيرفر من جهاز المستخدم تكاد تكون معدومه في اغلب المنتديات الحمدلله اخ كاسر اغلب مشاركاتي اخي كاسر هي بافكار جديده واغلبها اصبحت مواضيع جديده ولله الحمد والمنه اشكر الاستاذ صالح على تحليه باخلاق اهل العلم والمشاركه والمساعده هنا وعلى نفس الفكره بالتوفيق تم تعديل مارس 21, 2017 بواسطه رمهان 1
صالح حمادي قام بنشر مارس 21, 2017 قام بنشر مارس 21, 2017 50 دقائق مضت, رمهان said: اشكر الاستاذ صالح على تحليه باخلاق اهل العلم والمشاركه والمساعده هنا وعلى نفس الفكره الشكر لله أولا أستاذ رمهان ثم لك ثانيا لأنك صاحبك الفكرة و ما نحن إلا مكملين لها فقط
ابوخليل قام بنشر مارس 21, 2017 قام بنشر مارس 21, 2017 9 ساعات مضت, صالح حمادي said: =Replace(DLookUp("database";"msysobjects";"database is not null");Right(DLookUp("database";"msysobjects";"database is not null");Len(DLookUp("database";"msysobjects";"database is not null"))-InStrRev(DLookUp("database";"msysobjects";"database is not null");"\"));"image\" & [المعرف] & ".jpg") جميل جدا استاذ رمهان ، وافكار نيرة ، استخدام جدول النظام لمعرفة مكان قاعدة الجداول وشكرا لصاحب الموضوع والاستاذ صالح للاثراء كان الكود في البداية داخل المرفق 1
رمهان قام بنشر مارس 21, 2017 قام بنشر مارس 21, 2017 5 ساعات مضت, ابوخليل said: جميل جدا استاذ رمهان ، وافكار نيرة ، استخدام جدول النظام لمعرفة مكان قاعدة الجداول وشكرا لصاحب الموضوع والاستاذ صالح للاثراء كان الكود في البداية داخل المرفق هنا تم معرفة اسم القاعده الخلقيه والتي بنفس الفكره وباسهل يمكن معرفة مسار القاعده كذلك تحياتي للجميع
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.