كيف يتم تكرار الرسالة في اكسس

[ابو ياسين المشولي]

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

مثلا هذة الرسالةMsgBox DLookup("[name]", "data", "komash=" & Me.[نوع القماش])

MsgBox DLookup("[name]", "data", "komash=" & Me.[نوع القماش])

 

[ABUTALAL2015]

نحتاج الى مثال .. للتعديا عليه 

[صالح حمادي]

السلام عليكم

استخدم هذا الشكل:

dim i as integer, y as integer
y ' عدد السجلات
For i=1 to y
    MsgBox DLookup("[name]", "data", "komash=" & Me.[نوع القماش])
next i

 

[ابو ياسين المشولي]

تسلم اخي صالح

ولكن هذا يعطيني نفس الرسالة

انا اريده يعطيني الرساله بالترتيب

اي كل من هو مطابق لهذا  

komash

 

[صالح حمادي]

استخدم هذا الشكل إذن:

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

و إلا فأضف مثالا للعمل عليه

[ابو ياسين المشولي]

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 بواسطه ابو ياسين المشولي

[صالح حمادي]

جرب هكذا

 

Database81.rar

[ابو ياسين المشولي]

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

جرب هكذا

 

Database81.rar

قريب جدا لطلبي 

المطلوب 

   MsgBox Me.[نوع القماش], vbExclamation, "رسالة"

يعطيتي ما هو مطابق بالترتيب

اي نوع القماش 

تم تعديل سبتمبر 8, 2018 بواسطه ابو ياسين المشولي

[صالح حمادي]

13 ساعات مضت, ابو ياسين المشولي said:

لكن هذا يعطيني نفس الرسالة

انا اريده يعطيني الرساله بالترتيب

الكود السابق

MsgBox DLookup("[name]", "data", "komash=" & Me.[نوع القماش])

أولا:

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

هذا بالنسبة لشرح الخطأ لديك.

ثانيا:

لا أدري المطلوب غير واضح المعالم

أتمنى لو تضع مثال أو صورة توضح بها الشكل الذي تريد أن تظهر به النتيجة

 

[ابو ياسين المشولي]

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

الكود السابق

MsgBox DLookup("[name]", "data", "komash=" & Me.[نوع القماش])

أولا:

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

هذا بالنسبة لشرح الخطأ لديك.

ثانيا:

لا أدري المطلوب غير واضح المعالم

أتمنى لو تضع مثال أو صورة توضح بها الشكل الذي تريد أن تظهر به النتيجة

 

هذا ما اقصده اعطاني قماش في رقم 7 يختلف الاسم

عن المطلوب

شوف الصور

تم تعديل سبتمبر 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

و أما إن كانت تريد ظهور اسم الشخص و ليس نوع القماش

فأنا تظهر عندي الأسماء بالترتيب و متوافقة تماما مع ما هو موجود بمربع النص بالنموذج

[صالح حمادي]

السلام عليكم

تفضل هذا هو طلبك إن شاء الله

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

[ابو ياسين المشولي]

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 دقيقه مضت, ابو ياسين المشولي said:

تسلم اخي استاذ صالح حمادي

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

نعم هو المطلوب بعينه الف الف شكر

الحمد لله الذي تتم بنعمته الصالحات

موفق أخي إن شاء الله

[ابو ياسين المشولي]

الحمدلله رب العالمين