Kod:
Private Sub Komut205_Click()
On Error GoTo Err_Komut205_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "ADRESTEKILER"
'stLinkCriteria = "[Soyad]=" & "'" & Me![Liste15] & "'"
stLinkCriteria = "[Soyad]=" & "'" & yenile & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Komut205_Click:
Exit Sub
Err_Komut205_Click:
MsgBox Err.Description
Resume Exit_Komut205_Click
End Sub
formun veri kaynağını
Kod:
SELECT hasta.Soyad FROM hasta GROUP BY hasta.Soyad ORDER BY hasta.Soyad;
neden acaba