بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
-
Posts
1681 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
60
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه د.كاف يار
-
-
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)
-
2
-
-
23 ساعات مضت, Ahmed_J said:
السلام عليكم
استاذي العزيز @د.كاف يار
قمت بتجربة الملف على جهازي
الملف يقوم بمسح صورة واحدة فقط وليس عدة صور بعد اختيار (decument Feeder) كما في الصور
وشكرا لك
تفضل جرب هذا التعديل
-
2
-
-
-
2
-
-
تفضل استخدم هذا الكود
في آخر محرر الأكواد الصق الكود التالي
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, "الصنف")
-
1
-
1
-
-
تفضل هذا الموضوع
مشاركة قاعدة البيانات على الانترنت بواسطة SQL Server
ابدء العمل و اذا واجهة مشكلة قم باضافة موضوع جديد
-
1
-
-
-
2
-
-
-
1
-
-
-
2
-
-
العفو اخي الكريم ستجدنا دائما في خدمتك
شكرا لك
-
للأسف لغة الفيجوال بسيك الاصدار 6 لا يتوفر لدي
لكن انصحك بأن تقوم بترقية المشروع لأصدار احدث و ستجدنا في خدمتك
و لكي لا نخرج عن الموضوع قم بإدارج الكود لكي يتم التعديل عليه
-
اخي بعض السيرفرات تدعم قواعد بيانات الاكسس و البعض الآخر تجعلك اما قرار تحويل القاعدة الى SQL Server
و انصحك و بشدة تحويل القاعدة الى SQL Server و ربطها بالأكسس
فمستقبلا تحتاج ان يكون التطبيق يعمل على اكثر من نوع من التطبيقات مثلا ويب و تطبيقات الهواتف المحمولة
القرار لك و في جميع الاحوال ستجدنا في خدمتك و مساعدتك
-
1
-
-
ممتاز و فعلا كل مبرمج يحتاج لمثل هذه الافكار
استمر اخي و نسأل الله الكريم جل في علاه بأن يجعله في موازين حسناتك
-
1
-
-
-
1
-
-
و هذا ما تم فعلا
بعد اداخل تاريخ الميلاد سيتم احتساب العمر
-
-
1
-
-
طيب ارفق نسخة او مثال من برنامجك
-
تفضل هذا التعديل
فقط قم باختصيار الصف و الفصل
في حال وجود رقم شاغر سيتم تخصص الرقم الشاغر للطالب المستجد
و في حال لا يوجد رقم شاغر سيتم اضافة رقم جديد استكمالا للتسلسل
-
-
-
تفضل بهذا الترتيب يكون التحكم اسهل
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"
-
1
-
-
تفضل هذا التعديل
اضافة هذه الشفرة في اي مكان داخل محرر الأكواد
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])
سيتم خصم كمية البيع مباشرة من المخزون
مرفق الملف بعد التعديل
-
2
-
-
تمت اضافة مفتاح رئيسي للحقلين كما في الصورة
-
1
-
-
-
1
-
-
جرب هذا التعديل
-
2
-
فرز في الفورم عن طريق الكمبو بوكس
في قسم الأكسيس Access
قام بنشر
جرب هذا التعديل
انتخابات (1).zip