Access |
Private Sub _Click() Dim rst As dao.Recordset Set rst = CurrentDb.OpenRecordset("", dbOpenSnapshot) ' - With rst If IsNull(Me._.Value) Then ' , MsgBox " ! ." Exit Sub Else: .FindFirst "[]=" & Me._.Value ' , If .NoMatch Then ' , MsgBox " ! ." Exit Sub End If DoCmd.Close ' , Select Case .Fields("").Value Case " " DoCmd.OpenForm "" Case Else DoCmd.OpenForm "" ' End Select End If End With rst.Close Set rst = Nothing End Sub
https://www.sql.ru/forum/1313732/avtorizaciya-dlya-vhoda-v-access