עזרה באקסס

[יוסי גרפי]

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

תודה, יוסי.

 

[אפקטיביות]

באמצעות recordset (ערכת רשומות)
מבחר דוגמאות

 

[יוסי גרפי]

מבחר דוגמאות

1. תודה.
2. למרות שיש לי רקע, זה נראה קצת מורכב, אשמח אם מישהו יוכל יותר לפשט.

 

[FullTime]

תגיד מה אתה רוצה לעשות וידריכו אותך,
אין סוף בלפשט את הדוגמאות הנ"ל

 

[יוסי גרפי]

יש לי עבודות שהם לפי שעה. לצורך כך בניתי באקסס טיימר עם הפרטים הבאים: מזהה לקוח, מזהה הזמנה, התחלה, סיום, סיכום.
כשאני לוחץ על סיום מורצת הפקודה GoToRecord, New. היות והקובץ מקושר לטבלה Timer השדות מזהה לקוח והזמנה נמחקים. בפעם הבאה שארצה ללחוץ על התחלה (ולפעמים זה מאוד מהר) שוב אצטרך להזין את הפרטים האלה.
אני רוצה שבכל לחיצה על "סיום" ישלפו הערכים שנמצאים בשורה האחרונה שבטבלה טיימר ויוזנו בשדות הרלוונטיים.
ומכאן מגיעה שאלתי וכדלעיל בהודעה #1.

תודה לכל המגיבים!

 

[FullTime]

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

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

    Dim db As DAO.Database
    Dim rs As DAO.Recordset

    Dim Kod1 As String
    Dim kod2 As Long

    Set db = CurrentDb
    Set rs = db.OpenRecordset("שם טבלה")

    rs.MoveLast

    Kod1 = rs![שם שדה1]
    kod2 = rs![שם שדה2]

    rs.AddNew
    rs![שם שדה1] = Kod1
    rs![שם שדה2] = kod2
    rs.Update

    Set db = Nothing
    Set rs = Nothing

 

[יוסי גרפי]

עובד מצוין!!! רוב תודות!

 

[FullTime]

עובד מצוין!!! רוב תודות!

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

 

[יוסי גרפי]

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

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

 

[תכל'ס]

...

 

[FullTime]

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

 

[יוסי גרפי]

1. מצוין, תודה!
2. שאלה כללית יותר: יש הבדל בין Visual Basic ל-Visual Basic for Applications? פשוט מצאתי איזה ספר ישן Visual Basic 6.0 ולפני שאני מתחיל לחרוש עליו רציתי לדעת אם זו אותה שפה או שיש הבדל ביניהם???

 

[FullTime]

זה אותה עקרון, לא אותה שפה.
אבל למה לך לחרוש, פשוט תנסה...

 

[יוסי גרפי]

[במקום לפתוח אשכול חדש לכל שאלה, אני יעלה כאן שאלות שיצוצו לי מידי פעם]

1. יש לי טופס שמקור הרשומה שלו היא טבלה. השאלה שלי אם יש אפשרות להגדיר בפילטר שם של שאילתה, במקום להזין תנאי.
2. חוצמיזה, איך בכלל כותבים תנאי, לדוגמא אם יש לי טבלה של עבודות שיש לו שדה "מצב", ואני רוצה להציג את כל הרשומות שהם לא "הושלם". אני יודע שצריך לכתוב משהו כזה "[מצב]"=NOT "הושלם", אבל תכלס שאני כותב ככה זה לא עובד, אשמח להדרכה בעניין.

תודה.

 

[FullTime]

[במקום לפתוח אשכול חדש לכל שאלה, אני יעלה כאן שאלות שיצוצו לי מידי פעם]

זה לא כזה נכון, עדיף לפתוח אשכול נוסף לכל נושא.

 

[FullTime]

יש לי טופס שמקור הרשומה שלו היא טבלה. השאלה שלי אם יש אפשרות להגדיר בפילטר שם של שאילתה, במקום להזין תנאי.

תוכל להזין שם של שאילתה במקור הטופס.
כפילטר, אפשר לציין רק תנאי.

חוצמיזה, איך בכלל כותבים תנאי, לדוגמא אם יש לי טבלה של עבודות שיש לו שדה "מצב", ואני רוצה להציג את כל הרשומות שהם לא "הושלם". אני יודע שצריך לכתוב משהו כזה "[מצב]"=NOT "הושלם", אבל תכלס שאני כותב ככה זה לא עובד, אשמח להדרכה בעניין.

=[מצב]<>"הושלם" Or Is Null
תעתיק מכאן זה ייכנס נכון.

 

[יוסי גרפי]

=[מצב]<>"הושלם" Or Is Null
תעתיק מכאן זה ייכנס נכון.

זה התגובה שאני מקבל.

 

[FullTime]

צודק. טעות שלי צריך להיות כך
[מצב]<>"הושלם" or [מצב] is null

 

[יוסי גרפי]

ניסיתי גם להקיף את [מצב] בגרשיים
"[מצב]"
אך ללא הועיל.

 

[FullTime]

אין לך שדה בשם הזה בטופס