Elsayed Bn Gemy

بارك الله فيك اخى الكريم ما هونظام التشغيل المثبت لديك ؟

السلام عليكم ورحمة الله تعالى وبركاته قمت بفضل الله بتصميم مكتبة dll يمكن اضافتها للاكسس نعم هى بسيطة ولكنها اول تجربة وان شاء الله احاول ان اصمم مكتبات اخرى هى اداة مثل البروجرس بار هذه شكلها بعد التسجيل ستجدها موجودة فى عناصر Active x وهذه صورة اثناء تصميم الاداة على vb.net قريبا ان شاء الله explorer bar وهذا فيديو اثبات عملى للاداة اما عن طريقة التسجيل فستجد ملف من نوع .bat ارفقته مع الاداه اسمه " تسجيل الاداة " قم بفتحة با النوتباد وقم بتغيير مسار الاداه وقم بحفظ الملف وعن التسجيل قم بفتح الملف كمسؤل وسيقوم بتسجيل المكتبةتلقائيا هذه هى المكتبة axload5.rar اتمنى ان تجربوها وتخبرونى بالنتائج دمتم لنا سندا حاجة اخيرة ايه ممكن استفاد من الاداة هذه ممكن مثلا تضعها فى نموذج مخفية وعند تنفيذ امر معين تظهرها وعند انتهاء الامر تقوم باخفائها وهكذا

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

عمتا افصل لك الاكواد تباعا هنا اولا كود انشاء مجلد جديد فى نفس مسار قاعدة البيانات Dim des, fileto As String Set BnGemy = CreateObject("Scripting.FileSystemObject") des = CurrentProject.Path & "\" & "User Photo" If Len(Dir(des, vbDirectory)) = 0 Then MkDir Path:=des End If حيث ان des هو المسار الخاص بالمجلد ثانيا كود اختيار الصورة من نوع jpg Dim x As Object Set x = Application.FileDialog(3) With x If Not IsNull(Attach) = True Then .InitialFileName = Attach Else .InitialFileName = "" End If .AllowMultiSelect = False .Filters.Clear .Filters.add "All jpg", "*.jpg" If .Show = True Then fileto = Trim(.SelectedItems(1)) End If End With Set x = Nothing end if حيث ان fileto هو مسار الصورة المختارة ثالثا كود نسخ الصورة من مسارها المحدد الى مجلد User Photo بنفس كود العميل SN حيث سيتم تسميتها بهذا الاسم تلقائيا اضف هذا الكود الى وحدة نمطية جديدة Option Compare Database Private Declare Function CopyFileA Lib "kernel32" (ByVal ExistingFileName As String, _ ByVal NewFileName As String, ByVal FailIfExists As Long) As Long Public Function Copy(FileSrc As String, FileDst As String, Optional NoOverWrite As Boolean = True) As Boolean Dim Flag As Long Dim Name As String Name = Right(FileSrc, Len(FileSrc) - InStrRev(FileSrc, "\")) If CopyFileA(FileSrc, FileDst & Name, NoOverWrite) Then Copy = True Else Copy = False End If End Function وهذا كود النسخ Copy fileto, des & "\" & SN, True حيث ان fileto كما قلنا سابقا هو مسار الصورة المختارة و SN هو كود العميل فى جدول Users والذى سيتم تسميت الصورة به لم يتبقى الى كود الحذف Kill PhotoUser PhotoUser هو مسار الصورة المراد حذفها اعتذر لك لعدم تقديم مرفق لك والله مشغول فعلا ادعو الله لى شكرا لك

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

المرفق الذى ارسلته لك يقوم بعمل هذه الاضافة انظر الى نموذج Step3

مرفقك فكرنى بمرفق قديم لى يااااااااااه هههههههههههه ايام عمتا قمت بتعديل بسيط على مرفقك ستلاحظه الصور يجب ان تكون فى نفس مسار قاعدة البيانات ويجب ان تكون امتدادها jpg اسماء الصور هى اكواد المستخدمين المستخدمة فى حقل SN فى جدول user ادرجت حدث فى كومبوكس الاسم فى حدث بعد التحديث يجلب رقم المستخدم صورة المستخدم.rar

انا ايضا احاول ان اجد حلا لمشكلة مساحة قاعدة البيانات احاول ان اجد حلا لزيادة قاعدة البيانات الى ما فوق 2 جيجا بايت • هذه. المشكلة تؤرقنى افكر فيها باستمرار • اسال الله ان يوفقنى ويهدينى الى حل لها

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

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

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

