-

   rss_sql_ru_access_programming

 - e-mail

 

 -

 LiveInternet.ru:
: 16.03.2006
:
:
: 4

:


Access

, 15 2019 . 22:05 +
. !
. (, , , ). , . . , "", "". , , .
"Run-time error '3070': "()" Microsoft Access " .FindFirst "[]=" & Me._.Value .
???

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


: [1] []
 

:
: 

: ( )

:

  URL