د.كاف يار

اقترح عليك ان تستخدم قناع الادخال لكل عنصر 

مثال على ذكل

لدينا مربع نص رقمي و ليكن مثلا يتكون من عدد 4 حقول و يمثل حقل ID

و يكون قناع الادخال بهذا الشكل

بالتالي فأن القيمة المدخلة ستكون رقمية و لن يقبل القيم النصية

مثال آخر لقيمة نصية

هنا لدينا مربع نصي لإدخال الاسم و التنسيق الافتراضي له هو حروف فقط

يكون قناع الادخال بهذا الشكل

بإختصار من خلال قناع الادخال بإمكانك التحكم بنوعة الادخال لكل حقل

فمثلا لو كنت تريد ما يلي :-

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

اما لو اردنا المستخدم ادخال عدد محدد من الارقام مثلا تسعة ارقام فيكون قيمة قناع الادخال هو : 9

اما مثلا لو اردنا اجبار المستخدم على ادخال رقمين و حرفين فيكون قيمة قناع الادخال بهذا الشكل : ##LL

لتمكين المستخدم من ادخال حروف و ارقام بعدد محدد مثلا خمسة حروف او ارقام فيكون قناع الادخال بهذا الشكل : AAAAA

******* ملاحظة *************

الحروف في قناع الادخال مثلا A كبير فيعني ادخال اجباري اما لو كان الحرف صغير a  فيعني ادخال اختياري 

كما ستجد بعض نماذج اقنعة الادخل من خلال الخصائص

تفضل التعديل يابو الحسن

كذلك اتمنى اذا فيه مشكلة تكون ردودك مختصرة و تحدد المشكلة بدون تفصيل طويل

الدائن و المدين.zip

جرب هذا التعديل

انتخابات (1).zip

9 ساعات مضت, محمد التميمي said:

السلام عليكم

بعد اذن صاحب المشاركة الاخ احمد

بارك الله بك استاذي الكريم د.كاف يار وجعله الله في ميزان حسناتك عمل في غاية الروعة

استاذي الكريم لو تكرمت علينا وانت صاحب الكرم

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

الهم احفظ إخواننا من كل سوء ومكروه في هذا الشهر الكريم 

 

ارفق مثال

و للإستزادة

لإنشاء فولدر استخدم الكود التالي

Dim fso As Object, FoldrName As String, fldrpath As String

FoldrName = "hi"  ' اسم الفولد هنا و يمكن استبداله بمربع النص

Set fso = CreateObject("scripting.filesystemobject")

' مسار الفولدر
FoldrName = CurrentProject.path & "\" & FoldrName

' في حال عدم وجود الفولدر حسب المسار اعلاه سيتم انشاء فولدر جديد
If Not fso.FolderExists(fldrpath) Then: fso.createfolder (FoldrName)

23 ساعات مضت, Ahmed_J said:

السلام عليكم 

استاذي العزيز @د.كاف يار

قمت بتجربة الملف على جهازي

الملف يقوم بمسح صورة واحدة فقط وليس عدة صور   بعد اختيار (decument Feeder)   كما في الصور

وشكرا لك

 

تفضل جرب هذا التعديل

Database1.zip

تفضل هذا التعديل

test.zip

تفضل استخدم هذا الكود

في آخر محرر الأكواد الصق الكود التالي

Public Function SetProdact(Barcod As String, SetCoulmin As String)
    Dim db As DAO.Database, rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset(" SELECT * FROM [المخزن] where [رقم_الباركود] Like '*" & Barcod & "*'")
        SetProdact = rs.Fields(SetCoulmin)
        rs.Close
    Set rs = Nothing
End Function

و في مربع اسم الصنف الصق التالي

=SetProdact(Text420, "الصنف")

2.zip

تفضل هذا الموضوع

مشاركة قاعدة البيانات على الانترنت بواسطة SQL Server

نشر الاكسس على الانترنت

