Nz(Dmax(.....), 0)+1 doesn't work

[kost36]

Hi all,
Using the follow procedure I try to increase "test" +1 reseting the Dmax for every different od the three cases.
test is a number and type_media a short text fields
Tried also

Me.test = Nz(DMax("Test", "ST_media_ph", "ID_films = " & [ID_films]) & " And "type_media = " & Chr(34) & [type_media] & Chr(34)), 0) + 1
but it doesn't work too
Could anybody please help on that?

Many thank's




Private Sub type_media_AfterUpdate()
If Not IsNull(Me!test) Then
Me.test.Locked = True
Me.file_name.Locked = True
Else
Me.test.Locked = False
Me.file_name.Locked = False
End If
Select Case type_media
Case Is = "Movies photo"
Me.test = Nz(DMax("Test", "ST_media_ph", "ID_films = " & [ID_films]), 0) + 1
Me.file_name = ID_films & "_" & Me.test & ".jpg"
Case Is = "Shooting photo"
Me.test = Nz(DMax("Test", "ST_media_ph", "ID_films = " & [ID_films]), 0) + 1
Me.file_name = ID_films & "_g" & Me.test & ".jpg"
Case Is = "Poster photo"
Me.test = Nz(DMax("Test", "ST_media_ph", "ID_films = " & [ID_films]), 0) + 1
Me.file_name = ID_films & "_a" & Me.test & ".jpg"
End Select
End Sub

[kost36]

just solved
that makes the trick

many thank's for your time


Private Sub type_media_AfterUpdate()
If Not IsNull(Me!test) Then
Me.test.Locked = True
Me.file_name.Locked = True
Else
Me.test.Locked = False
Me.file_name.Locked = False
End If
Select Case type_media
Case Is = "Movies photo"
Me.test = Nz(DMax("[Test]", "ST_media_ph", "ID_films = " & [ID_films] & " and [type_media] = " & Chr(34) & Me.type_media & Chr(34))) + 1
Me.file_name = ID_films & "_" & Me.test & ".jpg"
Case Is = "Shooting photo"
'ID_films = Me.ID_films
Me.test = Nz(DMax("[Test]", "ST_media_ph", "ID_films = " & [ID_films] & " and [type_media] = " & Chr(34) & Me.type_media & Chr(34))) + 1
Me.file_name = ID_films & "_g" & Me.test & ".jpg"
Case Is = "Poster photo"
'ID_films = Me.ID_films
Me.test = Nz(DMax("[Test]", "ST_media_ph", "ID_films = " & [ID_films] & " and [type_media] = " & Chr(34) & Me.type_media & Chr(34))) + 1
Me.file_name = ID_films & "_a" & Me.test & ".jpg"
End Select
End Sub