mp3magas

MS Access visual basic programavimo problema

Rekomenduojami pranešimai

Sveiki,

 

Turiu problemėlę dirbant su Access'u

 

Turiu vat tokį kodą:

Private Sub Form_Current()
DoCmd.OpenForm "Techninė apžiūra Užklausa3"
A = Me.CurrentRecord
B = Me.Recordset.RecordCount
W = DCount("[NR]", "Techninė apžiūra Užklausa")

If Me.TA_statusas = "Baigiasi" Then
MsgBox ("Baigiasi " & Me.Valstybinis_numeris & " techninė apžiūra  " & Me.NR & " i " & W)
End If

If Me.NR < W Then
DoCmd.GoToRecord record:=acNext
End If


End Sub

Kuris patikrina formoje visus įrašus ir meta pranešimą jeigu Baigiasi techninė apžiūra kuriam nors automobiliui.

 

Problema tame, kad pasiekus paskutinį įrašą gaunu klaidą ir kiek išsiaiškinau ta klaida yra dėl to, kad atidarius paskutinį įrašą kodas vis tiek suveikia ir bando atidaryt vėl sekantį.

fDZ-appAq.png

If Me.NR < W Then
DoCmd.GoToRecord record:=acNext
End If

Ši kodo dalis turėtu išspresti šia problemą, bet kažkodėl nesuveikia.

 

Gal kas turit kokiu pasiūlymu ? 

Redagavo mp3magas

Dalintis šiuo pranešimu


Nuoroda į pranešimą
Dalintis kituose puslapiuose

Prisijunkite prie pokalbio

Jūs galite rašyti dabar, o registruotis vėliau. Jeigu turite paskyrą, prisijunkite dabar, kad rašytumėte iš savo paskyros.

Svečias
Parašykite atsakymą...

×   Įdėta kaip raiškusis tekstas.   Įdėti kaip grynąjį tekstą

  Only 75 emoji are allowed.

×   Nuorodos turinys įdėtas automatiškai.   Rodyti kaip įprastą nuorodą

×   Jūsų anksčiau įrašytas turinys buvo atkurtas.   Išvalyti redaktorių

×   You cannot paste images directly. Upload or insert images from URL.