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

    One active record with Macro

    The subject line doesn't explain this question well. I have a table with several fields. One YES/NO field that indicates which is the active contest. I want only one record to be active at a time. I know I can do this with code, but I'm trying to use a macro to get this done. Here are my...
  2. PhoenixDon

    Zero records prevent open

    So obvious, yet I'm so blind. THANKS!
  3. PhoenixDon

    Zero records prevent open

    A have a switchboard that opens a form. The data source for the form is a query that can return ZERO records. How can I prevent the form from opening if there are NO records, or at least display a message, then close the form.
  4. PhoenixDon

    Limit record creation

    Thanks for the response. Problem solved!
  5. PhoenixDon

    Limit record creation

    PHV and Scottian, Thanks for the replies. My question is, why am I getting duplicate records? Thanks, Don
  6. PhoenixDon

    stLinkCriteria

    BTW, here is the example from the help file. DoCmd.OpenForm "Employees", , ,"LastName = 'King'" Don [bigglasses]
  7. PhoenixDon

    stLinkCriteria

    Open your Visual Basic editor, go to the help file, and type in OpenForm. In your case you're asking about the WhereCondition clause. "WhereCondition Optional Variant. A string expression that's a valid SQL WHERE clause without the word WHERE." As stLinkCriteria is not defined, it would be...
  8. PhoenixDon

    How do I create a Tranaction Log list - Time and Date Stamp

    Off the top of my head, I would think you need two fields in your table. START and STOP. You could make a button for each and then the code to put the time stamp in. Private Sub btnStart_Click() START.Value = Now() End Sub
  9. PhoenixDon

    Limit record creation

    I wrote a little Access program to allow supervisors input the daily duty status of their employees. Managment wanted a report so everyday they knew how many people were at work. I have two tables, one is all the people assigned, the other is their duty status. I created an AutoExec macro...
  10. PhoenixDon

    Moving cursor inside open TEXT file

    These text files are documents that I have to find a way to split apart. Typically they may be anywhere from 6 to 600 pages, with each document containing 6-9 pages, and they go to different people. A program we use currently converts them to a WORD doc, then emails it to one office. I want...
  11. PhoenixDon

    Moving cursor inside open TEXT file

    BTW, using VBA, if I wasn't clear. Open myFILE For Input As #1 Line Input #1, InputData Do Until EOF(1) 'need stuff here Loop
  12. PhoenixDon

    Moving cursor inside open TEXT file

    This may be a stupid question, but I can't find the answer. I have a text file open, I'm extracting portions of the data in the file for import into a table. How can I move within the file. For example, I'm at the end of a page and I need to go back to the top of the page, or perhaps up 5...
  13. PhoenixDon

    Preventing unauthorized checking

    I hang my head in shame.
  14. PhoenixDon

    Preventing unauthorized checking

    I've got a form with several check boxes that users can check to indicate a required administrative task is complete. Checking also updates a time stamp in a table. Once the box is checked, it should not be un-checked, unless the user is a supervisor. So my question is, using the BeforeUpdate...
  15. PhoenixDon

    Importing data from multiple spreadsheets into a single table

    Probably should be this too. For i = 1 To .FoundFiles.Count strFile = .FoundFiles(i) If FilesWereFound = True Then DoCmd.TransferSpreadsheet acImport, 8, Table1, strfile, True Next i
  16. PhoenixDon

    Importing data from multiple spreadsheets into a single table

    My bad, got ahead of myself. Try this. Set fs = Application.FileSearch With fs .LookIn = "C:\REPOSITORY" .FileName = "*.XLS" If .Execute > 0 Then MsgBox "There were " & .FoundFiles.Count & " file(s) found." FilesWereFound = True End If For i = 1 To .FoundFiles.Count...
  17. PhoenixDon

    Importing data from multiple spreadsheets into a single table

    I do something similar with TXT files, so I hope this is what you are looking for. Set fs = Application.FileSearch With fs .LookIn = "C:\REPOSITORY" .FileName = "*.XLS" If .Execute > 0 Then MsgBox "There were " & .FoundFiles.Count & " file(s) found." FilesWereFound = True End If...
  18. PhoenixDon

    running multiple queries

    Can you put them in line? DoCmd.OpenForm "frm_frmDeptBudget" DoCmd.OpenForm "qry_DeptactTxDetail_sum" DoCmd.OpenForm "qry_DeptBudTxDetail" DoCmd.OpenForm "qtest"
  19. PhoenixDon

    Copy data to buffer

    My users have a requirement to extract certain data elements and email them to another out of state office. They have been typing them, but I would like to simplify this to a button click, then paste in the email. My question, how can I build a multi-line formatted string, and copy it to the...

Part and Inventory Search

Back
Top