Prikazi cijelu temu 23.11.2017 14:14
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: message kod otvaranja access2003 aplikacije
Imas ovde eden kup greski naprimer ovde:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Command3_Click()
  2. Dim msg, Style, Title, Response, MyString
  3. On Error GoTo Err_Command29_Click
  4. msg = "Da li želite napustiti program ?"    ' Define message.
  5. Style = vbYesNo + vbInformation + vbDefaultButton2    ' Define buttons.
  6. Title = "Queensland Computer"    ' Define title.
  7. Response = MsgBox(msg, Style, Title)
  8. If Response = vbYes Then    ' User chose Yes.
  9.    MyString = "Yes"    ' Perform some action.
  10.    Call Compact_MDB
  11.      DoCmd.Quit
  12. Else    ' User chose No.
  13.    MyString = "No"    ' Perform some action.
  14.    DoCmd.CancelEvent
  15.     End If
  16. Exit_Command29_Click:
  17.     Exit Sub
  18. Err_Command29_Click:
  19.     MsgBox err.Description
  20.     Resume Exit_Command29_Click
  21.  End Sub
ili kade se
Command19 i Command21

So olku greski cudo e i kako raboti