Predmet:Re: message kod otvaranja access2003 aplikacije
Imas ovde eden kup greski naprimer ovde:
PreuzmiIzvorni kôd (Visual Basic):Private Sub Command3_Click()
Dim msg, Style, Title, Response, MyString
On Error GoTo Err_Command29_Click
msg = "Da li želite napustiti program ?" ' Define message.
Style = vbYesNo + vbInformation + vbDefaultButton2 ' Define buttons.
Title = "Queensland Computer" ' Define title.
Response = MsgBox(msg, Style, Title)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes" ' Perform some action.
Call Compact_MDB
DoCmd.Quit
Else ' User chose No.
MyString = "No" ' Perform some action.
DoCmd.CancelEvent
End If
Exit_Command29_Click:
Exit Sub
Err_Command29_Click:
MsgBox err.Description
Resume Exit_Command29_Click
End Sub
ili kade se
Command19 i Command21
So olku greski cudo e i kako raboti