Excelden veri transferi

[iggydarsa]

Selam arkadaslar,

Asagidaki sorum access ve macro bilenlenler icin cok kolay olmali, kodda yardimci olursaniz yada gerekli linki gosterirseniz memnun olurum.

Diyelimki, MyExcel dosyasinda A1 hucresinde bir musteri ismi var ve hemen yanindada bi tane button var. ben bu butona basarak A1'deki musteri ismini MyAccess doysasinda Musteri adli Table'in icindeki Isim Field'ina aktarmak istiyorum (eger Isim Field'inda 4 tane record varsa ben exceldeki ismin 5inci record'a aktarilmasini istiyorum). Bunun icin excel'deki butona ne tur bir macro yazmaliyim?

Umarim yeterince aciklayici olabilmisimdir

Tesekurler.

 

[Haluk]

Merhaba;

Ornek olarak, veri tabani dosyaniz C:\MyAccess.mdb olarak yerlestirilmis ise, asagidaki kodlari, bahsettiginiz XL dosyaniza yerlestirin ve XL_2_ACCS isimli proseduru bahsettiginiz buton'a iliskilendirin.

Not: Veri tabani dosya yolunun, tablo adinin ve alan adinin dogrulugunu kontrol edin.

[vb:1:45c229628b]Sub XL_2_ACCS()
Dim adoCN As Object
Dim RS As Object
Dim strSQL As String
Dim DatabasePath As String
On Error GoTo ErrHand:
Set adoCN = CreateObject("ADODB.Connection")
DatabasePath = "C:\MyAccess.mdb"
If Dir(DatabasePath) = "" Then
MsgBox DatabasePath & " bulunamadi, programdan cikilacak !", vbCritical
Exit Sub
End If
adoCN.Provider = "Microsoft.Jet.OLEDB.4.0"
adoCN.ConnectionString = DatabasePath
adoCN.Open
Set RS = CreateObject("ADODB.recordset")
strSQL = "SELECT * FROM [Musteri] Where isim='" & Range("A1") & "'"
RS.Open strSQL, adoCN, 1, 3
If RS.RecordCount = 0 Then
RS.AddNew
RS("isim") = Range("A1")
RS.Update
Else
MsgBox Range("A1") & " adli kisiyi daha önce girmistiniz."
End If
RS.Close
adoCN.Close
Set RS = Nothing
Set adoCN = Nothing
Exit Sub
ErrHand:
MsgBox "Bir hata olustu..... !!!" & vbCrLf & Err.Description, vbCritical
RS.Close
adoCN.Close
Set RS = Nothing
Set adoCN = Nothing
End Sub
[/vb:1:45c229628b]

 

[iggydarsa]

Eline saglik Haluk

Tesekurler...

 

[recep]

bir sayfa için nasıl yapabiliriz
a sutunu taplaqodaki isim
b sutunuı soyada
c sutunu no ya gibi