בעיה עם מסדות נתונים

[progger]

בעיה עם מסדות נתונים

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

 

[nscom2k]

תנסה DATAGRID

 

[progger]

כנראה לא הבהרתי את עצמי

אני רוצה לעשות תיבות סימון כמספר הרשומות בטבלה. על כל רשומה שנמצאת, צריכה להיווצר תיבת סימון מישהו יודע איך לעשות את זה?

 

[nscom2k]

דרך אחת לפיתרון

Dim A() As CheckBox Sub CreateChkBox() Dim ItemCount As Integer ItemCount = 10 ReDim A(ItemCount) End Sub​

A הוא מערך של פקדי CHKBOX ITEMCOUNT נותן את מספר הפקדים A(1).Visible מראה את הפקד 1 יש לבנות לולאה שקובעת את המיקום TOP, LEFT, שורה אחרי שורה לפי HIEGTH

 

[progger]

ניסיתי את זה, אבל

מתקבלת הודעת שגיאה Object variable or With block variable not set

 

[nscom2k]

דרך שניה

me.controls.add "VB.ChkBox", ChkBoxName me.controls(ChkBoxName).visible = true​

שנה את CHKBOXNAME בלולאה(שם שונה לכל פקד)

 

[nscom2k]

רצוי עם מערך פקדים

ניתן לקבוע את אותו שם לכל הפקדים אבל לשנות את ה-INDEX בקוד :

me.controls(ChkBoxName).index= ? me.controls(ChkBoxName).Tag=?​

כך גם ניתן לקבוע פונק EVENT גלובלית שתגיב לכל הפקדים ביחד ואז על ידי קביעת ה-TAG של הפקד להפריד בין הפקדים באמצעות SELECT

SELECT CASE me.controls(ChkBoxName).Tag case "myChkBox" ... end select​