ابو ياسين المشولي قام بنشر سبتمبر 7, 2018 قام بنشر سبتمبر 7, 2018 اخواني الاعزاد كيف اجعل الرسالة تتكرر من بدايه السجل حتى النهايه مثلا هذة الرسالةMsgBox DLookup("[name]", "data", "komash=" & Me.[نوع القماش]) MsgBox DLookup("[name]", "data", "komash=" & Me.[نوع القماش])
صالح حمادي قام بنشر سبتمبر 7, 2018 قام بنشر سبتمبر 7, 2018 السلام عليكم استخدم هذا الشكل: dim i as integer, y as integer y ' عدد السجلات For i=1 to y MsgBox DLookup("[name]", "data", "komash=" & Me.[نوع القماش]) next i 2
ابو ياسين المشولي قام بنشر سبتمبر 7, 2018 الكاتب قام بنشر سبتمبر 7, 2018 تسلم اخي صالح ولكن هذا يعطيني نفس الرسالة انا اريده يعطيني الرساله بالترتيب اي كل من هو مطابق لهذا komash 1
صالح حمادي قام بنشر سبتمبر 7, 2018 قام بنشر سبتمبر 7, 2018 استخدم هذا الشكل إذن: 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 و إلا فأضف مثالا للعمل عليه 1
ابو ياسين المشولي قام بنشر سبتمبر 7, 2018 الكاتب قام بنشر سبتمبر 7, 2018 (معدل) 54 دقائق مضت, صالح حمادي said: استخدم هذا الشكل إذن: 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 و إلا فأضف مثالا للعمل عليه هذا مثال استاذ صالح حمادي Database81.accdb تم تعديل سبتمبر 7, 2018 بواسطه ابو ياسين المشولي
ابو ياسين المشولي قام بنشر سبتمبر 8, 2018 الكاتب قام بنشر سبتمبر 8, 2018 (معدل) 3 ساعات مضت, صالح حمادي said: جرب هكذا Database81.rar قريب جدا لطلبي المطلوب MsgBox Me.[نوع القماش], vbExclamation, "رسالة" يعطيتي ما هو مطابق بالترتيب اي نوع القماش تم تعديل سبتمبر 8, 2018 بواسطه ابو ياسين المشولي
صالح حمادي قام بنشر سبتمبر 8, 2018 قام بنشر سبتمبر 8, 2018 13 ساعات مضت, ابو ياسين المشولي said: لكن هذا يعطيني نفس الرسالة انا اريده يعطيني الرساله بالترتيب الكود السابق MsgBox DLookup("[name]", "data", "komash=" & Me.[نوع القماش]) أولا: يعطيك نفس الرسالة لأن الحقلkomash ليس حقل فريد فيه العديد من القيم المكررة و بالتالي الدالة Dlookup سوف تعطيك أول سجل مطابق و لا تنتقل للسجلات الأخرى لأن الشرط محقق بالسجل الأول هذا بالنسبة لشرح الخطأ لديك. ثانيا: لا أدري المطلوب غير واضح المعالم أتمنى لو تضع مثال أو صورة توضح بها الشكل الذي تريد أن تظهر به النتيجة 1
ابو ياسين المشولي قام بنشر سبتمبر 8, 2018 الكاتب قام بنشر سبتمبر 8, 2018 (معدل) 3 ساعات مضت, صالح حمادي said: الكود السابق MsgBox DLookup("[name]", "data", "komash=" & Me.[نوع القماش]) أولا: يعطيك نفس الرسالة لأن الحقلkomash ليس حقل فريد فيه العديد من القيم المكررة و بالتالي الدالة Dlookup سوف تعطيك أول سجل مطابق و لا تنتقل للسجلات الأخرى لأن الشرط محقق بالسجل الأول هذا بالنسبة لشرح الخطأ لديك. ثانيا: لا أدري المطلوب غير واضح المعالم أتمنى لو تضع مثال أو صورة توضح بها الشكل الذي تريد أن تظهر به النتيجة هذا ما اقصده اعطاني قماش في رقم 7 يختلف الاسم عن المطلوب شوف الصور تم تعديل سبتمبر 8, 2018 بواسطه ابو ياسين المشولي
صالح حمادي قام بنشر سبتمبر 8, 2018 قام بنشر سبتمبر 8, 2018 3 ساعات مضت, ابو ياسين المشولي said: هذا ما اقصده اعطاني قماش في رقم 7 يختلف الاسم عن المطلوب أخي ابو ياسين أظنك تريد ظهور نوع القماش و ليس الاسم إذا كان كذلك فالكود سوف يصبح هكذا: 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 و أما إن كانت تريد ظهور اسم الشخص و ليس نوع القماش فأنا تظهر عندي الأسماء بالترتيب و متوافقة تماما مع ما هو موجود بمربع النص بالنموذج 2
صالح حمادي قام بنشر سبتمبر 8, 2018 قام بنشر سبتمبر 8, 2018 السلام عليكم تفضل هذا هو طلبك إن شاء الله 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 1
ابو ياسين المشولي قام بنشر سبتمبر 8, 2018 الكاتب قام بنشر سبتمبر 8, 2018 2 دقائق مضت, صالح حمادي said: السلام عليكم تفضل هذا هو طلبك إن شاء الله 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 تسلم اخي استاذ صالح حمادي بارك الله فيك وجعله في ميزان حسناتك نعم هو المطلوب بعينه الف الف شكر 1
صالح حمادي قام بنشر سبتمبر 8, 2018 قام بنشر سبتمبر 8, 2018 1 دقيقه مضت, ابو ياسين المشولي said: تسلم اخي استاذ صالح حمادي بارك الله فيك وجعله في ميزان حسناتك نعم هو المطلوب بعينه الف الف شكر الحمد لله الذي تتم بنعمته الصالحات موفق أخي إن شاء الله 2
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.