Can You Trick An Autonumber??!!
Aug 26, 2007
Is there a way to do this -
I have surgical operations which are each given an AutoNumber id. To simplify my example - a patient can have a leg operation, an arm operation, a neck operation. All these are linked to the PatientID but they all have a different surgicalID. All these operations are follow-up and the follow-up data is linked to the surgeryID.
I have now realised that the patient may come back for a repeat operation on the leg. Is there a way I can add this operation without it being assigned a newSurgicalID number. Obviously if I use add a new record it gives me a new AutoNumber. Any way around this?
Thanks for any help or suggestions
View Replies
ADVERTISEMENT
Apr 4, 2006
I open form and get parameter in the openArgs
I have a tabular Form
and I want change the color if the ID is aqual.
for example:
I open the form like this:
DoCmd.OpenForm "frmMessageShow", , , "fID=" & Me.fID, , , Me.AssighmentId
[the Me.AssighmentId is the openArgs]
I want in the second form to color the textbox if AssighmentId = me.openargs
I try do it:
If Me.AssighmentId = Me.OpenArgs Then
AssighmentId.BackColor = vbRed
End If
and its not work :mad:
is there is an option to do it?
thanks!
View 2 Replies
View Related
Mar 3, 2005
Make Table Name: tblnum
Fields:
1.num (for number)(Feed 1 to 99)
2.inword (for In words)(Feed One to Ninty Nine)
Make Module
Public Function inwords(amount As Variant) As String
Dim intlac As Integer
Dim intTh As Integer
Dim intHun As Integer
Dim intNum As Integer
Dim strLac As String
Dim strTh As String
Dim strHun As String
Dim strNum As String
Dim intlen As Integer
intlen = Len(amount)
Select Case intlen
Case 7
intlac = Left(amount, 2)
intTh = Mid(amount, 3, 2)
intHun = Mid(amount, 5, 1)
intNum = Right(amount, 2)
strLac = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intlac) & " Lac"
If intTh = 0 Then
strTh = ""
Else
strTh = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intTh) & " Thousand"
End If
If intHun = 0 Then
strHun = ""
Else
strHun = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intHun) & " Hundred"
End If
If intNum = 0 Then
strNum = ""
Else
strNum = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intNum)
End If
Case 6
intlac = Left(amount, 1)
intTh = Mid(amount, 2, 2)
intHun = Mid(amount, 4, 1)
intNum = Right(amount, 2)
strLac = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intlac) & " Lac"
If intTh = 0 Then
strTh = ""
Else
strTh = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intTh) & " Thousand"
End If
If intHun = 0 Then
strHun = ""
Else
strHun = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intHun) & " Hundred"
End If
If intNum = 0 Then
strNum = ""
Else
strNum = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intNum)
End If
Case 5
intTh = CInt(Left(amount, 2))
intHun = CInt(Mid(amount, 3, 1))
intNum = CInt(Right(amount, 2))
strTh = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intTh) & " Thousand"
If intHun = 0 Then
strHun = ""
Else
strHun = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intHun) & " Hundred"
End If
If intNum = 0 Then
strNum = ""
Else
strNum = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intNum)
End If
Case 4
intTh = CInt(Left(amount, 1))
intHun = CInt(Mid(amount, 2, 1))
intNum = CInt(Right(amount, 2))
strTh = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intTh) & " Thousand"
If intHun = 0 Then
strHun = ""
Else
strHun = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intHun) & " Hundred"
End If
If intNum = 0 Then
strNum = ""
Else
strNum = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intNum)
End If
Case 3
intHun = CInt(Left(amount, 1))
intNum = CInt(Right(amount, 2))
strHun = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intHun) & " Hundred"
If intNum = 0 Then
strNum = ""
Else
strNum = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intNum)
End If
Case 2
intNum = CInt(Right(amount, 2))
strNum = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intNum)
Case 1
intNum = CInt(Right(amount, 2))
strNum = DLookup("[inword]", "tblNum", "[tblNum]![num]=" & intNum)
End Select
inwords = strLac & " " & strTh & " " & strHun & " " & strNum & " Only"
End Function
Result = inwords(Number TextBox)
View 2 Replies
View Related
Nov 23, 2006
I found this snippet in a thread on a forum I don't subscribe to. I think I understand what it's saying but can anyone expand on the how's and why's please?
'Your front end maintains any attachments to the backend (ie first form open opens a recordset on the backend to force the backend ldb file to remain for the session - a known trick to speed up FE-BE setups) '
View 5 Replies
View Related
Nov 21, 2013
I have two tables linked to each other in one to many relationship. Instead of auto number, the date and shift (Text) is being used as the primary keys (Composite Primary Key). Here is the tables structures,
Payouts Table:
Date: Primary Key
Shift (Day or Night) : Primary Key
Bills Table:
Date: Primary Key
Shift (Day or Night): Primary Key
Autonumber: Primary Key
The tables Payouts and Bills has one to many relationship. One payout row can have many bills. The problem is that I want to start the Autonumber in bills table everyday from 1. As date and shift are different for every day so even if i start bills from 1 everyday, it wont make same primary key. I can do it manually but I want to make it automatically.
View 4 Replies
View Related
Mar 7, 2006
This is a useful trick: If you use a + to concatenate strings then it propogates nulls, if you use a & it doesn't...
So in the expression:
rec![LastName] & (", " + rec![FirstName])
If rec![FirstName] is Null then the expression (", " + rec![FirstName]) will be too, but the rec![LastName] & (Null) part won't be. This neatly drops the comma and space if the firstname is Null
Much better than:
rec![LastName] & iif(isnull(rec![FirstName]), "", ", " + rec![FirstName])
Steve.
View 6 Replies
View Related
Apr 20, 2006
Hello,
I have a question. I would like to be able to have an autonumber in the main form be applied to text boxes on the subform. So If I enter a name in the main form, an autonumber is generated, then that number is automatically entered into the boxes in my subform. My subform is a datasheet view with many records. I want all the records to have the autonumber generated in the main form. Is there a way to do this. Currently I have the boxes in the subform retrieve the autonumber by setting it equal to the autonumber text box on the main form. I would think that there would be an easier way to accomplish this seemingly simple task.
Thanks,
Adam
View 5 Replies
View Related
Feb 26, 2005
hello,
I am using SQL INSERT INTO where I insert values from my form Me!value1 etc
I have an autonumber in the table where I am using INSERT INTO, and when I exclude the autonumber it says that the number of columns does not match. I tried assigning a number manually in SQL and it works fine, but I can't use autonumber anymore. Is there a way to use autonumber and still do INSERT INTO or is there a way I can find the highest number and put the next highest in there through VBA?
Thanks in advance
View 2 Replies
View Related
Mar 7, 2005
In the main table of my d/base (just testing) - when a new record is entered using a form, the Autonumber Key ID becomes 5E+08.
Whats that imply ? There are some One-To-Many sub tables running off the main table, but I can't see how they could cause a problem.
NoVoiceLeft
View 4 Replies
View Related
May 26, 2005
How do I assign an autonumber to a table after the table is created. I know it ask after you create a table, but I answered no. Now I want it to assign each record an autonumber?
Thanks
View 1 Replies
View Related
Oct 9, 2005
Hi:
In the table,
I set ID (auto number),
How large the number? What is the limit number?
After it used, will it set back to 1 again?
Please let me know, thanks
Thanks a lot. Thanks.
View 2 Replies
View Related
Oct 13, 2005
Can any body help please
Is there any way you could renumber the autonumber, I have deleted some records in my table and the numbering orders have a gap and I would like the numbers to rearange automatically as the record or records are deleted.
Thank you.
View 2 Replies
View Related
Jun 2, 2006
Hello everybody,
I have a problem which I couldn't solve.
I have two tables. There're relationships is one to many (1:N).
The first one is Order and the other one is OrderItems.
Order(order_ID,...) and OrderItems(order_ID, lineitem,...).
The compound key of the relation OrderItems is order_ID and lineitem). What I exactly want? I want for every new Order_ID to have restarting count of lineitem.
example:
Order_ID, LineItem
1 1
1 2
1 3
Order_ID, LineItem
2 1
2 2
2 3
Thanks in advance.
View 1 Replies
View Related
Jan 11, 2007
I have a fairly small database I recently built that includes a particular table in which I meant for the primary key to be an Autonumber field. Apparently I forgot to set it this way and it currently sits as just a Number field. There are nine tables in this database with a couple hundred records in the main tables.
Is it possible to change this field to an Autonumber at this point? I have attempted to change it and it wants me to remove all the relationships. It also seems to be necessary to copy all the records out before reseting and then copy them all back in or it will not let me proceed.
Will doing it this way work? Is there a better way to do it? Please advise. Thanks.
View 1 Replies
View Related
Jun 5, 2007
Apologies if this has been asked before:
I have a small table in access 2003 with autonumbers. I managed to delete two records by mistake (autonumbers 23 & 24).
Is there any way to add them back in?? It is important as these numbers have been specific to those records for a couple of years.
Thanks in advance!
View 14 Replies
View Related
Jan 8, 2008
Good Morning,
Is it possible to have an autonumber field start at a given number, say 9999999 and count backwards?
I have a program that is generating badge ID numbers but I have a bunch that already exist and going backwards seems like the easiest way to mesh the 2.
View 3 Replies
View Related
Apr 2, 2008
Hai all,
My name is Narasareddy. i am using the MS ACCESS.
i am creating one table in design mode that time its allow the autonumber.
problem is i am create the table in rum time that time its not allow the autonumber.
any body help pls
Thanks & Regards
Narasareddy
View 2 Replies
View Related
Jul 20, 2005
I know you can have Access create an Auto-number field when you make a table....
Is there any way (via. code, or gui) to create an auto-number field within a query?
Thanks,
Gary
View 3 Replies
View Related
Sep 13, 2004
Id like to know if there is a way to create an autonumber field via a create table query. ive been searching a lot but without any success. any help would be appreciated.
View 1 Replies
View Related
Sep 14, 2005
Hello All.
I ahve 2 pages, one is a form and the other adds records to a database and prints the result out on the page which all work fine.
My problem is that I am unable to retrieve the autonumber created in the database and also display that.
Attached is my code and db, if anyone can help i would be very grateful.
Thanks
IanWillo.
View 9 Replies
View Related
Feb 15, 2006
is there anyway i can edit data in autonumber, or work around?
thanks
View 4 Replies
View Related
Apr 28, 2005
The record I was using as a key changed from an incremental to a random number. When I try to change it it won't allow me. I created a new project and imported the tables from the old one but all the attributes followed.
Short of starting from scratch, what can I do to change back to incremental autonumbering.
View 6 Replies
View Related
Jun 2, 2005
I am creating a database for my company to register projects. And each project needs to have a unique Project ID number, which (due to the conformity of another software tool) must be 4 characters long. The first character is a specific letter based on the group the project is created by, followed by a 3 digit number. So, for example, one of the group code letters is C, so the first "C Project" would have the ID 'C001'.
I want my database to assign these automatically after selecting the group.
Any ideas?
View 2 Replies
View Related
Nov 1, 2005
Hi,
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??
Thanks in advance.
View 5 Replies
View Related
Dec 16, 2005
I have an access database that I have used autonumber to assign order numbers for several years. I am now wanting to split the database and it is causing a problem with the order numbers. My situation is different than other posts because I delete orders from the table when I assign serial numbers, but I still do not want to use that order number.
Example:
Enter order number 1000
Enter order number 1001
Assign a serial number to Order 1001 and delete that record.
Enter a new order, need order number to be 1002
Because I delete 1001 but still do not want to use 1001, I can't use any max number function that I've seen in some other posts.
Could I make a table to somehow keep track of the next order number. I am not very knowledgeable about access so please bear with me.
View 4 Replies
View Related
Mar 27, 2006
Hi
I have genreated an autonumber in my table, at this is used as key. after importing 135 records it starts to jump 48 records before it creates a new. This means that with every record i import after 135 i have a space of 48 between each. So what sort of thing can cause this? and even better how do i fix it?
Best Regard
Roald
View 2 Replies
View Related
