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 bkrike 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: *

  • Users: Survane
  • Content: Threads
  • Order by date
  1. Survane

    Time Bracket Code

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

    Dynamic Calculations In A Query

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

    Append Query Criteria - Continuous Form

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

    Append Query Criteria - Continuous Form

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

    Add option to option group after wizard completed

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

    Composite Parts To Lookup Primary Key

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

    Add New Record If Doesn't Exist

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

    ADO Database Opening / Exiting Error Msg

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

    ADOX DDL Reference

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

    Active Control .Dropdown

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

    Active Control .Dropdown

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

    Code To Make All Textboxes Null

    Is the code that will look at every txtbox on an open form and make the values null when a cmdbtn is pressed? Thanks.
  13. Survane

    Re-number records if one deleted

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

    Database Gets Error Accessing Network Connection On Network

    My database works fine locally but when put on the network, it errors out. Has anyone else had this problem? Thanks.
  15. Survane

    Text To Date Format

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

    Push value from lstbox to txtbox

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

    Autonumber Query Results

    Is there a way to autonumber the results of a select query? I want this to simulated the table autonumber function. Thanks.
  18. Survane

    Re-asked for database password on compact

    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?
  19. Survane

    SendKeys Action doesn't work

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

    ActiveX Control - DatePicker

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

Part and Inventory Search

Back
Top