Private Sub Komut65_Click()
Dim Celoy
Celoy = CurrentProject.Path & Me.xxxxx & ".pdf"
' burda pdf adını( xxxxx diye yazdım)kendine göre yazmalısın ve pdf dosyası ile accesin aynı yerde olmalı
Call Shell("Celoy "
Me.tarama.SetFocus
DoCmd.RunCommand acCmdEditHyperlink
Exit Sub
ErrEditHyper:
Select Case Err
Case 2046
Resume Next
Case 2501
Resume Next
Case Else
Resume Next
End Select
End Sub
gibi denermisin ...
#2
