Jump to content



Msgbox στην VB


Dr.Paneas

Recommended Posts

Posted

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

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

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

Posted

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 απευθειας???

Posted

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

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

Posted
Αρχική απάντηση από 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

  • 2 weeks later...
Posted

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

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

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

Posted
Αρχική απάντηση από 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

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

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

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

Posted

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

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.