उपयोगकर्ता नाम के माध्यम से डेटाबेस खोज

मैं एक कॉल लॉग सिस्टम विकसित कर रहा हूं, और ट्रैकिंग उद्देश्यों के लिए प्रबंधक चाहता है कि प्रत्येक उपयोगकर्ता प्रवेश पर लॉग इन हो।

मेरे पास एक मॉड्यूल है जो नीचे दिए गए कोड के साथ वर्तमान लॉग ऑन उपयोगकर्ता को प्रदर्शित करता है। मैं सिस्टम के लिए उपयोगकर्ता नाम के लिए तालिका "TBL_Users" खोजना चाहता हूं और टेक्स्ट बॉक्स में उस उपयोगकर्ता नाम से संबंधित सभी जानकारी प्रदर्शित करता हूं। क्या वह उपयोगकर्ता डेटाबेस में नहीं होना चाहिए, मुझे एक त्रुटि प्रदर्शित करने की आवश्यकता है और उपयोगकर्ता को सिस्टम में प्रगति करने की अनुमति नहीं है। मुझे पता है कि मुझे एक डॉक्यूमेंट का उपयोग करने की आवश्यकता हो सकती है लेकिन मुझे यह सुनिश्चित नहीं है कि इसे कैसे कोड किया जाए।

    Option Compare Database

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
    strUserName = String$(254, 0)
    lngLen = 255
    lngX = apiGetUserName(strUserName, lngLen)
    If (lngX > 0) Then
        fOSUserName = Left$(strUserName, lngLen - 1)
    Else
        fOSUserName = vbNullString
    End If
End Function

थोड़ी देर के लिए डॉकअप के साथ खेलने के बाद, मुझे फॉर्म लोड पर पॉप्युलेट करने के लिए टेक्स्ट-बॉक्स की आवश्यकता है। यह मैं उपयोग किया गया Dlookup है।

Private Sub Form_Load()

Windows_Logontxt = fOSUserName()

'agentname = DLookup("Agent_Name", "TBL_Users", "Windows_Logon=" & Windows_Logontxt)

End Sub
0
उपरोक्त संपादित प्रश्न।
जोड़ा लेखक ASM2701, स्रोत
"मुझे पता है कि मुझे एक डॉक्यूमेंट का उपयोग करने की आवश्यकता हो सकती है, लेकिन मुझे यह सुनिश्चित नहीं है कि इसे कैसे कोड किया जाए।" - हर कोई पहली बार कुछ करने का प्रयास करते समय अनिश्चित होने जा रहा है, इसलिए कोई बहाना नहीं है । यह पढ़ें और फिर आगे बढ़ें और प्रयास करें वैसे भी। फिर वापस आएं और कहने के लिए अपना प्रश्न संपादित करें "यहां बताया गया है कि मैंने DLookup() : ..." का उपयोग करने का प्रयास कैसे किया और हमें बताएं कि क्या हुआ।
जोड़ा लेखक Gord Thompson, स्रोत

1 उत्तर

ऐसा लगता है कि Windows_Logon और Windows_Logontxt टेक्स्ट मान हैं, इसलिए Windows_Logontxt उद्धरणों में संलग्न करें जब आप तीसरे तर्क के लिए स्ट्रिंग बनाते हैं DLookup

DLookup("Agent_Name", "TBL_Users", "Windows_Logon='" & Windows_Logontxt & "'")
0
जोड़ा
धन्यवाद हंस बहुत सराहना की।
जोड़ा लेखक ASM2701, स्रोत