|
Private Sub FAM_DblClick(Cancel As Integer) Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("SELECT Top 1 kod_cl FROM slv_client WHERE kod_cl=" + Me.kod_cl) Forms.Forma_meny.klient.Form.Recordset.FindFirst "kod_cl=" + [Forms]![client_FAM]![kod_cl] DoCmd.Close acFormDS, "client_FAM" End Sub
http://www.sql.ru/forum/1130461/perehod-na-opredelennuu-zapis-tablichnoy-formy