25/12/2018, 15:37
(25/12/2018, 12:21)untouchable yazdı: [ -> ]bunu buton ile yapmak istiyorum kodu elinizde bulunuyor mu acaba
Ben kullandığım yöntemi paylaşayım.
Kod:
Dim YesNo As VbMsgBoxResult
YesNo = MsgBox("Excel Dosyası İçeri Aktarılsın mı?" & vbCr & "Dikkat! Bu işlem geri alınamaz.", vbYesNo, "İşlem Onayı")
Select Case YesNo
Case vbYes
DoCmd.RunSavedImportExport "kaydettiğiniz veri aktarma kısayolunun adı"
Case vbNo
End Select