एक एमएस एक्सेस फॉर्म

Question

पर एक फ़ाइल ब्राउज़र बटन जोड़ना मैं एक एमएस एक्सेस 2007 फॉर्म में "ब्राउज" बटन जोड़ना चाहता हूं जो एक मानक विंडोज फ़ाइल ब्राउज़र (एक मोडल विंडो के रूप में) लाएगा और उपयोगकर्ता को अनुमति देगा एक निर्देशिका का चयन करें। जब उपयोगकर्ता उस ब्राउज़र से बाहर निकलता है, तो चयनित निर्देशिका को एक्सेस फॉर्म में किसी टेक्स्ट बॉक्स में लिखा जाना चाहिए।

ऐसा करने का सबसे अच्छा तरीका क्या है? क्या कोई मूल पहुंच तरीका है?

Answer 1

Application.FileDialog का उपयोग करने वाला एक फ़ंक्शन बनाएं। FileDialog मोडल है।

यह फ़ंक्शन उपयोगकर्ता के फ़ोल्डर चयन को वापस कर देगा यदि उन्होंने एक बनाया है, या एक खाली स्ट्रिंग अगर उन्होंने FileDialog पर रद्द किया है।

Public Function FolderSelection() As String 
    Dim objFD As Object 
    Dim strOut As String 

    strOut = vbNullString 
    'msoFileDialogFolderPicker = 4 
    Set objFD = Application.FileDialog(4) 
    If objFD.Show = -1 Then 
     strOut = objFD.SelectedItems(1) 
    End If 
    Set objFD = Nothing 
    FolderSelection = strOut 
End Function 

मुझे लगता है कि आप अपने आदेश बटन के क्लिक करें घटना में है कि समारोह का उपयोग कर सकते हैं। BrowseFolder Dialog:

Dim strChoice As String 
strChoice = FolderSelection 
If Len(strChoice) > 0 Then 
    Me.TextBoxName = strChoice 
Else 
    ' what should happen if user cancelled selection? 
End If 

आप Microsoft किसी दिन कार्यालय से FileDialog वस्तु निकाल सकते हैं कि चिंतित हैं, तो आप के बजाय Windows API विधि का उपयोग कर सकते हैं।