رمهان قام بنشر مارس 20, 2017 قام بنشر مارس 20, 2017 (معدل) تفضل وما عليك الا ربط الجداول فقط او اعادة الربط كما انني حذفت جميع الاكواد بمافيها الوحدة النمطيه واختصرت العمل حتى يسهل على الاخوان قراءة الفكرة والطريقة لمعرفتها وتعلمها بالتوفيق careitems.rar تم تعديل مارس 20, 2017 بواسطه رمهان 2
kaser906 قام بنشر مارس 20, 2017 الكاتب قام بنشر مارس 20, 2017 في 20/3/2017 at 05:42, رمهان said: تفضل وما عليك الا ربط الجداول فقط او اعادة الربط كما انني حذفت جميع الاكواد بمافيها الوحدة النمطيه واختصرت العمل حتى يسهل على الاخوان قراءة الفكرة والطريقة لمعرفتها وتعلمها بالتوفيق careitems.rarFetching info... Expand ما شاء الله تبارك الله ربي يزيدك من علمه وفضله الله يجزاك خير ويرحم والديك النتيجة 100/100 شكرا لك استاذي الكريم 2
kaser906 قام بنشر مارس 20, 2017 الكاتب قام بنشر مارس 20, 2017 (معدل) في 20/3/2017 at 05:42, رمهان said: بالتوفيق Expand استاذي الكريم ما عليه بثقل عليك والعشم فيك واجد هل يمكن إنشاء مجلد داخل مجلد قاعدة البيانات باسم image عند النقر على زر الامر ادخال صورة ليتم تخزين الصور به وعرضها بالنموذج على ان يكون ذلك لمرة واحدة فقط عند عدم وجود المجلد داخل مجلد قاعدة البيانات تم تعديل مارس 20, 2017 بواسطه kaser906 تعديل الشرح
صالح حمادي قام بنشر مارس 20, 2017 قام بنشر مارس 20, 2017 السلام عليكم في 20/3/2017 at 11:21, رمهان said: ان شاء الله الليله او بكره اليوم مسافر Expand إن شاء الله ترجع بالسلامة أستاذ رمهان أستأذنك أخي رمهان في الإجابة على هذا السؤال أخي كاسر يمكنك إستعمال هذا الكود: curPath = "\\TOSHIBA\careitems\image" If Len(Dir(curPath, vbDirectory)) = 0 Then MkDir (curPath) End If فهو يقوم بإختبار وجود المجلد في المسار المحدد و إن لم يجده يقوم بإنشائه عن طريق الدالة MkDir
kaser906 قام بنشر مارس 20, 2017 الكاتب قام بنشر مارس 20, 2017 في 20/3/2017 at 11:21, رمهان said: اليوم مسافر Expand ترجع بالسلامه استاذي الكريم في 20/3/2017 at 12:29, صالح حمادي said: السلام عليكم إن شاء الله ترجع بالسلامة أستاذ رمهان أستأذنك أخي رمهان في الإجابة على هذا السؤال أخي كاسر يمكنك إستعمال هذا الكود: curPath = "\\TOSHIBA\careitems\image" If Len(Dir(curPath, vbDirectory)) = 0 Then MkDir (curPath) End If فهو يقوم بإختبار وجود المجلد في المسار المحدد و إن لم يجده يقوم بإنشائه عن طريق الدالة MkDir Expand الله يعطيك العافية استاذ صالح كوود مسار السيرفر تغير اصبح الان يتم قراءة مسار السيرفر اليا ارجو منك تحميل المرفق الاخير للاستاذ رمهان والاطلاع
صالح حمادي قام بنشر مارس 20, 2017 قام بنشر مارس 20, 2017 في 20/3/2017 at 12:48, kaser906 said: كوود مسار السيرفر تغير اصبح الان يتم قراءة مسار السيرفر اليا ارجو منك تحميل المرفق الاخير للاستاذ رمهان والاطلاع Expand نعم أخي أعلم ذلك أنا فقط وضعته كمثال و يمكنك تعويض المسار بما تشاء
kaser906 قام بنشر مارس 20, 2017 الكاتب قام بنشر مارس 20, 2017 في 20/3/2017 at 17:13, صالح حمادي said: نعم أخي أعلم ذلك أنا فقط وضعته كمثال و يمكنك تعويض المسار بما تشاء Expand حاولت ولكن لم انجح فكل المحاولات فشلت
صالح حمادي قام بنشر مارس 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 في 20/3/2017 at 19:06, صالح حمادي said: و هذا ملفك بعد التعديل Expand تمام استاذ صالح فقط نحتاج اعادة المسار في عنصر تحكم عرض الصورة =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 السلام عليكم في 20/3/2017 at 20:30, kaser906 said: فقط نحتاج اعادة المسار في عنصر تحكم عرض الصورة Expand لما لا تجعل مصدر عنصر تحكم عرض الصورة هو الحقل PicFile لأن في الكود السابق يحفظ مسار الصورة في هذا الحقل
kaser906 قام بنشر مارس 20, 2017 الكاتب قام بنشر مارس 20, 2017 في 20/3/2017 at 20:42, صالح حمادي said: السلام عليكم لما لا تجعل مصدر عنصر تحكم عرض الصورة هو الحقل PicFile لأن في الكود السابق يحفظ مسار الصورة في هذا الحقل Expand استاذي عندما اقوم باضافة صورة من السيرفر مع جعل خاصية عنصر التحكم 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 في 20/3/2017 at 21:08, صالح حمادي 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") Expand شكرا لك استاذي صالح الان اصبح يعمل بشكل ممتاز الشكر موصول لاستاذي رمهان الذي صبر معي وتحملني خطوة بخطوة فكان نعم المعلم الفاضل 1
صالح حمادي قام بنشر مارس 20, 2017 قام بنشر مارس 20, 2017 في 20/3/2017 at 21:30, kaser906 said: شكرا لك استاذي صالح الان اصبح يعمل بشكل ممتاز الشكر موصول لاستاذي رمهان الذي صبر معي وتحملني خطوة بخطوة فكان نعم المعلم الفاضل Expand الحمد لله الذي تتم بنعمته الصالحات
رمهان قام بنشر مارس 21, 2017 قام بنشر مارس 21, 2017 (معدل) في 20/3/2017 at 04:02, kaser906 said: وأملي في أخراج هذا المثال على أكمل وجه فهو سيكون بمثابة مرجع لكثير من الأعضاء لأني أكاد أجزم بأن مثل هذا الموضوع في رفع الصور والملفات على السيرفر من جهاز المستخدم تكاد تكون معدومه في اغلب المنتديات Expand الحمدلله اخ كاسر اغلب مشاركاتي اخي كاسر هي بافكار جديده واغلبها اصبحت مواضيع جديده ولله الحمد والمنه اشكر الاستاذ صالح على تحليه باخلاق اهل العلم والمشاركه والمساعده هنا وعلى نفس الفكره بالتوفيق تم تعديل مارس 21, 2017 بواسطه رمهان 1
صالح حمادي قام بنشر مارس 21, 2017 قام بنشر مارس 21, 2017 في 21/3/2017 at 05:09, رمهان said: اشكر الاستاذ صالح على تحليه باخلاق اهل العلم والمشاركه والمساعده هنا وعلى نفس الفكره Expand الشكر لله أولا أستاذ رمهان ثم لك ثانيا لأنك صاحبك الفكرة و ما نحن إلا مكملين لها فقط
ابوخليل قام بنشر مارس 21, 2017 قام بنشر مارس 21, 2017 في 20/3/2017 at 21:08, صالح حمادي 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") Expand جميل جدا استاذ رمهان ، وافكار نيرة ، استخدام جدول النظام لمعرفة مكان قاعدة الجداول وشكرا لصاحب الموضوع والاستاذ صالح للاثراء كان الكود في البداية داخل المرفق 1
رمهان قام بنشر مارس 21, 2017 قام بنشر مارس 21, 2017 في 21/3/2017 at 06:44, ابوخليل said: جميل جدا استاذ رمهان ، وافكار نيرة ، استخدام جدول النظام لمعرفة مكان قاعدة الجداول وشكرا لصاحب الموضوع والاستاذ صالح للاثراء كان الكود في البداية داخل المرفق Expand هنا تم معرفة اسم القاعده الخلقيه والتي بنفس الفكره وباسهل يمكن معرفة مسار القاعده كذلك تحياتي للجميع
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.