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

• martonx veterán

  #1818

  #1817 stigma

  2012-08-06 21:36:48

  Új Válasz

  Ú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

  

  martonx

  veterán

  #1817 stigma

  #1817 stigma

  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.

  Amit írtál kódot nem tűnik rossznak, szóval nem igazán értem, hogy most mi is a bajod?
  Hogy kell bezárni a form-ot, a msgbox után? Vagy mit szeretnél tudni?
  Esetedben abszolút nem kell az on error-okkal szórakozni. Simán használod az IsDate függvényt, és ennek értelmében vagy hibát jelzel vissza a felhasználónak vag futtatod a kódot.

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