Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. Fosters

    check if file exists?

    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
  2. Fosters

    selecting specific row/col text in a textbox

    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
  3. Fosters

    How to tell what applications are installed on a PC?

    cheers, how do I get all keynames under uninstall? Do I need to fetch a bytearray from getsettingstring?
  4. Fosters

    How to tell what applications are installed on a PC?

    Can anyone tell me where I look (registry I presume) to find all the applications installed on a windoze 2000 PC? cheers for your responses.
  5. Fosters

    progress bar in status bar

    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...
  6. Fosters

    how to disable the terminate button in the control box

    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...
  7. Fosters

    how to disable the terminate button in the control box

    anyone know how?
  8. Fosters

    Registry location for Excel install location

    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
  9. Fosters

    Help me...it's horrible

    don't forget the rs.movenext either. It's 7:50 in the morning - I do apologise!!!!
  10. Fosters

    Help me...it's horrible

    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,&quot;,&quot;,&quot;&quot;) der! Mike
  11. Fosters

    Help me...it's horrible

    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=&quot;&quot; for x=0 to RS.item.count-1 output_line=output_line & chr(34) & rs.item(x).value &...
  12. Fosters

    Frustrating ADO Error....

    I'll have a look at the code for you. Mike Michael.toye@bmw.co.uk
  13. Fosters

    Connecting to Oracle what should be the provider Name ?

    Cn.open &quot;Driver={Microsoft ODBC for Oracle};&quot; & _ &quot;Sever=OracleServer.World;&quot; & _ &quot;Uid=;Pwd=;&quot; you might have to use Driver={Microsoft ODBC Driver for Oracle}
  14. Fosters

    internet connection monitor

    Can anyone help me work out how to monitor bytes in/out over a DUN connection? Cheers Mike
  15. Fosters

    System Requirements for MAPI

    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...
  16. Fosters

    passing value

    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

Part and Inventory Search

Back
Top