רוטר - צביעת רשומות באקסס

יומן פעילות	לוח שנה	מבזקי חדשות	תקנון	RSS	כותרות	כותרות לפי תגובה	ניקוי קוקיז	IP	להורדת אפליקציה
eBay	AliExpress	GearBest	Amazon	Booking	Kiwi	SkyScanner	Trip Advisor

"צביעת רשומות באקסס - אפשרי?"

גירסת הדפסה

קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #11948	מנהל סגן המנהל מפקח Winner צל"ש מומחה

אשכול מספר 11948

E-do
חבר מתאריך 29.10.03
2160 הודעות

20:46 20.03.05

צביעת רשומות באקסס - אפשרי?

ערכתי לאחרונה בתאריך 20.03.05 בשעה 20:47 בברכה, E-do

אני מדפיס טופס שמבוסס על שאילתה ואני מנסה לצבוע כל רשומה בצבע אחר כאשר הצבע נבחר לפי 1 השדות ברשומה, השתמשתי בקוד כזה בOnOpen של הדו"ח

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset, dbReadOnly)
Dim P_color As String
Dim Control As TextBox
Set Control = F_Name
While Not rs.EOF

Select Case rs.Fields("PrintColor")
Case "אדום"
Control.ForeColor = vbRed
Case "ירוק"
Control.ForeColor = vbGreen
Case "כחול"
Control.ForeColor = vbBlue
Case "שחור"
Control.ForeColor = vbBlack
Case Else
Control.ForeColor = vbBlack
End Select

rs.MoveNext
Wend

כמובן שמוגדר גם משתנה strSQL שבוחר את מקור הרשומות והוא קורא את הצבעים בלי בעיה, הבעיה היא שבכל פעם שאני מבצע פעולת צביעה הוא צובע לי את כל הרשומות במקום לצבוע רשומה בודדת.
מישהו יודע כיצד ניתן לבודד את הרשומות וכך לגרום שכל אחת תהיה בצבע שונה?

תודה רבה.

-----------------
בברכה,
e-do

שתף

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

האשכול	מחבר	תאריך כתיבה	מספר
אתה מתכוון שיצא לך דבר כזה?	ShocKi	20.03.05 21:06	1
נראה לי שכן	E-do	20.03.05 21:10	2
איפה ה rs.MoveFirst?	MO	20.03.05 22:28	3
בעת פתיחת recordset	E-do	22.03.05 06:14	4