kodlarda cakısma

[uguristanbul]

Private baglan As Object, rs As Object
Sub baglanti()
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\sirket.mdb"
End Sub
Private Sub listeye_al()
ListBox1.Clear
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Call baglanti
rs.Open "select * from [sirket]", baglan, 1, 1
With ListBox1
.RowSource = Empty
.ColumnCount = 2
.ColumnWidths = "00;80"
.Column = rs.getrows
End With
rs.Close
Set rs = Nothing
End Sub
yukardaki kodla bir acces doyasına baglanıyorum
bu form bir baska formun uzerine acılmakta ve bu formu baslıksız yapmak icin
yukardaki kodların altına
Option Explicit
Dim p As Integer
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Sub UserForm_activate()
On Error Resume Next
Dim hWnd As Long, exLong As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
exLong = GetWindowLongA(hWnd, -16)
If exLong And &H880000 Then
SetWindowLongA hWnd, -16, exLong And &HFF77FFFF
Me.Hide: Me.Show
End If
End Sub
kodunu yazıyorum ancak hata veriyor
2 kodda tek tek calısıyor ama 2 si bi arada calısmıyor ne yapmam gerekli

 

[cihantopuz]

kodun hangi satırında hangi hatayı veriyor?

 

[uguristanbul]

cakısma

Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
dosya cok buyuk olduğu icin gonderemiyorum

 

[security]

merhaba kodlarda hata yok sadece yerlerinde hata var bir kaç düzenlemeyle sorun halledilebilir.. örnek hazırladım sorunsuz çalışıyor hem veriler alınıyor hemde başlıksız form ..

KODLARDAKİ VERİ TABANI YOLUNUZU KENDİNİZE GÖRE DÜZENLEYİN...

 

[security]

örnek dosya eklenmiştir...

 

[uguristanbul]

hocam tesekkurlerde baslangıcta userform geliyor ve excel sayfasına donmuyor

 

[uguristanbul]

aynı form uzerinde 2 farklı baglantı

hocam tesekkur ederim gonderdiğinizi uyguladım mukemmel calısıyor elinize saglık
ancak
aynı formu 2 nci dosyaya nasıl baglarız veya baglanabilirmi
bu su an degil ama ilerki donemde projede olmalı
saygılar

 

[security]

hocam tesekkur ederim gonderdiğinizi uyguladım mukemmel calısıyor elinize saglık
ancak
aynı formu 2 nci dosyaya nasıl baglarız veya baglanabilirmi
bu su an degil ama ilerki donemde projede olmalı
saygılar

cari.mdb dosyasına mı baglamak istiyorsunuz...
örnek dosyanız ekte...

 

[uguristanbul]

hayır hocam gonderdigim dosyada 2 adet veri tabanı var form üzerinde aynı anda 2 acces dosyasına baglanmak istiyorum yani form üzrinde örnk:cmd1 ile cari (baglı kalmak sartı ile) cmd 2 ile security ye

 

[security]

Dosyanız Ekte 2 Veri Tabanınada Baglanı Verilerinizi Görebilirsiniz...

 

[uguristanbul]

hocam ellerinize saglık cok tesekkur ederim

 

[security]

hocam ellerinize saglık cok tesekkur ederim

Rica ederim Kolay Gelsin İyi Çalışmalar...