Açılan kutuda noktadan sonraki uzantıya göre alta bulunan uzantı metin kutusuna word yada excel yazdırmaya çalıştım ama olmadı.
Private Sub KONU_AfterUpdate()
If Me.KONU = " " & KONU.Value & ".doc" Then UZANTI = "WORD"
If Me.KONU = " " & KONU.Value & ".xls" Then UZANTI = "EXCEL"
End Sub
Hatatı nerede yaptığımı ve doruyu gösterirseniz sevinirim.
Private Sub KONU_AfterUpdate()
If Me.KONU = " " & KONU.Value & ".doc" Then UZANTI = "WORD"
If Me.KONU = " " & KONU.Value & ".xls" Then UZANTI = "EXCEL"
End Sub
Hatatı nerede yaptığımı ve doruyu gösterirseniz sevinirim.