Ms Access
-
#17
és akkor mi baj van?
szerintem azt kellene csinálni, hogy a következő rekordra lépésnél (2105-ös hibával tér vissza, ha egy indexelt mezőben két ugyanolyan rekord van) figyeljük ezt a hibaszámot, és megjelenítünk egy párbeszédablakot, hogy elbacta a tajszámot, valahogy így:
Private Sub ujrekordCommandbar()
'az újrekord parancsgomb végzi a következő rekordra
léptetést
On Error GoTo Hiba
'hibafigyelés elhelyezése, hiba esetén ugrás a címkére
DoCmd.GoToRecord , , acNewRec
'következő rekordra lépés parancssora
Hiba:
'hibakezelés címke
If err = 2105 Then
'2105-ös hiba, tehát nem lehet a követk. rekordra lépni, tudjuk miért!
Msgbox("Hibásan adta meg a tajszámot!", vbExclamation)
DoCmd.GoToControl "tajszammezo"
'a tajszám beviteli mezőre visszük a fókuszt
Exit sub
Else
Resume 0
' egyéb hibánál vissza a hibát kiváltó sorra
End If
End Sub