Looks like it is a display issue in the watch window. The code below will demonstrate that this limitation actually does not exist in the collection itself:
Function FSO()
Dim objFSO As New FileSystemObject
Dim objFolder As Folder
Dim objFiles As Files
Dim objFile As File...
I seemed to have run up against a 256 file limitation in the FileSystemObject Files collection?!? Can anyone confirm this or point to a workaround that does not entail piping the output to a file and iterating through that?
Dim objFSO As New FileSystemObject
Dim objFolder As Folder...
Put the code below in a procedure or function.
Dim strSQLInfo as String
Dim strConnStrIn as String
Dim strConnStrOut as String
strSQLInfo = GetSQLInfo(SQL_DBMS_NAME, strConnStrIn, strConnStrOut)
Either strSQLInfo will be Empty (if the referenced function was unable to get the information)...
Anyone with some sample code on this function? I have looked everywhere and cannot find anything that is MS-Access specific.
Background
I have an application where I want the user to be prompted to select an ODBC Data Source. I would like to then call this function to get some information...
Given that you are using axTreeview, the event procedure you may want to call is axTreeview_NodeClick. If you do not want anything happening when the user clicks on the node then you can remove this bit of code. Otherwise you will need to create that procedure (if it does not already exist) and...
The function below takes the name of a form as an input parameter and returns True/False if the form is loaded.
There is a second optional parameter that allows you to specify (by setting value to True that you want to know whether there is another form loaded other than the one specified in...
What about deleting the records using something like this?
docmd.setwarnings false
docmd.runsql "DELETE * FROM <childTable> " & _
"WHERE <expenseIDcol> = " & me.expenseID
docmd.runsql "DELETE * FROM <parentTable> " & _
"WHERE <expenseIDcol> = " & me.<expenseIDctl>...
First off, create custom commandbars (I.e. shortcut menus) that you want to use for your treeview. Then here is a snippet of code that should get you on your way.
Private Sub treeView_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Long, ByVal Y As Long)
On Error GoTo...
I don't think you can do it because you have two columns in your combobox. Are both [ICL 1] and ItemID2 required fields in the [tblICL 1] table? If not, you might be able to change the combobox to make the required field displayed first and make sure you change the comboboxes bound column...
Use the comboboxes _NotInList event to capture the new entry, add a new record in the source, and finally cancel the reponse to the user that the item is not in the comboboxes list (because it now should be!).
Unfortunately I don't have any sample code to give you but this verbal explanation might point you in the right direction.
First off, the only way that I know of to do what you want is to use a combobox, not a textbox. Essentially, as the user finishes typing in the text you want to add it to...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.