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

• #1821 stigma addikt martonx #1820

  Új Válasz 2012-08-09 17:15:41 #1821

  Ú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

  válasz martonx #1820 üzenetére

  
  Azért köszönöm, ha valami lesz még írni fogok.

• #1819 stigma addikt martonx #1818

  Új Válasz 2012-08-08 18:56:13 #1819

  Ú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

  válasz martonx #1818 üzenetére

  Útközben sikerült megoldanom a problémát, bocsesz.
  Amúgy lényegében a textbox-ok összerakása dátummá kellett, mivel ebből a dátumból építkezett tovább a moduljaim és maga a form ezért kellett volna hibakezelés rossz dátum esetén ne legyen gond, hanem inkább hibaleállás.

  Esetleg olyan kérdésem, lenne még, hogy lehet megoldani azt hogy a GetOpenFilename -el új ablak nyíljon meg ha egy fájlt kiválasztok?
  Probléma az hogy Reflection-ben ami WRQ rendszer, VBA van aláépítve de egy átírtabb verzió, amiben nincs Dialog metódus hogy előhívjam csak GetOpenFilename van ami ha megnyitok egy fájt az elérési útját adja vissza.
  fileToOpen = Application .GetOpenFilename("Text Files (*.txt), *.txt")

• #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