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!

Register Log in
  • Congratulations derfloh 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: *

  • Users: a9
  • Order by date
  1. a9

    Crystal Exporting question

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

    GetObject and MS Word

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

    Display a msgbox rather then a blank form

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

    Modifying the standard buttons? Help?

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

    BIG Problem filtering record

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

    Passing a variable when opening a form.

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

    BIG Problem filtering record

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

    SQL... is the syntax correct?

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

    SendObj works only once

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

    SQL... is the syntax correct?

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

    Put into hours : minutes

    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) &...
  12. a9

    how to group and sort

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

    Importing Text file with Carriage Returns not being recongnized

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

    Julian Dates and Consecutive numbers

    Julian and NOT Gregorian dates?
  15. a9

    Combine querie-results into a single string

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

    Importing text-file into Access97 database

    I have a very complicated piece of code for data from a text file which is comma seperated but because it contains upto 30 different record types with different numbers and types of data won't import directly into Access. If the standard import methods fail I'll post up the general method. The...
  17. a9

    Open a Form with Matching Data otherwise open blank form

    I thought of a much more elegant solution on my way home last night. Code below which is run from the starting form. NO on open action required in the destination form. Private Sub Details_Click() On Error GoTo Err_Details_Click Dim MyDb As Database, MyRst As Recordset, Recs As Integer...
  18. a9

    Open a Form with Matching Data otherwise open blank form

    You don't need the lines Dim stLinkCriteria As String stLinkCriteria = &quot;[Payroll_Number]=&quot; & &quot;'&quot; & Me![Payroll_Number] & &quot;'&quot; in the first piece of code these were accidently left in from my original code - sorry.
  19. a9

    Open a Form with Matching Data otherwise open blank form

    This is a two stage process, assuming you open the second form each time the button is clicked on the first. In this case the button on the first form is named &quot;Details&quot; and opens the second. This example makes use of the &quot;OpenArgs&quot; system variable. The &quot;onClick&quot...
  20. a9

    Converting 7 day week into 5 day week accurately

    I have had the same problem in the past. My solution was the code below which is not elegant but seems to work. You will also need a table of Bank Holidays (Public Holidays). The code is which can be used in a field in a query as per: DAYS IN QUEUE: WorkingDays([indate],Now()) Function...

Part and Inventory Search

Back
Top