-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â 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


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó