אקסס | יצירת רשימה לפקד משולב

[OdedDvir]

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

[אביי]

@OdedDvir יש לך כזה קוד לדוגמא?

[OdedDvir]

@אביי בהנחה שיש לך טבלה בשם StreetList שמכילה את השדות הבאים:

StreetID, StreetName, CityID

ובטופס יש שתי תיבות רשימה משולבת בשמות

cboStreet, cboCity

אתה יכול לכתוב משהו כזה:

Private Sub cboCity_AfterUpdate()
    cboStreet.RowSource = _
        "SELECT [StreetID], [StreetName] " & _
        "FROM [StreetList] " & _
        "WHERE [CityID]=" & Nz(cboCity.value, "NULL") & " ORDER BY [StreetName];"
    cboStreet.Requery
End Sub

[אביי]

@OdedDvir הסתבכתי עם זה קצת, תוכל להעלות את זה כקובץ מוכן?

[OdedDvir]

@אביי הניחוש שלי שהמקור נתונים של התיבות המשולבות שלך לא מכיל עמודת שדה מפתח (ID) אלא רק עמודה של שמות של רחובות?
הקוד יעבוד רק אם העמודה המאוגדת של כל תיבה תהיה שדה המפתח (=מספר), ולא שם העיר או הרחוב (=מחרוזת)
זה טירחה בשבילי ליצור את הכל כעת, אבל אשמח לעזור לך אם תשלח לי את הקובץ שלך.

[אביי]

@OdedDvir לא עובד לי משום מה מצ"ב קובץ
database1.accdb

[dovid]

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

[OdedDvir]

@אביי יש לך כמה שגיאות:

1. השדה CityID לא מוגדר כמספר אלא כטקסט
2. הקוד מוצמד לתיבת הרשימה הלא נכונה cboStreet במקום cboCity
3. מונה עמודות צריך להיות 2 בשתי התיבות
4. רוחב עמודות צריך להיות 2;0 כדי להסתיר את עמודה השדה המזהה
5. השאילתות לא היו מוגדרות נכון...
   מצ"ב קובץ מתוקן1587412275437-database1.accdb

[אביי]

@OdedDvir וואי וואי, כמה שגיאות תודה על כל העזרה!!
(פשוט החלטתי לכבוד הקורונה לקדם את כל הדברים והפרויקטים שנתקעתי בהם, ויש ביניהם הרבה אקססים)

[OdedDvir]

@dovid אמר באקסס | יצירת רשימה לפקד משולב:

תצלם צילומי מסך, תצרף שגיאות וכל מה שצריך כדי שיהיה קל לעזור לך (וממילא שלא יהיה מצב שנדמה ש@OdedDvir עובד אצלך).

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

[אביי]

@dovid אמר באקסס | יצירת רשימה לפקד משולב:

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

אתה צודק ב 100% אבל מה לעשות, שהאינפורמיישן היחיד שהיה לי, זה שעשיתי כפי הבנתי, ובכ"א זה לא עובד, אתה צודק שהייתי צריך לפרט שאחרי שהגדרתי את הכל, הפעלתי את הפקד המשולב, והוא המשיך לתת לי את רשימת השמות של הרחובות ללא חלוקה לערים, תודה על ההארה, אשתדל ליישמה!

[אביי]

@אביי אמר באקסס | יצירת רשימה לפקד משולב:

אגב @ניהול למה א"א להוסיף תגיות?

אגב @dovid יש לך מושג לגבי זה? זה דווקא מאוד יעיל ונח..

[dovid]

https://tchumim.com/topic/34/בבקשה-תגיות

[אביי]

@OdedDvir @dovid וכל החברים הנפלאים!

יש לי מסד נוסף שבנוי כך:
Table1 ועליה ישנו Form1 שהוא בעצם טופס מפוצל המציג את הנתונים שב Table1, אבל את העריכה של הרשומות אני עושה בForm2 , הגדרתי בForm2 את ההגדרות לעיל, ועובד מצויין ב"ה, אבל בForm1 הנתונים מוצגים כך:
ה id של העיר והרחוב, ניסיתי לעשות את אותם פעולות שב Form2 אבל זה רק תקע את המערכת, מה עושים ע"מ להציג את הנתונים כבני ברק ולא 2?

[ליבל]

@אביי פשוט מאוד תבנה במקור שורה שאילתא טור א' ID טור ב' ערים
וברוחב עמודות תגדיר 0ס"מ;3ס"מ התחביר פשוט 0ס"מ לטור א' 3ס"מ לטור ב'
שים לב: טור א' מחזיר למקור הפקד