السلام عليكم ورحمة الله تعالى وبركاته اعضاء منتدانا الغالى كل عام انتم بخير عيدكم مبارك قد يكون الموضوع مخالف ولكن عزرا لكم اخوانى احببت ان اشارككم او تطبيق اقوم بتنفيذه بواسطة VB.net رافع الصور Photo Upload manger نظرا لحاجاتنا الى رفع الصور لعرضها هنا ونظرا لقلة مساحة المرفقات احببت ان اشارككم برنامجى اى اخطاء او تعديلات اسالكم مشكورين ان تذكروها فى التعليقات شروط الخدمة ملحوظة صغيرة يمكنك الاعلان عن اى شئ تريده عن طريق البرنامج فقمت بتفعيل خاصية الاعلانات من خلاله وهذا فيديو يشرح طريقة العمل http://recordit.co/WpMHEOU9m4 والان مع المرفق PUM 1.00.rar

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

لا لا لا كلامك صحيح انا فقط اتاسف على حتمية تثبيت الدريفرات عموما بامر الله احاول العزوف عن اكسس واربط برنامجى ب SQL لما لها من فوائد عظيمة

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

كل شئ ممكن مفيش مستحيل اشتغلو عليه وحدثوه وربنا يوفقكم التطبيق كدا كدا مفتوح المصدر

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

هل هذا هو المطلوب تصحيح الخطأ البرمجي بنموذج البحث3.rar

السلام عليكم ورحمة الله وبركاته اليوم تحديث جديد لهذا الموضوع الخاص بمستعرض الصور فقط والان المستعرض اصبح لكل الملفات الموجودة فى المجلد الذى تريده التحديث يشمل 1 - لا يقتصر العرض على الصور فقط بل على كل الملفات 2- امكانية استعراض الصور بشكل مكبر داخل البرنامج ( المستعرض ) 3- امكانية نسخ الملفات الى اى مكان داخل الويندوز ( دون الاماكن التى تحتاج الى صلاحيات مثل مجلدات النظام ) 4 - امكانية نقل الملفات الى اى مكان فى الويندوز ( دون الاماكن التى تحتاج الى صلاحيات مثل مجلدات النظام ) 5 - جلب خصائل كل ملف من تاريخ انشاء وتعديل حجم الملف 6 - امكانية اعادة التسمية لاى ملف فى المجلد عن طريق البرنامج 7 - اضافة بروجرس بار فقط اثناء تحميل الملفات من المجلد لاستعراضها 8 - امكانية حذف الملف المختار عن طريق البرنامج 9 - امكانية البحث بالاسم والنوع داخل المجلد والان مع الصور والشرح -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- والان فيديو مبسط لطريقة عمله اتمنى ان يعجبكم اصدقائى وتستفيدون منه ان شاء الله فقط انا فى انتظار ارائكم وملاحظتكم وتحديثاتكم مين عارف يمكن نستخدمه بدل explore.exe 🤣🤣 Gallary.rar

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

يمكن اضافة دالة بسيطة جدا على كود الاستعلام الاول هذا ليعمل وهى دالة ABS وهى لتحويل القيم السالبة الى موجبة وذلك بدلا من الاستعلام الاخير او لجعل الاستعلام مبسطا اكثر ليصبح الاستعلام الاول هكذا UPDATE tabl_item SET tabl_item.الربح = Abs([tabl_item]![الربح])*-1 WHERE (((tabl_item.الكمية)<0));

لا يا اخى ليس هو المطلوب فقط قم بتشغيل الاستعلام مرة اخرى سيقوم بعمل العكس سيحول الربح السالب الى موجب اكتشفتها اثناء التجريب ولحل هذه المشكلة اليك تعديل كود سيكوال السابق UPDATE tabl_item SET tabl_item.الربح = [tabl_item]![الربح]*-1 WHERE (((tabl_item.الربح)>0) AND ((tabl_item.الكمية)<0)) OR (((tabl_item.الربح)<0) AND ((tabl_item.الكمية)>0)); شكرا لك

ولو مصر على استعلام التحديث ممكن تنشأ هذا الاستعلام وهذا كود SQL الخاص به UPDATE tabl_item SET tabl_item.الربح = [tabl_item]![الربح]*-1 WHERE (((tabl_item.الكمية)<0)); فقط انشئ استعلام جديد وافتحه فى طريقة عرض SQL وضع هذا الكود وقم بحفظه وسيعمل معك ان شاء الله

تفضل تحويل_الى_سالب.rar

اخى حسين اضرب حقل الربح * -1 مع استعمال قاعدة IIf وتكون حللت المشكلة ان شاء الله