Dim strDir As String
strDir = Dir("C:\Users\*.*", vbDirectory)
Do Until Len(strDir) = 0
If Left(strDir, 1) <> "." Then
MkDir "C:\Users\" & strDir & "\MYWORK"
End If
strDir = Dir()
Loop
I've been working on a converter of Access reports to HTML, that preserves all controls (including lines). It's not completely finished/tested, but if you want I can email it to you.
You can also define a class for a node, and include one or more pointers to the node's class inside the class definition. Then use the New keyword to create new nodes,
and link them with properties:
For example (This module is named clsNode):
private mNextNode as clsNode
'Other variables you...
You can't use = NULL, you have to use IS NULL.
I would rewrite your query as:
SELECT * FROM tblClaim WHERE NOT (AppraiserLastName IS NULL) AND DateClosed IS NULL
Hope that helps.
It depends on whether you're using DAO or ADO. With DAO, use the dbFailOnError option and the call will generate a run-time error if, for example, the query can't execute because it would cause a key violation.
With ADO, the call will generate a runtime error if not successful, also you can...
'Here is code I have used in the past (it works on UNC
'paths as well):
Public Function MkFullDir(strDir As String) As Boolean
On Error GoTo err_MkFullDir
Dim strParentDir As String
MkFullDir = False
strParentDir = ParentDir(strDir)
If Len(strParentDir) > 0 Then 'Not At...
The name, cmdResultaatTicketVerkooplijnVerwijderen, is 40 characters long. The VB help says 40 is the maximum length for a name. This means the sub cmdResultaatTicketVerkooplijnVerwijderen_Click might be too long for the system to process. I'm not sure if this is your problem, but you could...
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.