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

Private Sub Command6_Click()

Dim x

Dim recmark

If MsgBox("האם ברצונך לחפש באמצעות מס' גביה?",vbYesNo) = vbYes Then

x = InputBox("הכנס מס' גביה")

Call SelectAllGviotKsafim

With Adodc1.Recordset

recmark = .Bookmark

.MoveFirst

.Find "ms_gvia ='" + x + "'"

If .EOF Then

MsgBox "לא נמצא"

Else

Adodc1.Recordset.Fields(8 ) = 1

Adodc1.Recordset.Update

End If

End With

End If

End Sub

ms_gvia מוגדר בטבלה של access כמספר אוטומטי.

תודה.

[attachment deleted by admin]

תשתמש ב- & שמקום ב- +.

אופיר ידעתי שאתה תענה

בכל מקרה תיקנתי את התקלה כך:

Private Sub Command6_Click()

Dim x

Dim recmark

If MsgBox("האם ברצונך לחפש באמצעות מס' גביה?", vbYesNo) = vbYes Then

x = InputBox("הקלד מס' גביה")

If x = "" Then

MsgBox "קלט חסר"

ElseIf Not IsNumeric(x) Then

MsgBox "חיפוש הגבייה המבוקשת לפי ערך מספרי בלבד"

Else

Call SelectAllGviotKsafim

With Adodc1.Recordset

recmark = .Bookmark

.MoveFirst

.Find "ms_gvia ='" + x + "'"

If .EOF Then

MsgBox "גביה לא נמצאה"

Else

Adodc1.Recordset.Fields(8 ) = 1

Adodc1.Recordset.Update

End If

End With

End If

End Sub

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

ההודעה בכל מצב BAD

Private Sub Command12_Click()

Dim xy

Dim sharedPS

sheredPS = 123

xy = InputBox("enter number")

If xy=sharedPS Then

MsgBox "OK"

Else

MsgBox "BAD"

End If

End Sub

תנסה לרשום cint(xy) בהשוואה.

לא פתר את הבעייה

תנסה להוסיף AS INTEGER אחרי הגדרת המשתנים.

גם לא פתר את הבעייה

עריכה , לא עבד בגלל שמשתנה שמתחיל בshare שזו מילה שמורה, שיניתי את שם המשתנה וזה עובד.

אעדכן כשיהיו עוד בעיות.

יצרתי תוכנית הקוראת נתונים מקובץ MDB של ACCESS , אצלי היא עובדת אבל במחשב שלא מותקנות התוכנות התוכנית לא עובדת (הפכתי אותה לEXE) ויש התראות על קבצים חסרים בsystem32 כדי שהתוכנית תעבוד.

אם אפשר , אני רוצה לרשום בקוד של VB קטע אשר מעתיק קבצים מהתיקייה של התוכנית לתיקייה של c:\windows\system32 .

תודה.

יצרתי תוכנית הקוראת נתונים מקובץ MDB של ACCESS , אצלי היא עובדת אבל במחשב שלא מותקנות התוכנות התוכנית לא עובדת (הפכתי אותה לEXE) ויש התראות על קבצים חסרים בsystem32 כדי שהתוכנית תעבוד.

אם אפשר , אני רוצה לרשום בקוד של VB קטע אשר מעתיק קבצים מהתיקייה של התוכנית לתיקייה של c:\windows\system32 .

תודה.

תשתמש בSHELL ע"מ להריץ פקודת COPY או ע"מ להריץ קובץ BATCH שיבצע פקודת COPY

איך?

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

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

המחרוזת זה מה שהכי חשוב.

shellexecute בגוגל.

רק רציתי להודיע שלא היסתדרתי עם התוצאות של GOOGLE , אז אם תוכלו לעזור לי קצת יותר אני אודה לכם מאוד.

אני רוצה רק סט פקודות שבעת לחיצה על command (לדוגמא) אז תבוצע העתקה של קבצים מתיקייה X לתיקייה Y.

תודה.

תנסה לחפש יותר טוב

http://www.google.com/search?q=visual+basic+copying+files

http://www.google.com/search?q=shellexecute+visual+basic