Function FileExists(FileName As String) As Boolean
On Error GoTo ErrorHandler
' get the attributes and ensure that it isn't a directory
FileExists = (GetAttr(FileName) And vbDirectory) = 0
ErrorHandler:
' if an error occurs, this function returns False
End Function
If I have 6 lines of text in a text box and I want to allow the user to drag select column 30 to 33 down through the 6 lines of text, so they've selected 18 characters in a 3x6 shape, how do I do that? Should I use a RTF textbox?
email michael.toye@bmw.co.uk please
I'm using the following code to position a progress bar within panel 2 of a status bar. Calling the sub on form_resize is fine, but when maximising the form the progress bar stays put. How do I detect the maximise?
rgds
Mike
Private Declare Function SetParent Lib "user32" (ByVal...
I already found a bit of code, but thanks for your reply. Here's what I did, if you are interested...
Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long
Declare Function GetMenuItemCount Lib "user32" _
(ByVal hMenu As Long) As...
I use this registry key for retrieving the Excel location in windows 2000, is it still correct for win 9x/Me/XP?
HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0\Excel\InstallRoot\Path
can you reply to michael.toye@bmw.co.uk please
oops! the line in the for loop should be
output_line=output_line & chr(34) & rs.item(x).value & chr(34) & iif(x<>rs.item.count-1,",","")
der!
Mike
If you want to do it in VB, create a recordset and use the following SQL
SELECT * FROM [TABLE]
then loop through
rs.movefirst
while not rs.eof
output_line=""
for x=0 to RS.item.count-1
output_line=output_line & chr(34) & rs.item(x).value &...
Cn.open "Driver={Microsoft ODBC for Oracle};" & _
"Sever=OracleServer.World;" & _
"Uid=;Pwd=;"
you might have to use
Driver={Microsoft ODBC Driver for Oracle}
you're better off using CDO.
The server needs a MAPI client like exchange and a registered version of CDO.DLL and your project requires a reference to CDO too.
Sub SendEmailMAPI(SendTo As String, Subject As String, EmailText As String, _
Optional AttachmentPath As String, Optional...
In form2, reference the field on form1 absolutely, eg;
form1 contains a textbox, text1
in form2's code (label1 being on form2):
label1.caption = form1.text1.text
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.