Skip to main content

AccessTr.neT


kodlama hatası

kodlama hatası

Çözüldü #1
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
Cevapla
Çözüldü #2
neden kiimse bana cevap vermiyor allah aşkına
Cevapla
Çözüldü #3
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
Cevapla
Çözüldü #4
hiçbirşey yapmıyor kural bey sadece ciro dosyasını açıyor veri aktarımı yapmıyor
Cevapla
Çözüldü #5
Access ve Excel Dosyasını Eklermisiniz
Cevapla
Çözüldü #6
örnek dosya ektedir. komut 88 yazılı butona kodu yazdım
.rar program.rar (Dosya Boyutu: 1,79 MB | İndirme Sayısı: 5)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da