update querie

[frcastro]

Hi

I am building a protocol database.

I have a table where I have a automatic generated ID number. And I have the 4 types of protocol (A, B, C, D).

I have 4 fields that are "Number for A", "Number for B", "Number for C", "Number for D".

I want to make the first field in ID that has protocol A to be number 1 in "Number for A" and so on. The same thing for B, C and D.

Thanks!!

[Datagopherdan]

If I'm understanding you correctly, you want it to increment for each individual leter. For example, if you had the below rows.

A
A
B
B
C
C
C

You would want it to return as follows
1
2
1
2
1
2
3

If that's the case, you could try something like this.

dim intCountA as Integer
dim intMaxA as Integer

intCountA=DCount("*","MyTable","MyField='A'")

if intCountA > 0 then
intMaxA=DMax("[MyID]","MyTable","MyField='A'")
Me.MyID=intMaxA + 1
Else
Me.MyID=1
End if

You would do this for each one of the letters.

Hi

I am building a protocol database.

I have a table where I have a automatic generated ID number. And I have the 4 types of protocol (A, B, C, D).

I have 4 fields that are "Number for A", "Number for B", "Number for C", "Number for D".

I want to make the first field in ID that has protocol A to be number 1 in "Number for A" and so on. The same thing for B, C and D.

Thanks!!