#2
Private Sub Excel_Click()
Dim Klasor As String
Klasor = CurrentProject.Path & Me.adı.Value & " Bilgileri.xls"
If MsgBox(Me.adı.Value & " Bilgilerini Excele aktarmak istiyor musunuz? ", 36, "Sorgu1 Aktarılacak") = 6 Then
DoCmd.TransferSpreadsheet acExport, 8, "Sorgu1", Klasor, True, "Bilgiler"
End If
End Sub
| Bu Konudaki Yorumlar |
|
Excel'e gönderilen dosyanın adını kodla değiştirme - Yazar: mahirozcan - 28/09/2011, 15:54
Cvp: Excel'e gönderilen dosyanın adını kodla değiştirme - Yazar: Kur@l - 28/09/2011, 16:00
Cvp: Excel'e gönderilen dosyanın adını kodla değiştirme - Yazar: mahirozcan - 28/09/2011, 16:19
Cvp: Excel'e gönderilen dosyanın adını kodla değiştirme - Yazar: Kur@l - 28/09/2011, 16:26
Cvp: Excel'e gönderilen dosyanın adını kodla değiştirme - Yazar: mahirozcan - 28/09/2011, 16:44
|
