Insured patients have deductables and copays that usually reset on January 1st.
To be clear, a deductable of $500 is reduced each time the patient pays, but jumps back to $500 at the beginning of the next year.
The table containing patient records has a deductable field, where the form gets the initial value. I'll be making a running calculation of how much remains after each visit, but that calculation has to start over again each year.
Can anyone suggest code to do this or point me at something similar?
I have a little application that includes information about insurance deductables.
Deductables revert to their maximum on a date set by the insurance company, but that is USUALLY January 1.
So, for the control on the form where a new patient is set up, I have a date field where that "revert" date is to be entered.
Since it's usually January 1, I want a default to appear of January 1, of whatever the current year is. I've been looking through the Access help screens as well as this and other forums and have not found anything to suggest how to go about this.
Not being trained as a programmer, I'm coming here asking for some help.
Can anyone give me the appropriate code to generate the default date I want?
In my DataBase I want to reset the the records back to the first record. The only way to reset is to exit the form tehn go back in. Is there another way?
I have a autonumber function in my form, but i have deleted all the records and want to start again but the autonumber has not reset back to 1, is there a way to do this??
Ive written a program in .net and am currently using an access db as the backend. In the db I had 200 test records which i deleted to get the db ready for deployment. When i add a new record now the primary key on my "booking" table carries on from the old test number so 201.
Can I resest this so it starts back at #1 as once the db gets updated, the program i wrote then takes the data and updates the accounting system and uses the primary key as the invoice number and so I would like to start at 1.
I have an inventory split database. It has been working fine. I noticed when I try to enter a new record, it will not let me as it would create a duplicate record. It has actually started to use the autonumbers in the pk again reusing numbers that already exist starting at 1 and moving up sequentially.
How can I make it continue from where it left off or at least not duplicate any of the existing records. This database has many tables with a bunch of relationships. Thanks! Bill Hesson :confused:
just a small question. I have a database that assigns a unique 'audit id' to each entry. the ID is in the form of : DEA-[client prefix]-autonumber. Everything is working fine except the autonumber part. I have gaps in the numeric sequence. Ex: DEA-AAA-1, DEA-AAA-2, DEA-AAA-8, DEA-ABC17, etc.
is there a way that I can reset this autonumber so that it may look like this: Ex: DEA-AAA-1, DEA-AAA-2, DEA-AAA-3, DEA-ABC4, etc.
having tested my forms etc and now they all work! i would like to reset all the id numders back to 0 to start from scratch there are lots of links in the relationships how do i do that
Access 2007.. I have a check box in a form that I wish to reset using a command button. How do I achieve this or is there a more efficient way to make this happen?
1. Month (date field that shows only the current month only, ex: 04) 2. ItemNumber (created autonumber using =Dmax("ID","Table")+1 to retrieve the number from the previous record)
What I would like to do is everytime the current month changes I want the ItemNumber to reset to one.
I tried an If statement in the on current of the form If Month <> Date() Then ItemNumber = 1 Else ItemNumber = Null
However it resets for every new record created, which by the code makes sense. Is there any way to have do this one time until the change of date or is there another way to go?
I am currently working on a db to handle our FMLA time. I keep a continous form that totals the time used and subtracts that from the starting amount. One year after the time is used their total should grow. I am looking for some code that will not calculate any record that has a date beyond one year from the current date.
Hello all, I posted this earlier but got no response, please help!
I have the following event procedure in my Reset button on my form:
Private Sub cmdClearAll_Click() ' Clear All TextBoxes and Set all Check boxes to false (no tick) Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then ctl.Value = "" ElseIf ctl.ControlType = acCheckBox Then ctl.Value = False
End If Next ctl Set ctl = Nothing
End Sub
I also have a macro on my execute button which opens another form, Form B, runs the query behind the new form and closes the query.
I noticed that when I open my current form, Form A, click the reset button to clear all the fields and then fill in a few fields or leave the fields blank and then click the Execute button. The query does not run at all and Form B opens up blank with no data populated. Do you know why? But if close the form and reopen it and click the execute button, it works okay? Does anyone know what I am doing wrong?
I have a form I have created used to inventory items on trailers. User enters the trailer number, uses labeled checkboxes to indicate items on the trailer. I then added a save button to update the trailer database.
Now what I want it to do is clear all the checkboxes so a new number can be entered an start the process over for a new trailer.
Ive added this command to the save button.
Option Compare Database Option Explicit
Private Sub save_datta_Click() On Error GoTo Err_save_datta_Click
I have an unbound form with an option group among several other controls. I also have a "Clear" command button which resets the form and removes any entries in any controls.
How can I reset the value of an option group (with check boxes) so that none of the options are selected? VB does not allow me to assign values to either of the options independently.
I have a reset button that restores my combo boxes and list boxes to their default values. I want the 'on click' event on the reset button to first clear all the existing values before it resets them to their defaults. Does anybody know how can I do this?
The reason i need to know is because, if the user presses reset again, I get an error message because those values are already inserted in their respective boxes. And since I'm using queries from tables as the rowsources for these combo and listboxes, I get an error because it will not allow duplicate values. Yes, it's true that I don't want duplicate values so i just want the values cleared first. , so that the error doesn't have the chance to occur.
I have a form where i use 9 text fields named “Pallet” bound to 9 different tables (each table belongs to each terminal user, I create these tables due I have to perform differents actions and reports by person) i get the max value of each table by model and by user using the DMax function, the key point is to get the Max Value of this 9 fields just like this:
Field (Pallet)#1:108 Field (Pallet)#5:136 Field (Pallet)#9:159 Field (Pallet)#2:109 Field (Pallet)#6:138 Field (Pallet)#3:115 Field (Pallet)#7:132 Field (Pallet)#4:125 Field (Pallet)#8:138
Max Pallet: 159 I got this value creating the follow function...
Public Function fMax(ParamArray Variables()) Dim i As Integer
For i = 1 To UBound(Variables) If Variables(i) > Nz(fMax) Then fMax = Variables(i) End If Next i End Function
Based on this i open a controlled field in my form and wrote this function:
The BIG QUESTION is how can i reset to zero the criteria in my Dmax function to get the max value of each table??? Due each month the counting needs to be reset to zero because the issue is to get every month the production quantity of cell phones pallets produced, and if I let this function alone, it will give me the max pallet number regardless the month the key is to get the max value according the month…
I try this function but doesn't work:
=DMáx("[Escaneo_Gabriela]![Tarima]","[ Escaneo_Gabriela]"," [Escaneo_Gabriela]![Modelo] = 'G1500S' And Month([Escaneo_Gabriela]![Fecha])=Month(Date()) And Year([Escaneo_Gabriela]![Fecha])=Year(Date())")
I was thinking in open a field in each table named "Month" and create a function or module to give me the value only of the current month based on this field, but i'm not quite sure about the sintax, PLEASE HELP ME>>>!!!!!!!
