Option Compare Database

Private Sub Command2635_Click()
    DoCmd.OpenForm "frm_crf_select", , , "tbl_patients.ID = " & Me!db_id & ""
    DoCmd.Close acForm, Me.Name
End Sub

Private Sub Command1841_Click()
    Me.[6MWT].SetFocus
End Sub

Private Sub Command1842_Click()
    Me.[MacNew/SF36].SetFocus
End Sub

Private Sub Command2041_Click()
    Me.[EQ5D/MacNew].SetFocus
End Sub

Private Sub Command710_Click()
    Me.Treatment.SetFocus
End Sub

Private Sub Command717_Click()
    Me.Baseline.SetFocus
End Sub

Private Sub Command720_Click()
    Me.[6MWT].SetFocus
End Sub

Private Sub Command907_Click()
    Me.Treatment.SetFocus
End Sub

Private Sub Command908_Click()
    Me.[EQ5D/MacNew].SetFocus
End Sub