Search results for query: *

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

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

Thanks

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

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

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

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

...& " 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...

You code good - thanks.

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

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.

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.

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

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.

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.

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?

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

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

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

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