שאלה לגבי msgbox

[cohea15]

שאלה לגבי msgbox

Private Sub Form_Unload(Cancel As Integer) MsgBox "äàí àúä áèåç ùáøöåðê ìäúðú÷ ", vbOKCancel, "éöéàä îäîùç÷" If vbOK Then sConnection = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=userdata.mdb; DeשאנfaultDir=t:/" & ";" Conn.Open sConnection Conn.Execute "update user Set ip = ( '" & Text2.Text & "') Where User = ( '" & Text1.Text & "') " Conn.Close Form2.Winsock1.Close End End If If vbCancel Then Exit Sub End If End Sub​

הבעיה בקוד הוא פה If vbCancel Then Exit Sub כשאני לוחץ על מקש הביטול התוכנית לא מתייחסת לקוד שכתוב בתוך ה vbCancel אלא מבצעת את הקוד שכתוב בתוך ה vbOK מה יכולה להיות הבעיה תודה על העזרה

 

[MaD-d0g]

אתה צריך לקבל את הערך של ה msgbox

לתוך משתנה, ואז את המשתנה לבדוק

 

[cohea15]

אחי ניסיתי משהו כזה ולא עובד לי

Private Sub Form_Unload(Cancel As Integer) Dim d As Integer MsgBox "äàí àúä áèåç ùáøöåðê ìäúðú÷ ", vbYesNo, "éöéàä îäîùç÷" If vbYes Then sConnection = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=userdata.mdb; DefaultDir=t:/" & ";" Conn.Open sConnection Conn.Execute "update user Set ip = ( '" & Text2.Text & "') Where User = ( '" & Text1.Text & "') " Conn.Close Form2.Winsock1.Close End Else If vbNo Then d = 1 If d = 1 Then Exitד Sub End If End If End If גם עם ELSE לא עובד כלומר if vbOK then ... else .... בעיה מוזרה כי שני הפתרונות אמורים לעבוד ןלא עובד והפתרונות נכונים למעשה יש לך אולי עוד פתרון

 

[MaD-d0g]

תקרא שוב את מה שכתבתי לך...

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