Accesten Excele Farklı Sayfalara Kayıt - 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ığı: Accesten Excele Farklı Sayfalara Kayıt (/konu-accesten-excele-farkli-sayfalara-kayit.html) |
Accesten Excele Farklı Sayfalara Kayıt - maras321 - 25/12/2019 Private Sub Komut8_Click() Dim xl As Excel.Application Dim xlwkbk As Excel.Workbook Dim xlsheet As Excel.Worksheet If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord End If Set xl = New Excel.Application Set xlwkbk = xl.Workbooks.Open(CurrentProject.Path & "\Ornek.xlsx") xl.Sheets("Sayfa1").Select With xlsheet xl.Range("B13") = Dlookup ("[adi]", "Tablo1", "[Kimlik]=" & Me.Id) xl.Range("B14") = Dlookup ("[soyada]", "Tablo1", "[Kimlik]=" & Me.Id) End With xl.Visible = True Set MyRecordset = Nothing Set xl = Nothing Set xlwkbk = Nothing Set xlsheet = Nothing End Sub kullanmış olduğum kod tek sayfaya kayıt yapıyor ama ben sayfa2 sayfa3 sayfa4.... vs kayıt yapmak istersem nasıl bir düzenleme yapmam lazım? Cvp: Accesten Excele Farklı Sayfalara Kayıt - KJS - 25/12/2019 Kodları alttaki kodlarla değiştiriniz; Not: Dim rs As Recordset2 '25.12.2019 satır hata verirse Recordset olarak değiştirin bir de; "Tablo1" 3 ten fazla kayıt olursa "Ornek.xlsx" dosyasında ona göre Sayfa sayısı olması lazım yoksa hata alırsınız.
Cvp: Accesten Excele Farklı Sayfalara Kayıt - maras321 - 25/12/2019 (25/12/2019, 10:06)KJS yazdı: Kodları alttaki kodlarla değiştiriniz; İlgi ve alakanız için teşekkürler ne yaptımsa çalıştıramadım. sayfa1 de adı soyadı b12,b13 e gelecek örnek fornda yok ama diğer veriler adres tc no sayfa 3de c8-c9 gelecek boyu kilosu sayfa5 de g6 j7 gelecek şeklinde yapmak istediğim formda bulamadım örnek bulabilirsem kendi örneğime uyarlayacağım . Cvp: Accesten Excele Farklı Sayfalara Kayıt - KJS - 25/12/2019
Ben A1 ve B1 Olarak değiştirdim. B12 ve B13 olarak değiştirebilirsiniz.
if komutuyla yapılabilir, Örnek dosyanızda adres, tcno , boyu, kilosu alanları yoktu... Cvp: Accesten Excele Farklı Sayfalara Kayıt - berduş - 25/12/2019 kodu yerine aşağıdakine benzer bir kod kullanmayı deneyebilirsiniz. hangi alan hangi sayfanın hangi hücresine gidecek belirleyebilirsiniz
Cvp: Accesten Excele Farklı Sayfalara Kayıt - berduş - 25/12/2019 merak ettiğim 2 şey var 1 - aktif olan kaydı aktaracaksanız Dlookup a gerek var mı değerler zaten metin kutularında var 2 - hücreler hep sabit yani başka bir kaydı aktarmak istediğinizde eski veriler silinecek demektir. kısacası amacınız tam olarak ne? |