+- 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ığı: kodlama hatası (/konu-kodlama-hatasi.html)
Sayfalar:
1
2
kodlama hatası - leydies81 - 17/03/2011
eklediğim kod dizisinde ciro isimli Excel dosyasının a3,b3,c3 hücrelerine o anda Access formunda aktif olan kayıttaki bilgiler geliyor. ancak ben o form içinde bulunan 212 ksyıtın alt alta listlenmesini istiyorum a3hücresinden başlayarak. yardımcı ollursanız seviniirm
Private Sub Komut85_Click()
On Error GoTo Err_Komut85_Click
'Excel'le ilgili koddan işlem yapabilmek için öncelikle Tools-Reference menüsünden,
'Microsoft Excel 1x.0 Object Library referansını işaretlemek gerekiyor.
'---------------------------------------------------------------------------------------------------------
'Excel açılıyor ve başlıklar ayarlanıyor
'---------------------------------------------------------------------------------------------------------
Set ExcelDosyasi = CreateObject("Excel.Application")
With ExcelDosyasi
.Application.Visible = True
.UserControl = True
.Workbooks.Open FileName:=CurrentProject.Path & "\ciro.xlsx"
.Range("A3").Value = Me.MÜŞTERİ_ADI
.Range("B3").Value = Me.MADDE_NUMARASI
.Range("C3").Value = Me.MADDE_ADI
End With
Set ExcelDosyasi = Nothing
Exit_Komut85_Click:
Exit Sub
Err_Komut85_Click:
MsgBox Err.Description
Resume Exit_Komut85_Click
End Sub
Cvp: kodlama hatası - leydies81 - 17/03/2011
neden kiimse bana cevap vermiyor allah aşkına
Cvp: kodlama hatası - Kur@l - 17/03/2011
Sayın leydies81;
Aşağıdaki şekilde uyarladım denermisiniz. Ben Kodu Deneme Fırsatı Bulamadım.
Kolay Gelsin.
Private Sub Komut85_Click()
On Error GoTo Err_Komut85_Click
'Excel'le ilgili koddan işlem yapabilmek için öncelikle Tools-Reference menüsünden,
'Microsoft Excel 1x.0 Object Library referansını işaretlemek gerekiyor.
'---------------------------------------------------------------------------------------------------------
'Excel açılıyor ve başlıklar ayarlanıyor
'---------------------------------------------------------------------------------------------------------
Set ExcelDosyasi = CreateObject("Excel.Application")
dim i as integer
on error resume next
With ExcelDosyasi
.Application.Visible = True
.UserControl = True
.Workbooks.Open FileName:=CurrentProject.Path & "\ciro.xlsx"
for i= 1 to me.recordset.recorcount
.cells (i+3,1).select : selection.value= Me.MÜŞTERİ_ADI
.cells (i+3,2).select : selection.value= Me.MADDE_NUMARASI
.cells (i+3,3).select : selection.value= Me.MADDE_ADI
DoCmd.GoToRecord , , acNext
next
End With
Set ExcelDosyasi = Nothing
Exit_Komut85_Click:
Exit Sub
Err_Komut85_Click:
MsgBox Err.Description
Resume Exit_Komut85_Click
End Sub
Cvp: kodlama hatası - leydies81 - 17/03/2011
hiçbirşey yapmıyor kural bey sadece ciro dosyasını açıyor veri aktarımı yapmıyor
Cvp: kodlama hatası - Kur@l - 17/03/2011
Access ve Excel Dosyasını Eklermisiniz
Cvp: kodlama hatası - leydies81 - 17/03/2011
örnek dosya ektedir. komut 88 yazılı butona kodu yazdım