DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
))Sayın mehmetdemiral,
Sorunları teker teker ele alıp çözümlemek gerekiyor. Yapmak istediklerinizin tümü mümkün. Teker teker ele alıp çözmeye başlayalım.
İyi çalışmalar
Sub Arsivleme()
[COLOR=DarkGreen] '// mdb çıktısı..[/COLOR]
Call insert_into("c:\testVT.mdb", "test_tablo")
End Sub
Private Sub insert_into(destdir As String, tblname As String)
Dim cn As ADODB.Connection, db As DAO.Database
[COLOR=DarkGreen] '// Yeni veritabanı... [/COLOR]
Set db = CreateDatabase(destdir, dbLangTurkish)
db.Close
Set cn = CurrentProject.Connection
[COLOR=DarkGreen]'// sorgula ve yeni veritabanına yaz..[/COLOR]
cn.Execute _
"select * into [" & tblname & "] in '" & destdir & "' from [tblAlınanVeriler]"
Set db = Nothing
Set cn = Nothing
End Sub
On Error Resume Next
If Dir(destdir) <> "" Then Kill destdir
If Err Then _
MsgBox Err.Number & Chr(13) & Err.Description & _
Chr(13) & "dosya kullanımda olabilir!", vbCritical: Exit Sub
Private Sub Komut21_Click()
[COLOR=Blue] Dim dlg As New CommonDialog[/COLOR]
[COLOR=DarkGreen]'// Filter syntax: İsim |filtre|[/COLOR]
strFilter = "Access dosyası (*.mdb)|*.mdb|"
strFilter = strFilter & "Excel dosyaları (*.xls)|*.xls|"
strFilter = strFilter & _
"Resim dosyaları (*.bmp,*.jpg,*.gif)|*.bmp;*.jpg;*.gif|"
strFilter = strFilter & "Tüm dosyalar (*.*)|*.*|"
With dlg
.DialogTitle = "Dosya seçiniz..." [COLOR=DarkGreen]'// Başlık[/COLOR]
.InitDir = "C:\" [COLOR=DarkGreen]'// Varsayılan konum[/COLOR]
.Flags = 4 [COLOR=DarkGreen]'// Saltokunur seçeneği disable olur[/COLOR]
.Filter = strFilter
.FilterIndex = 4 [COLOR=DarkGreen]'// Yukarıdaki filtrelerin varsayılanı.(Tüm dosyalar)[/COLOR]
.ShowOpen
If .Flags = 4 Then Exit Sub [COLOR=DarkGreen]'// İptal tuşuyla sonlandır[/COLOR]
End With
MsgBox "Açılması istenen dosya adı : '" & dlg.FileName & "'"
End Sub
Private Sub Komut[COLOR=Red][B]XX[/B][/COLOR]_Click()
[COLOR=Blue]Dim dlg As New CommonDialog[/COLOR]
[COLOR=DarkGreen] '// Kaydet diyaloğu..
'// Filter syntax: İsim |filtre|[/COLOR]
strFilter = "Access dosyası (*.mdb)|*.mdb|"
strFilter = strFilter & "Excel dosyaları (*.xls)|*.xls|"
strFilter = strFilter & _
"Resim dosyaları (*.bmp,*.jpg,*.gif)|*.bmp;*.jpg;*.gif|"
With dlg
.DialogTitle = "Dosya seçiniz..." [COLOR=DarkGreen]'// Başlık[/COLOR]
.InitDir = "C:\" [COLOR=DarkGreen]'// Varsayılan konum[/COLOR]
.Filter = strFilter
.FileName = Empty [COLOR=DarkGreen]'// Değişkenin içini boşalt..[/COLOR]
.FilterIndex = 0 [COLOR=DarkGreen]'// Yukarıdaki filtrelerin varsayılanı.(mdb dosyaları)[/COLOR]
.ShowSave
If .Flags = 0 Then Exit Sub [COLOR=DarkGreen]'// İptal tuşuyla sonlandır[/COLOR]
End With
MsgBox "Kaydedilecek hedef: '" & dlg.FileName & "'"
End Sub
Option Explicit
Dim dlg As New CommonDialog
[B][COLOR="Red"]Dim strfilter As String[/COLOR][/B]
'// Filter syntax: İsim |filtre|
strfilter = "Access dosyası (*.mdb)|*.mdb|"
....................
.........................