Recent content by a9

how to display values of the columns horizontally in a crystal report

In Access 97 shouldn't the declaration be: Dim WordObj As Object

In this situation - assuming you are using a form to list the people then opening a second form I usually do the following. Dim myDb As Database, MyRst As Recordset, Recs As Integer, SQLString As String Dim stDocName As String, stLinkCriteria As String Set myDb = CurrentDb SQLString =...

I used to put pictures on buttons by entering the path in the picture field. If the icon is located on a server then this format works \\Server\Folder\NextFolder\Icons\Computer\Drive01.ico But creating the icons was always a lot of work. Now I use the standard ones and the ControlTip Text...

Richard, to be honest I didn't look at your code, this was a slight modification of something I used for a system a little while ago. I remember it took a little while to find out when the last record was reached as there seems to be no built in way of knowing - unless someone else knows any...

You send a string delimited by a combination of characters which you never use - say |~ then use the Mid/Instr functions to extract the fields on opening the receiving form.

This is my solution to your problem. Code for buttons is: Private Sub first_Click() On Error GoTo Err_first_Click DoCmd.GoToRecord , , acFirst If Me.CurrentRecord = 1 Then Me.next.SetFocus Me.first.Enabled = False Me.prev.Enabled = False Me.next.Enabled...

Return to basics - try creating the query using the query designer and get that working. Once that is ok you can view the SQL and copy to your code.

This is a shot in the dark - but do you need to remove the Debug.Print statements?

I have found using single quotes within the SQL strings easier than using the Chr(34) method Especially for multiple selection criteria. For instance: MySql = "SELECT tblTimeSheets.StartingDate " MySql = MySql & "FROM tblUser INNER JOIN tblTimeSheets ON &quot...

If this is in a Query then you could use an Iif function, assuming you require negative hours and minutes then this might work WorkingHours: IIf([ValueInMinutes]<0,&quot;-&quot; & Int(([ValueInMinutes]*(-1))/60) & &quot; : &quot; & (([ValueInMinutes]*(-1)) Mod 60),Int([ValueInMinutes]/60) &...

I don't know if this will help but I use the following for filtering in a form (Access 97). Using a button the on click code is: On Error GoTo Err_FiltBySelect_Click Screen.PreviousControl.SetFocus DoCmd.DoMenuItem acFormBar, acRecordsMenu, 0, 1, acMenuVer70 Exit_FiltBySelect_Click...

The following code modified to your file details will tell you how Access is handling the data. If it is being read as a single line then you can modify the code in the loop to read the data upto which ever charecter is being used to delimit the lines and then write the results into a table. I...

Julian and NOT Gregorian dates?

You could do it with a fairly simple piece of code. Create a new table, in this example it has two fields LongEmail which is Memo format Created which is Date format the Table is named LEMail Create this code Function CreateLongEMail() On Error GoTo Err_CreateLongEMail Dim MyDb As...