Öte yandan şöyle bir yöntem keşfettim; isme göre arama comboboxunun yanına muayene seçimi adlı bir açılan kutu yerleştirip örnekte 3 periyodik muayene için satır kaynak türünü değer listesi yapıp
kayıt ara tıklama olayına yazdım:
Private Sub Kyt_Ara_Pmf_Click()
Dim MynSec, KydGtr As String
KydGtr = "[TblKayitlar]![KimlikNo]=[Forms]![FrmAnaSyf]![ISMEGOREARAMA]&[Forms]![FrmAnaSyf]![KimlikNoileArama]"
If Me.MynSec = "2. Muayene" Then
DoCmd.OpenForm "FrmPrydkMyn2", , , KydGtr
DoCmd.Close acForm, Me.Name
ElseIf Me.MynSec = "1. Muayene" Then DoCmd.OpenForm "FrmPrydkMyn1", , , KydGtr
DoCmd.Close acForm, Me.Name
ElseIf Me.MynSec = "3. Muayene" Then DoCmd.OpenForm "FrmPrydkMyn3", , , KydGtr
DoCmd.Close acForm, Me.Name
End If
End Sub
İyi çalışmalar.