Msgbox στην VB

[Dr.Paneas]

Ενας γνωστός μου θέλει να κανει το εξης:

Όταν το stock φτάσει πχ στην τιμή 5 να του 'πετάξει" ενα μυνημα που να λέει: "Χρειάζεται άμεσα παραγγελεία".

σε Visual Basic. Μπορείτε να μου γράψετε λίγο κώδικα ;

[Qlim4X]

Dim Msg, Style, Title, Response, MyString

Msg = " " ' Define message.

Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.

Title = " " ' Define title.

Response = MsgBox(Msg, Style, Title)

If Response = vbYes Then ' User chose Yes.

' Perform some action.

Else ' User chose No.

' Perform some action.

End If

End Sub

αυτο ειναι για message box

ο φιλος σου το θελει για acces???η για vb απευθειας???

[Dr.Paneas]

Για access το θελει, μπορεις να το κανεις ;

Ευχαριστω εκ των προτέρω DjAlex

[Qlim4X]

Αρχική απάντηση από Dr.Paneas

Για access το θελει, μπορεις να το κανεις ;

Ευχαριστω εκ των προτέρω DjAlex

θα μπορουσα αλλα δεν ξερω καθολου τι πινακες εχει για το κοιταξω...

καπος ετσι θα ειναι.....

Private Sub form_AfterUpdate()

if pinakas.paidio.value < x

Dim Msg, Style, Title, Response, MyString

Msg = "to stock einai sto orio" ' Define message.

Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.

Title = "elaxisto stock" ' Define title.

Response = MsgBox(Msg, Style, Title)

If Response = vbYes Then ' User chose Yes.

' Perform some action.

Else ' User chose No.

' Perform some action.

End If

end if

End Sub

[Dr.Paneas]

Ok αρχηγε, cool:D

[NGF]

Αν και αργησα μπορω να γραψω κατι (δεν ξερω τι να κανω τωρα και απαντω οπου βρω)που ειναι το ιδιο ακριβως απλος για να μην πεφτει ενα ολοκληρο κομματι κωδικα χωρις λογο?

D.J.AleXXX_gr θα δανειστω λιγο κωδικα αν δεν σε πειραζει !

Private Sub form_AfterUpdate()

if pinakas.paidio.value < x

if msgbox ("to stock einai sto orio",vbYesNo + vbCritical + vbDefaultButton2,"elaxisto stock") = vbyes then

' Perform some action.

Else ' User chose No.

' Perform some action.

End If

end if

End Sub

Το συγκεκριμενο παραδειγμα κανει και καλυτερη διαχειρηση μνημης

[Qlim4X]

Αρχική απάντηση από NGF

Αν και αργησα μπορω να γραψω κατι (δεν ξερω τι να κανω τωρα και απαντω οπου βρω)που ειναι το ιδιο ακριβως απλος για να μην πεφτει ενα ολοκληρο κομματι κωδικα χωρις λογο?

D.J.AleXXX_gr θα δανειστω λιγο κωδικα αν δεν σε πειραζει !

Private Sub form_AfterUpdate()

if pinakas.paidio.value < x

if msgbox ("to stock einai sto orio",vbYesNo + vbCritical + vbDefaultButton2,"elaxisto stock") = vbyes then

' Perform some action.

Else ' User chose No.

' Perform some action.

End If

end if

End Sub

Το συγκεκριμενο παραδειγμα κανει και καλυτερη διαχειρηση μνημης

αν σου παιζει σωστα δεν υπαρχει προβλημα...

αλλα δεν νομιζω να παιζει.....

[NGF]

Κανονικα θα πρεπει γιατι σε VB6 παιζει μια χαρα. Δοκιμασε το Dr..!