àâòîðèçàöèÿ äëÿ âõîäà â 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
| Êîììåíòèðîâàòü | « Ïðåä. çàïèñü — Ê äíåâíèêó — Ñëåä. çàïèñü » | Ñòðàíèöû: [1] [Íîâûå] |