Search results

I'm not sure how you're setting the Order By property, but you should do it in the On Open event of the subform. Key in the following to the On Open event of the subform: me.OrderBy = "[SortField]" me.OrderByOn = True Hope that helps. Doug

In the On Current event of your form, put this code.. me![FirstFieldName].SetFocus That should do it for you. Doug

What you could do is set the details visible property to false. You should have a label in your report Header, or anywhere besides the detail section, that says none and has it's visible property set to false. In the No Data event, put this code.. Me.Detail.Visible = False...

Marge, The reason that you are getting zero for seconds is because "min" and "sec" are declared as integers. So Sec = Min - int(min) returns zero, because min is already equal to int(min). Declare them as doubles and you should be fine. Hope that helps. Doug

alright, I think I got it now... Replace the line "If stID = "" then" with "If isnull(stID) then". A null value is different than an empty string. When you use the empty string, the program thinks there is a value, which is why you're getting your invalid use of null. Hope that helps now...

You didn't mention where the error was coming up but I'm assuming it's coming up on the msgbox. Why are you concatenating stID to the end of your message? If you are seeing that message, then stID must be null.. Access doesn't like outputting a null value through a messagebox. If you take...

okay, what you could do is run a quick SQL statement to see if there is data for that record in the underlying table of the form... dim MyDB as database dim MyRecs as recordset dim MySQL as string set MyDB = currentdb MySQL = "SELECT * FROM [Your_Table]WHERE "TreatmentID=" & Me![TreatmentID]...

It looks like FillAllFields should be a boolean value. Try this.. dim FillAllFields As boolean

Steve, the left function at the end will get rid of the final "And" in your criteria string.. The code that myself and Charity wrote will loop through each of your text boxes and check if it is null.. If it is, then it will not include the field in the criteria(It will find all values for that...

If you want the information on a form then just set up a filter. Create a form with two textboxes(txtBeginDate and txtEndDate) and a command button. On Click of the command button, put the following code if isnull(me("txtBeginDate")) then msgbox "You must fill in a beginning Date." exit sub...

Alright, what you should do is on the Not in List event of the combo box, put the following code... dim MyDB as database dim MySQL as string set MyDB = currentdb MySQL = "INSERT INTO [Your_Table] (MCnoField) values (" & me("Combobox") & ")" This will add the MC # to your database and then you...

oh yeah, forgot about that... Always the little things... hehe.. Thanks Charity

Just run through all of your controls and build the string... stLinkCriteria = "" if not isnull(me![Customer]) then stLinkCriteria = stLinkCriteria & " [Customer Name]=" & "'" & Me![Customer] & "'" if not isnull(me![CustomerID]) then stLinkCriteria = stLinkCriteria & " [CustomerID]=" & "'" &...

Well, for step 1, just set the Auto Expand property to yes. For 2, Set the Limit to List Property to Yes. Then, there is an event, Not in List, where you can write your code to insert a new customer. Perhaps when a new customer is entered, add the mc# to your table, then popup another form to...

You won't be able to use Autonumber here, but you probably could just use a number field and search through the table for an open number... This is a dirty way to do it, but it should serve your purpose... Public Function GetOpenNumber() As Long Dim MyDB As Database Dim MyRecs As Recordset Dim...

Are you sure you have the query name spelled right? Try putting another recordset in your code and see if that works... If it works, they it is a problem with your query. Can you open and view the query normally? Does the query have parameters?

DoCmd.SendObject , , , strEmail, , , "Update", me("Record_No") & " has been updated.",True Add the true at the end, then that should do it. Doug

Can you use unbound hidden controls for these fields on the main form then link them along with the ID to each subform? That's probably the easiest way.. Doug

Just set the Link Child Fields and Link Master Fields of the subform to the names of the fields you want to automatically populate... After you populate the main form, it will populate all the child forms(subforms). Doug

in the AfterUpdate of the time employed field, put a quick if then statement.. if (full time) then if [Time Employed] >=5 me.daysoff = 25 else me.daysoff = 20 end if end if As long as the control daysoff isn't locked, you'll be able to change it and put days off in there for part-timers...