עבור לתוכן

בעיות בvb עזרתכם דרושה

Featured Replies

פורסם

אם אני קולט למשתנה 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.

תודה.

ארכיון

דיון זה הועבר לארכיון ולא ניתן להוסיף בו תגובות חדשות.

דיונים חדשים