SELECT Yaşlı.*FROM YaşlıWHERE (((DURUMU)=No));
Private Sub Komut18_Click()On Error GoTo Komut18_Click_Err DoCmd.OutputTo acQuery, "Mevcut Yaşlı Engelli", "MicrosoftExcel(*.xls)", "", True, "", 0 Komut18_Click_Exit: Exit Sub Komut18_Click_Err: MsgBox Error$ Resume Komut18_Click_Exit End Sub