11-07-2012, 21:22
Visual Basic
- Private Sub Komut0_Click()
- On Error GoTo Err_Komut0_Click
-
- Dim stDocName As String
- Dim stLinkCriteria As String
-
- stDocName = ChrW(71) & ChrW(304) & ChrW(82) & ChrW(304) & ChrW(350) & ChrW(32) & ChrW(70) & ChrW(32) & ChrW(84) & ChrW(69) & ChrW(83) & ChrW(84)
- DoCmd.OpenForm stDocName, , , stLinkCriteria
-
- Exit_Komut0_Click:
- Exit Sub
-
- Err_Komut0_Click:
- MsgBox Err.Description
- Resume Exit_Komut0_Click
-
- End Sub

