Dr.Paneas Δημοσιεύτηκε Απρίλιος 24, 2006 #1 Κοινοποίηση Δημοσιεύτηκε Απρίλιος 24, 2006 Ενας γνωστός μου θέλει να κανει το εξης:Όταν το stock φτάσει πχ στην τιμή 5 να του 'πετάξει" ενα μυνημα που να λέει: "Χρειάζεται άμεσα παραγγελεία".σε Visual Basic. Μπορείτε να μου γράψετε λίγο κώδικα ; Link to comment Share on other sites More sharing options...
Qlim4X Απρίλιος 24, 2006 #2 Κοινοποίηση Απρίλιος 24, 2006 Dim Msg, Style, Title, Response, MyStringMsg = " " ' 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 IfEnd Subαυτο ειναι για message boxο φιλος σου το θελει για acces???η για vb απευθειας??? Link to comment Share on other sites More sharing options...
Dr.Paneas Απρίλιος 24, 2006 Author #3 Κοινοποίηση Απρίλιος 24, 2006 Για access το θελει, μπορεις να το κανεις ;Ευχαριστω εκ των προτέρω DjAlex Link to comment Share on other sites More sharing options...
Qlim4X Απρίλιος 24, 2006 #4 Κοινοποίηση Απρίλιος 24, 2006 Αρχική απάντηση από Dr.Paneas Για access το θελει, μπορεις να το κανεις ;Ευχαριστω εκ των προτέρω DjAlex θα μπορουσα αλλα δεν ξερω καθολου τι πινακες εχει για το κοιταξω...καπος ετσι θα ειναι.....Private Sub form_AfterUpdate()if pinakas.paidio.value < xDim Msg, Style, Title, Response, MyStringMsg = "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 Ifend ifEnd Sub Link to comment Share on other sites More sharing options...
Dr.Paneas Απρίλιος 24, 2006 Author #5 Κοινοποίηση Απρίλιος 24, 2006 Ok αρχηγε, cool:D Link to comment Share on other sites More sharing options...
NGF Μάϊος 2, 2006 #6 Κοινοποίηση Μάϊος 2, 2006 Αν και αργησα μπορω να γραψω κατι (δεν ξερω τι να κανω τωρα και απαντω οπου βρω)που ειναι το ιδιο ακριβως απλος για να μην πεφτει ενα ολοκληρο κομματι κωδικα χωρις λογο? 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 Το συγκεκριμενο παραδειγμα κανει και καλυτερη διαχειρηση μνημης Link to comment Share on other sites More sharing options...
Qlim4X Μάϊος 3, 2006 #7 Κοινοποίηση Μάϊος 3, 2006 Αρχική απάντηση από 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 Το συγκεκριμενο παραδειγμα κανει και καλυτερη διαχειρηση μνημης αν σου παιζει σωστα δεν υπαρχει προβλημα... αλλα δεν νομιζω να παιζει..... Link to comment Share on other sites More sharing options...
NGF Μάϊος 3, 2006 #8 Κοινοποίηση Μάϊος 3, 2006 Κανονικα θα πρεπει γιατι σε VB6 παιζει μια χαρα. Δοκιμασε το Dr..! Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.