Search results

Hopefully you have the date included the the Start and End values. If you don't you will have a problem when one value spans past midnight. Anyway .... [EndTime] - [StartTime] * 24 should give you what you ask. RDH

Response should be Dim'd as an Integer. "Space" is a "Reserved Word" in Access ... for the function Space() Also ..... You can not Dim the variable as you are doing. At least you are not getting what you think you are. Dim space, enc, swim, enc2 As Integer In the line above ... only "enc2"...

If you are using the code in Access 2000 or 2002 ... then the problem is ... you are using DAO methods in the app. You need to alter the following line: Dim MyRecords As Recordset Change it to: Dim MyRecords As DAO.Recordset Also you need to enable the "Microsoft DAO 3.6 Library" in the...

Hmmmm ...... If you enter the first ticket number in the subform and the format of this entry will always remain in the format you have given (#200 .... ect). Then try using the After Update event of the control in the subform. Private Sub YourTxtboxName_AfterUpdate()...

Sub manipulateRecords() Dim recs As Recordset Dim record As String Set recs = CurrentDb.OpenRecordset("tableMainData") While Not recs.EOF If recs.Fields("productType") = "requirements" Then record = recs.Fields("inspectionID") recs.MoveNext MsgBox (record) End If Wend End Sub I think the sub...

Use the following in the "Default" property of the combobox: =[ComboName].[ItemData](0) This will have the first choice as the default selected entry. Change "ComboName" to the name of your combobox. HTH RDH

If your form is to be bound to multiple table or queries ...... You need to use a query as the Record Source for the form instead of a table. HTH RDH

If the combo row source contains 2 columns ... the first column on the left is Column(0) and the second would be Column(1). So the expression should be: =([Food.Column(1)]*[Servings]) HTH RDH

I don't think so ..... I wrote this utility a few of years ago and then added the browse ablity before posting it at the location I provided. This utilty will not pass the username and password information to a secured database in it's current version. I have been saying to myself that I was...

You keep a copy of the utility on your developement machine and simply unset the property with it. Then the question comes up ... what if you are not at your developement machine? This utility is small enough to fit on a diskette ... so you can keep a copy with you and you can execute the...

I prefer not to clutter the app with the code to do this. You can set the property remotely and not worry if the user stumbles upon you "backdoor". Go to the location below for a utility that will do this for you. Bypass ShiftKey Utility HTH RDH

Great .... I was hoping this would do what you needed. You are very welcome ...... :) RDH

Sounds like you have a "Relational Join" problem in the query the form is based on. HTH RDH

Try using the "On Format" event of the report section. HTH RDH

Use the "+" operator to combine the two values into one value. Here is an example: =DateDiff("n",([Date In]+[Time In]),([Date Out]+[Time Out])) HTH RDH

First set the "Default" property of the chkbox to 0 (unchecked). Now use the following example using the "After Update" event of the chkbox: Private Sub YourChkboxName_Click() Me.SubformControlName.Visible = Not Me.YourChkboxName End Sub "SubformControlName" should be the name of the Sub Form...

If you have existing records that contain "Null" values ... you will need to manually change the nulls to 0 or create an Update query to loop through the existing records and convert the nulls to a 0 value. You also could use the Nz() function to convert a null value to a 0 value within your...

Well ... you are right Oldsoftboss .... a "Requery" should be thrown in there ....... ...... maybe beween the two of us, we'll get something that works .... LOL RDH

There is no need to use the After Update event to popuate the textbox. You only need to use the following as the "Control Source" for the txtbox where the info is to be displayed: = Me.ComboBoxName.Column(1) This information will not .. and should not be saved to the table. It should be used...

Oldsoftboss has the correct approach ... but the "Warnings" are being turned On and Off at the wrong place in the code he posted. And you don't need the "Else" in the code the way it is written below. Private Sub Command74_Click() On Error GoTo Err_Command74_Click If MsgBox("Delete record?"...