ابدء العمل و اذا واجهة مشكلة قم باضافة موضوع جديد

انقل الكود من المرفق 

تم استبدال رقم العمود بالإسم

orwahSch (1).mdb

تفضل هذا التعديل

Database1.zip

تفضل هذا التعديل

testQ-2.zip

العفو اخي الكريم ستجدنا دائما في خدمتك

شكرا لك

للأسف لغة الفيجوال بسيك الاصدار 6 لا يتوفر لدي 

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

و لكي لا نخرج عن الموضوع قم بإدارج الكود لكي يتم التعديل عليه

اخي بعض السيرفرات تدعم قواعد بيانات الاكسس و البعض الآخر تجعلك اما قرار تحويل القاعدة الى SQL Server

و انصحك و بشدة تحويل القاعدة الى SQL Server و ربطها بالأكسس

فمستقبلا تحتاج ان يكون التطبيق يعمل على اكثر من نوع من التطبيقات مثلا ويب و تطبيقات الهواتف المحمولة

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

ممتاز و فعلا كل مبرمج يحتاج لمثل هذه الافكار

استمر اخي و نسأل الله الكريم جل في علاه بأن يجعله في موازين حسناتك

تفضل هذه المشاركة مع اخي @Moosak

ايام دوام الموظفين.mdb

و هذا ما تم فعلا

بعد اداخل تاريخ الميلاد سيتم احتساب العمر

تفضل هذا التعديل

orwahSch (1).mdb

طيب ارفق نسخة او مثال من برنامجك 

تفضل هذا التعديل

فقط قم باختصيار الصف و الفصل 

في حال وجود رقم شاغر سيتم تخصص الرقم الشاغر للطالب المستجد

و في حال لا يوجد رقم شاغر سيتم اضافة رقم جديد استكمالا للتسلسل

orwahSch.mdb

تفضل هذا التعديل

GoToForm.accdb

تفضل

مساعدات مرضية جديد.accdb

تفضل بهذا الترتيب يكون التحكم اسهل

Dim SetCoulmin() As String, SetWhere As String
SetCoulmin = " TransID,TransType, TransTitle, " & _
             " TransSubject,TransDescription,TransCreatedOn, " & _
             " TransCreatedBy,TransStatus,TransUpdatedBy, " & _
             " TransEnd,TransFromCity,TransFromDept,TransToDept,TransToEmp "

Forms!DynamicForm!lstDynamic.RowSource = "SELECT " & SetCoulmin & " From TransactionsT " & _
                                        " WHERE TransType is Not Null " & _
                                            " and TransTitle is Not Null " & _
                                            " and TransSubject is Not Null " & _
                                            " and TransToDept Like '*' & Forms!MainScreen!txtDepartment & '*' " & _
                                        " ORDER BY TransID DESC"

لحذف بيانات الطلاب استخدم الجملة التالية

DELETE FROM [table_name]

تفضل هذا التعديل

اضافة هذه الشفرة في اي مكان داخل محرر الأكواد

Public Sub EditSelse(Parcod As String)
    Dim db As DAO.Database, rs As DAO.Recordset, TbName As String
    TbName = "المنتجات"
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM [" & TbName & "] where Barcode Like '" & Parcod & "'")
    
    If Not rs.BOF And Not rs.EOF Then
        rs.MoveFirst
        While (Not rs.EOF)
        Dim SubSeles As Double: SubSeles = Nz(DSum("number", "مبيعات", "ProductN Like '" & rs.Fields("productN").Value & "'"), 0)
        rs.Edit
        rs.Fields("Quantity").Value = rs.Fields("Quantity").Value - SubSeles
        rs.Update
            rs.MoveNext
        Wend
    End If
    rs.Close
    Set rs = Nothing
End Sub

و في ازرار اضافة الصنف اضف التالي

Call EditSelse([srchb])

سيتم خصم كمية البيع مباشرة من المخزون

مرفق الملف بعد التعديل

تحديث الكميات بعد الدفع.zip