Code:
Option Compare Database
Private Sub Příkaz1_Click()
On Error GoTo Err_Příkaz1_Click
DoCmd.Quit
Exit_Příkaz1_Click:
Exit Sub
Err_Příkaz1_Click:
MsgBox Err.Description
Resume Exit_Příkaz1_Click
End Sub
Private Sub Příkaz2_Click()
On Error GoTo Err_Příkaz2_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm_Vyber odberatela na objednavku"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Příkaz2_Click:
Exit Sub
Err_Příkaz2_Click:
MsgBox Err.Description
Resume Exit_Příkaz2_Click
End Sub
Private Sub Príkaz5_Click()
On Error GoTo Err_Príkaz5_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Datum pre denny suhrn objednavok"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Príkaz5_Click:
Exit Sub
Err_Príkaz5_Click:
MsgBox Err.Description
Resume Exit_Príkaz5_Click
End Sub
Private Sub Príkaz6_Click()
On Error GoTo Err_Príkaz6_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm_Vyber odberatela na kartu zakaznika"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Príkaz6_Click:
Exit Sub
Err_Príkaz6_Click:
MsgBox Err.Description
Resume Exit_Príkaz6_Click
End Sub
Private Sub Príkaz7_Click()
On Error GoTo Err_Príkaz7_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Datum pre dodaci list"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Príkaz7_Click:
Exit Sub
Err_Príkaz7_Click:
MsgBox Err.Description
Resume Exit_Príkaz7_Click
End Sub
Private Sub Príkaz8_Click()
On Error GoTo Err_Príkaz8_Click
Dim stDocName As String
stDocName = ChrW(84) & ChrW(108) & ChrW(97) & ChrW(269) & ChrW(32) & ChrW(101) & ChrW(116) & ChrW(105) & ChrW(107) & ChrW(105) & ChrW(101) & ChrW(116)
DoCmd.OpenReport stDocName, acNormal
Exit_Príkaz8_Click:
Exit Sub
Err_Príkaz8_Click:
MsgBox Err.Description
Resume Exit_Príkaz8_Click
End Sub
Private Sub Príkaz9_Click()
On Error GoTo Err_Príkaz9_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(68) & ChrW(97) & ChrW(116) & ChrW(117) & ChrW(109) & ChrW(32) & ChrW(112) & ChrW(114) & ChrW(101) & ChrW(32) & ChrW(116) & ChrW(108) & ChrW(97) & ChrW(269) & ChrW(32) & ChrW(101) & ChrW(116) & ChrW(105) & ChrW(107) & ChrW(105) & ChrW(101) & ChrW(116)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Príkaz9_Click:
Exit Sub
Err_Príkaz9_Click:
MsgBox Err.Description
Resume Exit_Príkaz9_Click
End Sub
Private Sub Príkaz10_Click()
On Error GoTo Err_Príkaz10_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Datum OD_DO"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Príkaz10_Click:
Exit Sub
Err_Príkaz10_Click:
MsgBox Err.Description
Resume Exit_Príkaz10_Click
End Sub
Private Sub Príkaz11_Click()
On Error GoTo Err_Príkaz11_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(102) & ChrW(114) & ChrW(109) & ChrW(95) & ChrW(72) & ChrW(108) & ChrW(97) & ChrW(118) & ChrW(110) & ChrW(225) & ChrW(32) & ChrW(100) & ChrW(97) & ChrW(116) & ChrW(97) & ChrW(98) & ChrW(225) & ChrW(122) & ChrW(97) & ChrW(32) & ChrW(118) & ChrW(353) & ChrW(101) & ChrW(116) & ChrW(107) & ChrW(253) & ChrW(99) & ChrW(104) & ChrW(32) & ChrW(111) & ChrW(98) & ChrW(106) & ChrW(101) & ChrW(100) & ChrW(110) & ChrW(225) & ChrW(118) & ChrW(111) & ChrW(107)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Príkaz11_Click:
Exit Sub
Err_Príkaz11_Click:
MsgBox Err.Description
Resume Exit_Príkaz11_Click
End Sub
Private Sub Príkaz12_Click()
On Error GoTo Err_Príkaz12_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm_Editacia objednavok"
DoCmd.OpenForm stDocName, acFormDS, , stLinkCriteria
Exit_Príkaz12_Click:
Exit Sub
Err_Príkaz12_Click:
MsgBox Err.Description
Resume Exit_Príkaz12_Click
End Sub
is this it? im sorry i dont really know...
and the messages - after i double click the append query in the navigation pane i get a first message (2nd picture in my previous post) and then the other message (1st picture)