[VBA] Formun Recordsetini eşitlemede hata nerede?

Mehmet Eser · 20-05-2012, 21:38

DAO ile harici AVT'ye bağlandım ve recordseti oluşturduktan sonra formunkini eşitleme çalışıyorum hata veriyor? Sorun ne oalbilir?

Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = DBEngine.OpenDatabase(DosyaAdi, dbOpenDynaset)
Set rst = db.OpenRecordset("UsysRibbons")

Me.Recordset = rst hata bıurda geliyor.

formu open aoalyına koyuyorum.

Zeki Gürsoy · 20-05-2012, 23:44

Formun recordset özelliğine bir recordset "set" edilmeli.

Visual Basic
set me.recordset = rst

Eğer hata devam ediyorsa DAO openrecordset metodu varsayılan cursor olarak "forwardonly" olabilir. OpenRcordset metodunun diğer opsiyonlarında bu cursoru keyset veya dynamic olarak açın.

Mehmet Eser · 21-05-2012, 01:42

Zeki Bey bu zıkkımı(DAO) set ile de denedim ve opendatabase metoduna da gerekli optionsu eklemiştim. Öğrendiğim yerlerde varsayılan olarak Recordset'in Dynaset oalrak açacağı yazıyordu ve genelde de hata çıkmıyordu. Sanırım 2010'da durum değişmiş.

Opendatabase parametresini kaldırdım, RS'ye koydum oldu.

İyi ki varsınız, tecrübeleriniz büyük zaman kazandırıyor.

Teşekkürler.

Visual Basic
Dim db As DAO.Database
Dim rs As DAO.Recordset
 
Set db = DBEngine.OpenDatabase(DosyaAdi)
Set rs = db.OpenRecordset("UsysRibbons", dbOpenDynaset)
Set Me.Recordset = rs

Mehmet Eser · 21-05-2012, 01:57

aşağıdaki kodu çalıştıyorum fakat filedialog iptal olunca başka bir pencere çıkıyor ilk defa rastlıyorum böyle bir duruma:

Visual Basic
Dim gzt As FileDialog
    Dim DosyaAdi As String
    Dim SeciliNesne As Variant
    Set trz = Application.FileDialog(msoFileDialogFilePicker)
    With trz
        .AllowMultiSelect = False
        .ButtonName = "AVT SEÇ"
        .Filters.Add "Access Databases", "*.accdb, *.accde"
        .FilterIndex = 0
        .InitialView = msoFileDialogViewThumbnail
        .Title = "Ribbon XML için Access Dosyası seçiniz"
 
        If .Show = True Then
            For Each SeciliNesne In .SelectedItems
                DosyaAdi = SeciliNesne
            Next SeciliNesne
            'MsgBox DosyaAdi
        End If
    End With
 
Dim db As DAO.Database
Dim rs As DAO.Recordset
 
Set db = DBEngine.OpenDatabase(DosyaAdi)
Set rs = db.OpenRecordset("UsysRibbons", dbOpenDynaset)
Set Me.Recordset = rs

Zeki Gürsoy · 21-05-2012, 03:03

Deneyin...

Visual Basic
Dim retVal As Long
Dim fName  As String
 
    With Application.FileDialog(msoFileDialogFilePicker)
        .Filters.Clear
        .AllowMultiSelect = False
        .ButtonName = "AVT SEÇ"
        .Filters.Add "Access Dosyaları", "*.accdb;*.accde", 1
        .InitialView = msoFileDialogViewThumbnail
        .Title = "Ribbon XML için Access Dosyası seçiniz"
 
        retVal = .Show
 
        If retVal = 0 Then Exit Sub
 
        fName = .SelectedItems(1)
    End With
    '**********
    'DAO işlemi

Mehmet Eser · 21-05-2012, 12:10

Sağolun, oldu.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[RAPOR] Rapor Alt Formun A4 Sayfası Dolana Kadar Tekrar Tekrar Eklenmesi.	tolgahanay8	2	337	01-04-2025, 22:26 Son Mesaj: tolgahanay8
	[VBA] Bu Kodda Sorun Nerede Anlamadım	yahyamacit	1	282	26-12-2024, 06:32 Son Mesaj: dsezgin
	Nerde Hata Yapıyorum	SBNS	3	353	21-10-2024, 20:38 Son Mesaj: halily
	[FORM] Sadece Alt Formun Kaydedilmesi	TheREDROSE	1	277	22-08-2024, 03:00 Son Mesaj: dsezgin
	[FORM] Dcount Hata Veriyor	TheREDROSE	4	360	04-08-2024, 15:12 Son Mesaj: TheREDROSE
	[FONKSiYON] Fonksiyonda Hata	zimbit	1	322	12-02-2024, 18:52 Son Mesaj: dsezgin
	Sorgu Kapatınca Formun Açılması	burhanb	1	316	18-11-2023, 00:44 Son Mesaj: dsezgin
	[VBA] Dosya Yolu Boş Ise Hata Alıyorum	serdem48	4	447	26-10-2023, 14:11 Son Mesaj: serdem48

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL