Új hozzászólás Aktív témák

• #1817 stigma addikt

  Új Válasz 2012-08-06 19:35:04 #1817

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  stigma

  addikt

  Hali abban kérnék segítséget, hogy lenne egy kivételkezelés amihez help-et kérnék.
  3 textbox egy formon amiben egy adott dátum nap,hónap, év eredményét adom meg, majd azt a későbbiekben felhasználom, átalakítva dátummá.
  Ehhez kellene valami error kezelés, mégpedig ha rossz dátumot adok meg az adott metódus ne induljon el vagy dobjon ki hibát, elég lesz egy msgbox is.(itt az intervallumokat már lekezeltem)

  sub lista()
  ...
  on error goto errorhandler:
  datum= ev.text + "." + nap.text + "." + textbox1.text (Ebből lesz a dátum)
  if not isdate(datum) then
  msgbox("Nem dátum formátum")
  on error goto 0 'Dobjon üzenetet, álljon le a form futtatása
  elseif datum = " " then
  msgbox("Üres")
  on error goto 0 'Dobjon üzenetet, álljon le a form futtatása
  else
  folytatódjon a többi parancs lefutása
  itt próbáltam "on error resume next"-el, de sajnos semmit nem csinál.

  errorhandler:
  msgbox err.descreption ' ide leeht inkább switch case -el kellene error-t kezelnem
  exit sub

  Segítséget előre is köszönöm, bocs ha nagy hülyeséget kérdeztem csak eléggé fáradt vagyok és ma meg kéne oldanom a problémát.

Új hozzászólás Aktív témák