בוקר טוב, אני בעיצומו של פרוייקט של ביה"ס של בניית מערכת בויזואל בייסיק עם אקסס אך נתקלתי בבעיה קטנה.
ישנו דף במערכת של כניסת משתמשים. הדף נקרא frmEnter. בדף ישנו כפתור DATA בשם DATA1 שמקושר לקובץ ה DB. אני רוצה שכשמשתמש יכניס את המספר שלו ואת סיסמתו, הבערכת תבדוק במקביל במסד נתונים ותחפש אם הוא ישנו, ולא, תציג Msgbox של שגיאה..
הנה לינק לתמונה של הטופס http://www.yousendit.com/transfer.p...77A46FF38FF154E
בינתיים מה כתבתי הוא כזה -

קוד:

 Private Sub Cok_Click()

If Tuser.Text = "" And Tpass.Text = "" Then GoTo errhendler
If (Tuser.Text = (frmenter.Data1.RecordSource = "SELECT * FROM client WHERE clientID=tuser.Text")) Then If (Tpass = (frmenter.Data1.RecordSource = "SELECT * FROM client WHERE clientpass=tpass.Text")) Then MsgBox "Procssing...please wait", vbMsgBoxRight, "Access avialble"
Me.Hide
frmmain.Show
Exit Sub
errhendler:
MsgBox "Null input error, check again", vbMsgBoxRight, "sys error"
End Sub

Cok - זהו הכפתור OK לשליחת הנתונים
Tpass \ Tuser - התיבות טקסט להכנסה של הנתון

הבעיה היא שכל קלט שאכניס יהיה נכון, אני לא חושב שהוא בודק את הקלט עם המסד נתונים בכלל, כנראה משהו דפוק/חסר.. מה גם, שכל קלט שאכניס, הוא ישנה לי את הנתונים במסד נתונים שלי..
אני גם הסתבכתי בMsgbox שקופץ על קלט לא נכון (שלא במסד נתונים)

תודה לכל העוזרים !
שגיא קרן.

דבר ראשון תחליף את השווה לשווה שווה
שאתה עושה שווה אחד אתה מבצע פעולת השמה
שאתה כותב "==" אתה מבצע פעולה השוואה

יש לי גם שאלה... למה VB 6 ?

מקלדות לא כותבות באגים. יש אנשים שכותבים אותם.

"כאשר כולם חושבים בצורה זהה - זה סימן שאיש אינו חושב."

אויי איזו טעות..קצת אדיוטי מצידי... תודה !

תאמין לי, אם למחשבים המרופטים בביה"ס שלנו היתה מערכת של 2005 הייתי בכיף מתחיל את הפרוייקט הזה שם.. אבל לצערי אני מחוייב להשתמש ב 6 כי אז אני לא אוכל להמשיך את הפרוייקט בכיתה.

שוב תודה..
שגיא קרן.