Neophodno mi je da u bazu u kojoj radim unesem i redni broj posetioca, stim da ide u rasponu od 1 do 50. Kako da onemogucim da broj bude veci od zadatog. Takodje mi treba automatsko postavljanje rednog broja posetioca, ali da u razlicitom vremenu evidencije postoji mogucnost dupliranja broja. Da li je ovo moguce uciniti.
Automatsko postavljanje broja
Zaključano
Zakačeno
Za prvi deo pitanja nesto ovako
Private Sub Form_Current()
On Error GoTo Form_Current_Err
Dim MaxBroj As Integer
MaxBroj=Nz(DMax("[IDunosa]","ImeTabele),0)
If Me.NewRecord Then
If MaxBroj<50 Then
Me!IDUnosa.DefaultValue = MaxBroj+1
Else
MsgBox "Vec je uneto 50 zapisa"
End if
End If
Form_Current_Exit:
Exit Sub
Form_Current_Err:
MsgBox Error$
Resume Form_Current_Exit
End Sub
Drugi deo pitanja mi nije bas jasan.
Private Sub Form_Current()
On Error GoTo Form_Current_Err
Dim MaxBroj As Integer
MaxBroj=Nz(DMax("[IDunosa]","ImeTabele),0)
If Me.NewRecord Then
If MaxBroj<50 Then
Me!IDUnosa.DefaultValue = MaxBroj+1
Else
MsgBox "Vec je uneto 50 zapisa"
End if
End If
Form_Current_Exit:
Exit Sub
Form_Current_Err:
MsgBox Error$
Resume Form_Current_Exit
End Sub
Drugi deo pitanja mi nije bas jasan.