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 Wanet Telecoms Ltd 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. sibleytr

    Using SQL to Populate Form Labels

    ...of current form strFrmName = Me.Form.Name 'Qry for Main and Subtitles of current form Set db = CurrentDb() strSql = "SELECT * FROM tblInfoFrmTitles " strSql = strSql & "WHERE strFrmName = '" strSql = strSql & strFrmName & "'" Set rs =...
  2. sibleytr

    Using SQL to Populate Form Labels

    ...As String Dim strCurFrmName As String Dim rs As Recordset Dim db As Database strCurFrmName = Me.Form.Name Set db = CurrentDb() strSql = "SELECT * FROM tblInfoFrmTitles " strSql = strSql & "WHERE strFrmName = " strSql = strSql & "strCurFrmName;" I missing how to pull the data from...
  3. sibleytr

    Access Sql Statement Path Information

    Found it! Dim strSrcPth As String Dim strTrgPth As String strSql = "SELECT * FROM tblInfoPaths " strSql = strSql & "WHERE tblInfoPaths.strPathType = 'Source';" Set rs = db.OpenRecordset(strSql, dbOpenSnapshot) strSrcPth = rs!strPathDetails strSql = "SELECT * FROM tblInfoPaths " strSql =...
  4. sibleytr

    Access Sql Statement Path Information

    ...tblInfoPath.strDetails Dim strSql as String Dim rs as RecordSet Dim strSrc as String Dim strTrg as String 'Source strSql = "SELECT * " strSql = strSql & "FROM tblInfoPaths " strSql = strSql & WHERE tblInfoPaths.strPathType " strSql = strSql & strSql & 'Source';" DoCmd.RunSQL strSql Set rs...
  5. sibleytr

    Monitoring Disk Space

    Currently I have a flat MDB that I track my network storage items in. It's a simple MDB used to create tbl's, frm's and rpt's. The Tbl's contain my Server and Max storage information and then I take a manual reading and data input of each server and it's remaining space reading. What I'm...
  6. sibleytr

    How do I loop through an Access table

    I enabled the MS DAO reference and reset the Dim as DAO.<> and all is well. Thanks for the info.
  7. sibleytr

    How do I loop through an Access table

    ...& " down list.", vbOKOnly, "Warning" End Case strLinkType Dim tblName As String Dim db As Database ' *** Error **** Dim rs As Recordset Set db = db1 Set rs = db.OpenRecordSet...
  8. sibleytr

    If object exist question

    You code good - thanks.
  9. sibleytr

    If object exist question

    Whenever the FE of my MDB loads it asks for a project to manage. Depending on the project, and it's location, it will delete the existing link and then connect to the needed BE link table. However I have a situtaion where sometimes the linked table is not present to delete and thus the code...
  10. sibleytr

    Trim Data Question

    the Trim command by itself only trimed the outer ends of the data, I had to use your IIF to make it really massage the data they proper way. Thanks for the code. It is greatly apprecaited.
  11. sibleytr

    Trim Data Question

    I don't know what my computer has been smoking but I re-ran my previous. FullStreetName: Trim([PREDIRECT] & " " & [STREETNAME] & " " & [STREETTYPE] & " " & [POSTDIRECT]) and the query worked this time. Time to crush the bugs with a format do over. Thanks again.
  12. sibleytr

    Trim Data Question

    I am needing to build a field using the data from four other fields using an Access Query. strFullStName: [PREDIRECT]&" "&[STREETNAME]&" "&[STREETTYPE]&" "&[POSTDIRECT] From the above code you can see the problem if any field, specificly the outer two fields are empty I wind up with a space...
  13. sibleytr

    Get Data left of a character in a string value

    Your right it is a type-o "/" instead of "\". Sorry. When you look a something long enough it reads differently then what it is. The code works great in the Access Query. Thanks again.
  14. sibleytr

    Creating Access Table Links to Multiple Txt Files

    I finally found the KB on it but it's turning in to be more trouble then time permits, so I attacking from the VB side. Thanks for your reply.
  15. sibleytr

    Date Formating - Newbie

    Whenever I update a table I would like a record set that will fill in the current Date(). That's the easy part. I want to take a given Date() = 2/3/2005 and add leading "0"'s well as split the Date into two fields. So the date #2/3/2005# result would be: 02-03 2005 Any ideas?
  16. sibleytr

    Get Data left of a character in a string value

    So far the winner appears to be the function Public Function GetPathLeft(strInput) As String Dim intSub As Long Dim strArr() As String strArr = Split(strInput, "\") GetPathLeft = strArr(0) End Function Public Function GetPathRight(strInput) As String Dim intSub As Long Dim strArr() As...
  17. sibleytr

    Get Data left of a character in a string value

    I want to obtain all data from a string that is to the left of a givem character. The data string is a network path: "2005-A\AAA00001" I want to get all data to the left of the "\" character. I can use the Left(text,6) command but the folder name has the possiblity of changing character...
  18. sibleytr

    Read Text Files - Newbie Question

    Excelent! Works like a charm. Thanks. It will take me a little while to dysect the code to determine all the object commands, but that's part of the learning curve. My follow up questions: Do you know where Access stores the SpecificationName? (I can see the name I saved it as under the...
  19. sibleytr

    Read Text Files - Newbie Question

    I have a series of Text files that I need to read into an Access Table. I've used DoCmd.transferDatabase in the past to import data from a single Mdb however the DoCmd.TransferText acImportFixed is kicking my butt. Especially the SpecificationName element and the need to scan multiple files...

Part and Inventory Search

Back
Top