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  هو مسار  الصورة المراد حذفها

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

شكرا لك
 

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

4 ساعات مضت, محمد صلاح1 said:

3- في نموذج Step3 وهو الذي يعد بمثابة شاشة الدخول للمستخدمين أريد بمجرد كتابة المستخدم لاسم دخوله وقبل كتابة الباسوورد الخاص به إظهار صورته التي تم أختارهامن قبل عند إضافة بياناته هذا كل المطلوب في الموضوع حتي يكتمل وشكراً

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

انظر الى نموذج Step3

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

ادرجت حدث فى كومبوكس الاسم فى حدث بعد التحديث  يجلب رقم المستخدم

صورة المستخدم.rar

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

12 ساعات مضت, ابا جودى said:

وما بعد النفاش هل تطرح الحلول  اتمنى ذلك

1- التعامل مع الاسكنر   -       لابد من وسيط خارجى وخاصة ان كان الماسح الضوئى يحتوى على خاصية سحب عدد من الأوراق دفعة واحدة 

 

مرحبا اخى ابو جودى

بالطبع نحاول ان نجد لمشاكلنا حلا  وان كنت اسعى لايجاد مجدا شخصيا لى بكتابة  اضافات للاكسس تنفعنى فى اخرتى 😂😂

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

ولناخذ اول مشكلة وهى الاسكانر والتعامل معه 

ما الذى نعانى منه فى الاسكانر بالتحديد    ؟؟ فالموقع ملئ بابدعات فى هذا المجال بالتحديد ولا انت مكسل تدور ابا جودى

🤣🤣

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

31 دقائق مضت, محمد سلامة said:

تسلم ياغالي كل سنه وانت طيب

بس سؤال 

انا مش فاهم هو بيرفع الصور فين بالظبط ياريت توضح

تحياتي

ههههههههههه وانت طيب  لازم تعرف يعنى

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

بمساحة خاصة بى

السلام عليكم ورحمة الله تعالى وبركاته

اعضاء منتدانا الغالى كل عام انتم بخير عيدكم مبارك
قد يكون الموضوع مخالف ولكن عزرا لكم اخوانى احببت ان اشارككم  او تطبيق اقوم بتنفيذه بواسطة VB.net

 رافع الصور  Photo Upload manger

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

شروط الخدمة


 

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

وهذا فيديو يشرح طريقة العمل
http://recordit.co/WpMHEOU9m4
والان مع المرفق

PUM 1.00.rar

في ١٥‏/٤‏/٢٠١٩ at 07:17, takydeen said:

السلام عليكم

اولا جزاك الله خيرا

انا اعمل على اوفيس 2016 وتظهر نفس المشكلة وتبقى على هذه الحالة ........ هل من حل؟

والنظام لدي 64bit

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

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

السلام عليكم اخى رمهان اعتذر لتاخر ردى

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

انا استعمل الدريفرات هذه

17 ساعات مضت, athal said:

عليكم السلام

استاذ جمال

عاشت ايدك

بارك الله فيك

هل ممكن ذلك

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

السلام عليكم اخوانى الكرام 

هل اذا قمت بربط قاعدة بيانات اكسس بفيجول بيسك 2010

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

شكرا لكم 

هل هذا هو المطلوب

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

السلام عليكم ورحمة الله وبركاته

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

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

التحديث يشمل

1 - لا يقتصر العرض على الصور فقط بل على كل الملفات

2- امكانية استعراض الصور بشكل مكبر داخل البرنامج ( المستعرض )

3- امكانية نسخ الملفات الى اى مكان داخل الويندوز ( دون الاماكن التى تحتاج الى صلاحيات مثل مجلدات النظام )

4 - امكانية نقل الملفات الى اى مكان فى الويندوز ( دون الاماكن التى تحتاج الى صلاحيات مثل مجلدات النظام )

5 - جلب خصائل كل ملف من تاريخ انشاء وتعديل حجم الملف

6 - امكانية اعادة التسمية لاى ملف فى المجلد عن طريق البرنامج

7 - اضافة بروجرس بار فقط اثناء تحميل الملفات من المجلد لاستعراضها

8 - امكانية حذف الملف المختار عن طريق البرنامج

9 - امكانية البحث بالاسم والنوع داخل المجلد

والان مع الصور والشرح

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

والان فيديو مبسط لطريقة عمله

اتمنى ان يعجبكم اصدقائى وتستفيدون منه ان شاء الله

فقط انا فى انتظار ارائكم وملاحظتكم وتحديثاتكم   مين عارف يمكن نستخدمه بدل explore.exe  🤣🤣

Gallary.rar

1 ساعه مضت, nawafleh said:

السلام عليكم اخي السيد:

 

ارجو منك مراسلتي على aliamra    الهوتميل ضروري جدا احتاج مساعدتك.

واقبل فائق الاحترام 

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

شكرا لك

منذ ساعه, Elsayed Bn Gemy said:

ولو مصر على استعلام التحديث ممكن تنشأ هذا الاستعلام وهذا كود SQL الخاص به

UPDATE tabl_item SET tabl_item.الربح = [tabl_item]![الربح]*-1
WHERE (((tabl_item.الكمية)<0));

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

 

يمكن اضافة دالة بسيطة جدا على كود الاستعلام الاول هذا ليعمل وهى دالة 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
 وتكون حللت المشكلة  ان شاء الله