![]() |
Do Until Sorgusu Kullanımı Hakkında - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Do Until Sorgusu Kullanımı Hakkında (/konu-do-until-sorgusu-kullanimi-hakkinda.html) Sayfalar:
1
2
|
RE: Do Until Sorgusu Kullanımı Hakkında - orhantanriverdi - 30/09/2022 bir butono asagidaki kodu ekleyip, Link yolunu duzenleyip denermisin, " sFileName = "\Downloads\" & "toplunbt.xlsb"" Private Sub CMDEXCEL_Click() On Error GoTo HATA Set myFile = Application.FileDialog(msoFileDialogSaveAs) With myFile .Title = "Choose File" .AllowMultiSelect = False .ButtonName = "&Export" .InitialFileName = CurrentProject.Path & "\" & "toplunbt_" & Format(Now(), "dd.mm.yyyy_HH.mm") & ".xlsb" .Title = "Export file toplunbt" If .Show <> -1 Then MsgBox "File not saved, you have cancelled!" Exit Sub End If FileSelected = .SelectedItems(1) End With If InStr(FileSelected, ".xlsb") = 0 Then FileSelected = FileSelected & ".xlsb" Else End If sFileName = "\Downloads\" & "toplunbt.xlsb" Set xlApp = CreateObject("Excel.Application") Set xlWb = xlApp.Workbooks.Open(sFileName) Set xlWs = xlWb.Worksheets(1) Set rst = CurrentDb.OpenRecordset("SELECT Adi, Soyadi, sicil, Emekli_sicil_no, Tc_kimlik, Baba_adi, Anne_adi, Dogum_yeri_ili, Dogum_yeri_ilcesi FROM Personel_Bilgileri; ;", dbOpenDynaset) xlWs.Activate xlWs.Range("A2").CopyFromRecordset rst Set rst = Nothing sFileName = FileSelected xlWs.SaveAs sFileName HATA: Set xlWb = Nothing Set xlWs = Nothing xlApp.Quit MsgBox ("MASAUSTUNE GONDERILDI " & sFileName) End Sub RE: Do Until Sorgusu Kullanımı Hakkında - angelos - 30/09/2022 masaüstüne gönderildi diyor masaüstünde birşey yok, ayrıca benim Excel formatına uygunmu acaba bu kodlar tam emin olamadım RE: Do Until Sorgusu Kullanımı Hakkında - angelos - 30/09/2022 tamam arkadaşlar sorunu çözdüm teşekkür ederim. Araştırıken şablon kullanmak zorunda olmadığımı da anladım yeni bir Excel dökümanı oluşturup bu kodlar ile tam istediğim gibi oldu aynı sıkıntıyı yaşayan arkadaş olursa işini görmesi için ekledim tekrar teşekkür ederim Kod:
Dim i RE: Do Until Sorgusu Kullanımı Hakkında - berduş - 30/09/2022 Copyfromrecordseti araştırın döngüye gerek yok |