Search results for query: *

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

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

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.

Thanks for the response. Problem solved!

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

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

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

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

...I do wrong? (BTW, system dates are set by the network and can not be changed by users.) Any suggestions appreciated. Thanks, Don [bigglasses] ****************************************** Function StartNewDay() Dim db As DAO.Database Dim rst As DAO.Recordset Dim strSQL As String strSQL...

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

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

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

I hang my head in shame.

...As Integer) If SupervisorCheck(basGetNetUser.fGetNetUser) = False Then MsgBox "Sorry, you aren't authorized to take this action" End If End Sub *The function SupervisorCheck returns a boolean indicating if the user is authorized. Thanks, Don in Phoenix[shadeshappy]

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

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

...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 For i = 1 To...

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

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

Perfect! Thanks much.