Is this correct?
If Time > #1:00:00 PM# And Time >= #2:00:00 PM# Then
If CurrentUserInGroup("usrgrp1") = False Then
MsgBox "This is usrgrp2's time"
DoCmd.Quit
Exit Sub
End If
End If
Guys,
I have a query in which I track payments but I wanted to know how I could decrease the customer's total when a payment in made either in full or in installments. If I do a calculation then the current payment is subtracted from the balance but not previously made payments. Please help...
I am trying to append all the records in a continuous form to a table but I am having a lot of trouble do so. The query is not getting the criteria from the form. Has anyone done this successfully?
---------------------
survane@hotmail.com
I am trying to append all the records in a continuous form to a table but I am having a lot of trouble do so. The query is not getting the criteria from the form. Has anyone done this successfully?
Thanks so much
---------------------
survane@hotmail.com
Guys,
Is it possible to add an option to an option group that binds it after the wizard is complete? I need to add one more choice but it is not "bound" to the group.
Thanks. ---------------------
survane@hotmail.com
I have a table that lists 400 different cars by manufacturers, makes and models. Each car has a unique ID (autonumber). I am linking this to another table but I only want to store the vehicle ID. I don't want to add three new fields for the manufacturers, makes and models. My user has to enter...
I have a form where I enter callers information. I may have duplicate callers but that's ok. What I want to do is if a caller is a duplicate caller, then after the phone number is entered, it will check that table and automatically enter that caller's information in the table. I have each...
When I attempt to open one of my databases with ADO code in it I get the following error messsage after the database exits quickly:
"Cannot find the file ____________________
or one of its components. Make sure the path and filename are correct and that all the required libraries are...
I recently added the ADOX DDL and Security reference to 3 databases now when I attempt to open them, they exit immediately. I try to break the code but to no avail. Has anyone experienced this?
Thanks.
This my code:
Dim ctl As Control
Set ctl = Screen.ActiveControl
If ctl.ControlType = acComboBox Then
ctl.Dropdown
End If
It works. I just don't want to put it behind every combo box ctl on my form. Where can I put it on the form (globally) so that when the user...
This my code:
Dim ctl As Control
Set ctl = Screen.ActiveControl
If ctl.ControlType = acComboBox Then
ctl.Dropdown
End If
It works. I just don't want to put it behind every combo box ctl on my form. Where can I put it on the form (globally) so that when the user...
I need to have a piece of code look at all my records and re-number them if one has been deleted or if there is a gap in the numbering sequence.
It can do this whenever a form is closing or opening.
Has anyone ever had to do this before?
Thanks,
Suvane.
This is my code:
Private Sub txtTestDate_AfterUpdate()
Dim str_txtTestDate As Date
str_txtTestDate = Me!txtTestDate.value
Me!txtTestYear = Year(str_txtTestDate)
Me!txtModifiedTestDatebyMonth = Month(str_txtTestDate)
Me!txtTestDate1 = Me!txtTestDate
End Sub
I have a "non...
This is my code:
Private Sub lstBox_AfterUpdate()
DoCmd.GoToControl "txtBox"
Me.txtBox.value = lstBox.value & vbCrLf & Me.txtBox.Text
End Sub
My lstbox and txtbox are bound to the same controlsource in the table.
When I select something from the listbox, it is erasing the textbox...
I have set my database to compact on exit but I am being asked for the password again. My users are complaining about this. Has anyone else experienced this?
When I use the code:
Private Sub cmdZoom_Click()
SendKeys "+ {F2}", True
End Sub
I get an error message that "The SendKeys action requires the MS Access Utility Add-in to loaded". "Rerun MS Access of MS Office Setup to reinstall MS Access and the MS Access Utility...
I am using the DatePicker control to change a date in a form. I keep getting a runtime error 2101, that the "setting entered isn't valid for this property"
My code is:
Private Sub XDatePicker_Updated(Code As Integer)
Me.MyDate.value = Me.XDatePicker.value
XDatePicker.Visible = False...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.