Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
17/03/2011 12:59
Konu Sahibi
leydies81
Yorumlar
7
Okunma
2401
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

leydies81

Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
160
12/12/2009
Eskişehir
-
17/08/2012,11:49
Çözüldü 
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

leydies81

Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
160
12/12/2009
Eskişehir
-
17/08/2012,11:49
Çözüldü 
neden kiimse bana cevap vermiyor allah aşkına


Cevapla

Kur@l

AccessTR.Net
Kullanici Avatari
Uzman
2.032
05/11/2008
KONYA
Ofis 2010
Bugün,13:43
Çözüldü 
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

Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
160
12/12/2009
Eskişehir
-
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


Cevapla

Kur@l

AccessTR.Net
Kullanici Avatari
Uzman
2.032
05/11/2008
KONYA
Ofis 2010
Bugün,13:43
Çözüldü 
Access ve Excel Dosyasını Eklermisiniz


Cevapla

leydies81

Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
160
12/12/2009
Eskişehir
-
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)
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Dlookup Kodu Hatası accessdelisi 3 146 14/10/2017, 07:52 accessdelisi
Çözüldü Windows 10'da Access Kısayol İkonu Hatası serkan1985 2 127 06/10/2017, 19:42 serkan1985
Çözüldü Like Kullanımı Hakkında ALike Hatası anno 11 306 05/10/2017, 14:38 anno
Çözüldü Değer Hatası Hk. serkan1985 4 114 02/10/2017, 23:39 serkan1985
Çözüldü Formda Otomatik Sayı Hatası ştekin 2 68 27/09/2017, 13:03 ştekin

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.