#1
Run Time error : 3075 alıyorum
Kodlarım
Private Sub Liste10_DblClick(Cancel As Integer)
Dim stlinkCriteria As String
stlinkCriteria = "[ADA NO]=" & Me.Liste10.Column(1)
DoCmd.OpenForm "Frm_Numune", , , stlinkCriteria
stlinkCriteria="[ADA NO]="&"'" & Me.Liste10.Column(1) & "'"(07/04/2016, 14:44)ozanakkaya yazdı:stlinkCriteria="[ADA NO]="&"'" & Me.Liste10.Column(1) & "'"
Koddaki ilgili yeri yukarıdaki ile değiştirerek deneyiniz.
Ozan Bey öncelikle Teşekkür Ediyorum
Ancak Denedim Olmadı
Kod Başlangıç ve Bitiş Noktolarına Verdiğiniz Kodu Koydum Yine Olmadı Yardımcı Olursanız Sevinirim.
#4
Private Sub Liste10_DblClick(Cancel As Integer)
Dim stlinkCriteria As String
stlinkCriteria = "[ADA NO]=" & "'" & Me.Liste10.Column(1) & "'"
DoCmd.OpenForm "Frm_Numune", , , stlinkCriteria
End Sub