ABA


"איזה פונקציה ב-ACCESS בודקת אם היה.."
גירסת הדפסה        
קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #5095 מנהל    סגן המנהל    מפקח   Winner    צל"ש   מומחה  
אשכול מספר 5095
FALKON

   11:40   14.02.03   
אל הפורום  
  איזה פונקציה ב-ACCESS בודקת אם היה..  
 
   שינוי/הוספה/מחיקה בתיבת טקסט ו-comobox ?


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

  האשכול     מחבר     תאריך כתיבה     מספר  
  איזה פונקציה ב-ACCESS בודקת אם היה.. dyermaker  14.02.03 11:49 1
     אוקיי,קודם כל תודה על התגובה, אבל עם יש לי כפ FALKON 14.02.03 11:58 2
         לא הבנתי את השאלה בדיוק dyermaker  14.02.03 12:15 3
             טוב , אני ינסה להסביר את עצמי יותר טוב: FALKON 14.02.03 12:29 4
                 בדיוק כמו שאמרתי לך dyermaker  14.02.03 12:33 5
                     אוקיי הבנתי,אני הנסה ..רוב תודות לך... FALKON 14.02.03 12:39 6
                         תראה , רשמתי את התחביר כך: FALKON 14.02.03 12:53 7

       
dyermaker 
חבר מתאריך 4.2.03
1644 הודעות
   11:49   14.02.03   
אל הפורום  
  1. איזה פונקציה ב-ACCESS בודקת אם היה..  
בתגובה להודעה מספר 0
 
   Private Sub Text1_Change()
הפונקציה הזאת מתרחשת כאשר יש שינוי כלשהו בתוכן הטקסט

Private Sub Text1_KeyPress(KeyAscii As Integer)
הפונקציה הזאת מתרחשת מיד לאחר שמקישים על מקש כלשהו, כאן
מקבלים את הפרמטר Keyascii
שמכיל את ערך האסקיי של המקש שהוקש
וע"י בחינה של הפרמטר הזה אתה יכול לראות אם מחקו תו
או הוסיפו תו

כנ"ל לגביי הקומבו


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
FALKON

   11:58   14.02.03   
אל הפורום  
  2. אוקיי,קודם כל תודה על התגובה, אבל עם יש לי כפ  
בתגובה להודעה מספר 1
 
   כפתור שנקרא עידכון ושאני לוחץ עליו כל השדום הם Enabled = True ויש לי עוד כפתור שניקרא שמור ושאני לוחץ עליו כל השדום הם Enabled = False , עכשיו אני רוצה שאם המשתמש ילחץ על שמור והוא ביצע שינועים באחד השדות שבטופס יתעדכן בשדה תאריך את תאריך העידכון האחרון.
אז זה אותו הדבר?


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
dyermaker 
חבר מתאריך 4.2.03
1644 הודעות
   12:15   14.02.03   
אל הפורום  
  3. לא הבנתי את השאלה בדיוק  
בתגובה להודעה מספר 2
 
   עבר עריכה לאחרונה בתאריך 14.02.03 בשעה 12:16
 
אבל אני אנסה בכל זאת...
תיצור משתנה ברמת הטופס נניח
Dim MadeChanges as Boolean

בכל אירוע של Change תשנה את הערך
MadeChanges=True
ואחרי שמירה תשנה את הערך
MadeChanges=False

ועכשיו תוכל לבדוק את המשתנה הזה בשביל לראות אם המשתמש ביצע שינויים מאז השמירה האחרונה


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
FALKON

   12:29   14.02.03   
אל הפורום  
  4. טוב , אני ינסה להסביר את עצמי יותר טוב:  
בתגובה להודעה מספר 3
 
   יש לי שדה "תאריך עידכון אחרון".
בשדה זה אני רוצה שיכנס לי התאריך האחרון שביצאו בטופס שינויים, כלומר אם שינו את שדה שם פרטי/משפחה/טלפון/הערות וכו'....
עכשיו,העידכון בשדה "תאריך עידכון אחרון" יתעדכן אך ורק לאחר שאני לוחץ על כפתור "שמור נתונים".
השאלה שלי היתה איך אני יכול לבדוק אם המשתמש ביצע שינויים בשדות שהזכרתי קודם?


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
dyermaker 
חבר מתאריך 4.2.03
1644 הודעות
   12:33   14.02.03   
אל הפורום  
  5. בדיוק כמו שאמרתי לך  
בתגובה להודעה מספר 4
 
   תשתמש במשתנה MadeChanges כדי לבדוק אם בוצעו שינויים בפקדי הטקסט והקומבו מתי שמתרחש האירוע של הקליק על כפתור "שמור"


אם הערך MadeChanges=True אז תעדכן את השדה של התאריך
אם הערך MadeChanges=False אל תעדכן


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
FALKON

   12:39   14.02.03   
אל הפורום  
  6. אוקיי הבנתי,אני הנסה ..רוב תודות לך...  
בתגובה להודעה מספר 5
 
  


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
FALKON

   12:53   14.02.03   
אל הפורום  
  7. תראה , רשמתי את התחביר כך:  
בתגובה להודעה מספר 6
 
   Dim MadeChanges As Boolean

If MadeChanges = True Then
Me.UpDate_Date = Now()
End If

אני לא יודע אם התחביר נכון, אבל בכל זאת זה לא עובד לי.
תקן אותי עם אתה יכול.


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

תגובה מהירה  למכתב מספר: 
 
___________________________________________________________________

___________________________________________________________________
למנהלים:  נעל | תייק בארכיון | מחק | העבר לפורום אחר | מחק תגובות | עגן אשכול
       



© כל הזכויות שמורות ל-רוטר.נט בע"מ rotter.net