Yukaridaki kodu asagida ki sekliyle yenilemistim..

ama "rs.MoveFirst" Satirinda hata verdi.

----
run-time eror '3021'
BOF or EOF is true, or current eror hasbeen deleted
----

Dim rs As New ADODB.Recordset
Dim sorgu, kriter As String
kriter = Me.SecPanel
sorgu = "select * from QryLogoMenu where ACIKLAMA= '" & kriter & "'ORDER BY SIRA"

rs.Open sorgu, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveFirst
Do While Not rs.EOF
With DoCmd
.SetWarnings 0
Select Case rs(3)
Case "TabloAc"
Detay.SourceObject = "Table." & rs(2)
.GoToControl "Detay"
Case "SorguAc"
Detay.SourceObject = "Query." & rs(2)
.GoToControl "Detay"
Case "SorguEkle"
.OpenQuery rs(2)
Case "SorguSQL"
.RunSQL rs(2)
Case "FormAc"
Detay.SourceObject = rs(2)
.GoToControl "Detay"

End Select
.SetWarnings -1
End With
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

sorgu = "select * from QryLogoMenu where ACIKLAMA= '" & kriter & "' ORDER BY SIRA"


İlgili satırı değiştirip dener misiniz?

Sn Taruz
Calisti... Tesekkurler
Tam istedigim seyi elde ettim

Raporlarimin hepsi ayni hizda calisirsasuper olacak