Option Compare Database
 
Private Sub Form_Load()
     If pdf.Value <> " " Then
        ACRO.src = pdf.Value
        ACRO.Visible = True
        ACRO.Requery
    Else
        Me.ACRO.Visible = False
    End If
ACRO.Height = 6060
ACRO.Width = 5370
End Sub
 
Sub getFileName()
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "PDF Dökümanı Seç"
.Filters.Add "All Files", "*.*"
.Filters.Add "pdf", "*.pdf"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = CurrentProject.Path
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
 
 
Me![pdf].Value = fileName
Me![SAYI].SetFocus
 
End If
End With
End Sub
Private Sub Form_Current()
yukle
End Sub
 Sub yukle()
 If pdf.Value <> " " Then
 
If Right(pdf, 3) = "pdf" Then
pdf1
Resim.Visible = False
Else
Resim.Visible = True
Resim.Picture = pdf
ACRO.Visible = False
End If
End If
 End Sub
 
Sub pdf1()
    If pdf.Value <> " " Then
        ACRO.src = pdf.Value
        ACRO.Visible = True
        ACRO.Requery
    Else
        Me.ACRO.Visible = False
    End If
ACRO.Height = 6060
ACRO.Width = 5370
ACRO.Requery
End Sub
 
Private Sub pdfekle_Click()
getFileName
End Sub