Kod:
Private Sub Komut305_Click()
Dim stFile As String
stFile = Application.CurrentProject.Path & "\arsiv\" & Me.id & ".jpg"
Call fHandleFile(stFile, WIN_NORMAL)
End Sub
Private Sub Komut306_Click()
Dim stFile As String
stFile = Application.CurrentProject.Path & "\arsiv\" & Me.id & "-1.jpg"
Call fHandleFile(stFile, WIN_NORMAL)
End Sub
Private Sub Komut307_Click()
Dim stFile As String
stFile = Application.CurrentProject.Path & "\arsiv\" & Me.id & "-2.jpg"
Call fHandleFile(stFile, WIN_NORMAL)
End Sub
Private Sub Komut308_Click()
Dim stFile As String
stFile = Application.CurrentProject.Path & "\arsiv\" & Me.id & "-3.jpg"
Call fHandleFile(stFile, WIN_NORMAL)
End Sub