Hi al,
I use this and I need to reset the number for every case. May be it's not the best code to do this but at least it works at a half
Could you please help?
type_media is short text, test is number
Thank's in advance
Private Sub type_media_AfterUpdate()
Select Case type_media
Case Is = "Movies photo"
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
Me.test = Nz(DMax("[Test]", "ST_media_ph", "ID_films = " & [ID_films]), 0) + 1
Me.file_name = ID_films & "_" & Me.test & ".jpg"
End If
Case Is = "Shooting photo"
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
Me.test = Nz(DMax("[Test]", "ST_media_ph", "ID_films = " & [ID_films]), 0) + 1
Me.file_name = ID_films & "_g" & Me.test & ".jpg"
End If
Case Is = "Poster photo"
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
Me.test = Nz(DMax("[Test]", "ST_media_ph", "ID_films = " & [ID_films]), 0) + 1
Me.file_name = ID_films & "_a" & Me.test & ".jpg"
End If
End Select
End Sub
I use this and I need to reset the number for every case. May be it's not the best code to do this but at least it works at a half

Could you please help?
type_media is short text, test is number
Thank's in advance
Private Sub type_media_AfterUpdate()
Select Case type_media
Case Is = "Movies photo"
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
Me.test = Nz(DMax("[Test]", "ST_media_ph", "ID_films = " & [ID_films]), 0) + 1
Me.file_name = ID_films & "_" & Me.test & ".jpg"
End If
Case Is = "Shooting photo"
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
Me.test = Nz(DMax("[Test]", "ST_media_ph", "ID_films = " & [ID_films]), 0) + 1
Me.file_name = ID_films & "_g" & Me.test & ".jpg"
End If
Case Is = "Poster photo"
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
Me.test = Nz(DMax("[Test]", "ST_media_ph", "ID_films = " & [ID_films]), 0) + 1
Me.file_name = ID_films & "_a" & Me.test & ".jpg"
End If
End Select
End Sub