kodlama hatası
Tarih
17/03/2011 12:59
Konu Sahibi
leydies81
Yorumlar
7
Okunma
1860
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



leydies81
Aktif Üye
Kullanici Avatari
Aktif Üye
160
12/12/2009
0
Eskişehir
Ofis 2010
17/08/2012,11:49
Çözüldü 
Sponsor Reklam
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

leydies81, 12-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

leydies81
Aktif Üye
Kullanici Avatari
Aktif Üye
160
12/12/2009
0
Eskişehir
Ofis 2010
17/08/2012,11:49
Çözüldü 
neden kiimse bana cevap vermiyor allah aşkına
leydies81, 12-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.029
05/11/2008
KONYA
Ofis 2010
Bugün,00:22
Çözüldü 
Sponsor Reklam
Sayın leydies81;
Aşağıdaki şekilde uyarladım denermisiniz. Ben Kodu Deneme Fırsatı Bulamadım.
Kolay Gelsin.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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

leydies81
Aktif Üye
Kullanici Avatari
Aktif Üye
160
12/12/2009
0
Eskişehir
Ofis 2010
17/08/2012,11:49
Çözüldü 
hiçbirşey yapmıyor kural bey sadece ciro dosyasını açıyor veri aktarımı yapmıyor
leydies81, 12-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.029
05/11/2008
KONYA
Ofis 2010
Bugün,00:22
Çözüldü 
Sponsor Reklam
Access ve Excel Dosyasını Eklermisiniz
Cevapla

leydies81
Aktif Üye
Kullanici Avatari
Aktif Üye
160
12/12/2009
0
Eskişehir
Ofis 2010
17/08/2012,11:49
Çözüldü 
örnek dosya ektedir. komut 88 yazılı butona kodu yazdım


Ek Dosyalar
.rar   program.rar (Dosya Boyutu: 1,79 MB / İndirme Sayısı: 5)
leydies81, 12-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Accessten excel bağlantısı ile veri alırken parola hatası. Mecnun24 8 228 02/01/2017, 20:11 Mecnun24
  İki Tarih Arası Rapor Hatası m_demir 14 273 24/12/2016, 23:03 m_demir
  Birleştirme sorgusunda sayı formatı hatası Mecnun24 8 239 15/12/2016, 16:39 atoz112
  "Block if without end if" hatası hakkında Mesut Kaytan 10 275 13/12/2016, 22:47 Mesut Kaytan
  OLE server or ActiveX Control hatası temre 4 178 05/12/2016, 22:44 ozanakkaya


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya