Add the number "1" to a value

[carstenhdk]

Hi there


I have a value, which I would like to generate some function for

[Teamnumber] + 1


So, if the teamnumber is 55, the result will be 56. I plan to do this in the feild in a form shown in design view. I am using a danish version, but I think the feild in properties is called "control element source" - directly translated. Is that possible?




/Carsten

[Datagopherdan]

Why do you need to add 1? Is this for a new record? If so, you can just use an auto-id field. If it's for some other purpose on the same record in a different field then you can do something like this.

dim intID as Integer
If IsNull(Me!Teamnumber) Then
    Exit Sub
End If
 
intID=Me!Teamnumber
Me!MyField=intID + 1

[maximus]

if you will Like to create a Function you can copy this in a module and save this in your database:

Option Compare Database
Dim MyTeamNumber As Integer
Dim MyIncrement As Integer

Function Increment(MyTeamNumber, MyIncrement) As Integer
If IsNull(MyTeamNumber) Then Exit Function
Increment = MyTeamNumber + MyIncrement
End Function


The syntax to use this Function will be:
Increment([Field To Add Number To],The Number To add)
e.g. If I want to add 1 to Team Number:
Increment([Team Number],1)

This will be sufficent.

[maximus]

if your problem is solved mark the thread solved.

[maximus]

if your problem is solved mark the thread solved.

[carstenhdk]

Why do you need to add 1? Is this for a new record? If so, you can just use an auto-id field. If it's for some other purpose on the same record in a different field then you can do something like this.

dim intID as Integer
If IsNull(Me!Teamnumber) Then
    Exit Sub
End If
 
intID=Me!Teamnumber
Me!MyField=intID + 1

I have a form where I make new students entries. The students are a part of a team, so the AutoID is not an option. I believe, that the function should find the biggest number in the column and add one to the number. It´s kinda like the AutoID, but it will be the same number for the amount of students entered in that form.

[Datagopherdan]

So, you're saying that the students are assigned to a "Team". I have a database on my website that might be similar to what you're doing. Instead of teams though, it's setup as assigning students to companies. Theres no type of function to add 1 to each student though. I'm not really sure why you would need this. You would just setup a relationship between the unique identifier in the "Teams" table and the foreign key in the students table.

I have a form where I make new students entries. The students are a part of a team, so the AutoID is not an option. I believe, that the function should find the biggest number in the column and add one to the number. It´s kinda like the AutoID, but it will be the same number for the amount of students entered in that form.

[maximus]

This is what I have done.

I have used a simple form. It is continuous form. When ever you open the form the team number adds 1 to the previous number. Its the same for all the entries that you make in the form. When you close the form and reopen it again 1 is added to the last team number.

e.g. When you open for the First time team number is 1. You enter 10 names in the form and for all of them the team number id 1. When you close the form and reopen it again the Team number is 11 and for all the entries that you make the TeamNumber is 11.

see if this is what you required.

attached a mdb file for your reference.

[maximus]

You can Hide the textbox in the form footer.

Code used:

Private Sub Form_Open(Cancel As Integer)
Dim intNumber As Integer
intNumber = IIf(IsNull(DMax("[TeamNumber]", "Table1")), 1, DMax("[TeamNumber]", "Table1") + 1)
Me.Text8 = intNumber
End Sub

Private Sub StudentName_AfterUpdate()
Me.TeamNumber = Me.Text8
End Sub