صالح حمادي

السلام عليكم لقد جربت المرفق مع جهاز الباركود و هو يعمل بشكل ممتاز ربما لديك مشكل في الكمبيوتر أو جهاز الباركود

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

و عليكم السلام و رحمة الله تعالى و بركاته إطلع على هذه المشاركة للأستاذ جعفر:

في حال إضافة حقل جديد مثلا ليكن سعر الشراء نضيف السطر التالي: Me.سعر_الشراء = DLookup("[سعر_الشراء]", "[Data]", "[رقم الباركود]=" & Me.Text9)

هل جربت البرنامج مع جهاز الباركود

@النهر العطشان أظن أنه لازم تروي عطشك مليح المرفق يقوم بالحفظ بشكل جيد عندي سوف أوضح لك الأمر: جهاز الباركود يقوم بإدخال الرقم ثم يقوم بإرسال نقرة على زر entre لذلك لا أظنك جربت جهاز الباركود مع البرنامج

اجعل كود الحذف كالتالي: Dim req As String If not isnull(me.n2) or n2<> "" then req = "Delete From a_tlbia where Rjmfatwra like " & """*" & Me.n2 & "*""" DoCmd.SetWarnings False DoCmd.RunSQL req DoCmd.SetWarnings True Me.واجه_الطلبيات_مساعد.Requery End If مع العلم يحذف نتيجة البحث حتى لو كانت أكثر من سجل

السلام عليكم اجعل كود البحث كالتالي: If Me.n2 <> "" Or Not IsNull(Me.n2) Then Me.واجه_الطلبيات_مساعد.Form.Filter = "Rjmfatwra like " & """*" & Me.n2 & "*""" Me.واجه_الطلبيات_مساعد.Form.FilterOn = True Else Me.واجه_الطلبيات_مساعد.Form.FilterOn = False End If Me.واجه_الطلبيات_مساعد.Requery Me.n2.SetFocus

السلام عليكم استخدم الدالة Dmin سوف تجد شرح مفصل لهذه الدالة هنا:

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

الحمد لله الذي تتم بنعمته الصالحات موفق أخي إن شاء الله

السلام عليكم تفضل هذا هو طلبك إن شاء الله Dim rst As DAO.Recordset Dim i As Integer, RC As Integer Set rst = CurrentDb.OpenRecordset("SELECT * FROM [data] where [komash]='" & Me.نوع_القماش & "'") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC MsgBox rst!name, vbExclamation, "رسالة" rst.MoveNext Next i و هذا التعديل على المرفق Database81.rar

السلام عليكم بالنسبة لكود البحث سوف يكون كالتالي: If Me.n2 <> "" Or Not IsNull(Me.n2) Then Me.واجه_الطلبيات_مساعد.Form.Filter = "Rjmfatwra='" & Me.n2 & "'" Me.واجه_الطلبيات_مساعد.Form.FilterOn = True Else Me.واجه_الطلبيات_مساعد.Form.FilterOn = False End If Me.واجه_الطلبيات_مساعد.Requery Me.n2.SetFocus و كود حذف السجل كالتالي: Dim req As String req = "Delete From a_tlbia where Rjmfatwra='" & Me.n2 & "';" DoCmd.SetWarnings False DoCmd.RunSQL req DoCmd.SetWarnings True Me.واجه_الطلبيات_مساعد.Requery و هذا المرفق بعد التعديل: حذف الطلبيه .rar

و فيك بارك الله أخي

السلام عليكم آسف على التأخير أخي أبو زاهر لقد قمت بالتعديل على كود المرفق و جعلت إمكانية التحكم بسرعة تقدم الشريط في متغير وحيد اسمه vitesse_progress ادخل على المرفق و غير في كل مرة قيمة هذا المتغير و لاحظ النتيجة مثال (2).rar

بالنسبة للطلب الثاني فهو موجود في الكود الأول. و أما الطلب الأول يمكن تحقيقه بإضافة التعديل التالي على الكود: If DCount("*", "[list]", "[رقم الباركود]=" & Me.Text9) <> 0 Then MsgBox "هذه السلعة موجودة مسبقا" Exit Sub End If If DCount("*", "[Data]", "[رقم الباركود]=" & Me.Text9) > 0 Then DoCmd.GoToRecord , , acNewRec Me.رقم_الباركود = Me.Text9 Me.المادة = DLookup("[المادة]", "[Data]", "[رقم الباركود]=" & Me.Text9) Me.السعر = DLookup("[السعر]", "[Data]", "[رقم الباركود]=" & Me.Text9) Else MsgBox "هذه السلعة غير موجودة" End If Me.Requery Me.Text9 = Null Me.Text9.SetFocus test 5.rar

السلام عليكم استعمل هذا الكود في حدث بعد التحديث لمربع نص الباركود: If DCount("*", "[Data]", "[رقم الباركود]=" & Me.Text9) > 0 Then DoCmd.GoToRecord , , acNewRec Me.رقم_الباركود = Me.Text9 Me.المادة = DLookup("[المادة]", "[Data]", "[رقم الباركود]=" & Me.Text9) Me.السعر = DLookup("[السعر]", "[Data]", "[رقم الباركود]=" & Me.Text9) Else MsgBox "هذه السلعة غير موجودة" End If Me.Text9 = Null

أخي ابو ياسين أظنك تريد ظهور نوع القماش و ليس الاسم إذا كان كذلك فالكود سوف يصبح هكذا: Dim i As Integer, y As Integer y = DCount("*", "data", "[komash]& [komash1]& [komash2]& [komash3]& [komash4]& [komash5]& [komash6]& [komash7]like'*[nofatora]*'") DoCmd.GoToRecord , , acFirst For i = 1 To y MsgBox Me.نوع_القماش, vbExclamation, "رسالة" DoCmd.GoToRecord , , acNext Next i و أما إن كانت تريد ظهور اسم الشخص و ليس نوع القماش فأنا تظهر عندي الأسماء بالترتيب و متوافقة تماما مع ما هو موجود بمربع النص بالنموذج

و فيك بارك الله أخي العزيز

الكود السابق MsgBox DLookup("[name]", "data", "komash=" & Me.[نوع القماش]) أولا: يعطيك نفس الرسالة لأن الحقلkomash ليس حقل فريد فيه العديد من القيم المكررة و بالتالي الدالة Dlookup سوف تعطيك أول سجل مطابق و لا تنتقل للسجلات الأخرى لأن الشرط محقق بالسجل الأول هذا بالنسبة لشرح الخطأ لديك. ثانيا: لا أدري المطلوب غير واضح المعالم أتمنى لو تضع مثال أو صورة توضح بها الشكل الذي تريد أن تظهر به النتيجة

السلام عليكم لقد وضعت في الكود اسم مربع نص text40 غير موجود في النموذج الفرعي

السلام عليكم جرب المرفق اضغط على زر تفعيل الضغط عند الإغلاق و اذهب لخصائص القاعدة من قامة ملف سوف تجد خيار الضغط مفعل و كذلك العكس بالنسبة لزر تعطيل خيار الضغط عند الإغلاق الضغط عند الإغلاق.rar

جرب هكذا Database81.rar

استخدم هذا الشكل إذن: dim i as integer, y as integer y ' عدد السجلات DoCmd.GoToRecord , , acFirst For i=1 to y MsgBox DLookup("[name]", "data", "komash=" & Me.[نوع القماش]) DoCmd.GoToRecord , , acNext next i و إلا فأضف مثالا للعمل عليه

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