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

• #28269 Mittu88 senior tag Delila_1 #28261

  Új Válasz 2015-08-27 16:41:03 #28269

  Ú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

  

  Mittu88

  senior tag

  válasz Delila_1 #28261 üzenetére

  Nem bírtam ki, bent maradtam túlórában kipróbálni.
  Ennyit csináltam:

  On Error Goto 0

  fnev = ....
  Hiba:
  Set wb1 = Workbooks.Open(Filename:=fnev)
  If VarType(wb1) = vbError Then
  MsgBox "Az adatbázis pillanatnyilag használatban van, OK-ra kattintva újra próbálkozom a megnyitásával.", vbOKOnly, "Hiba!"
  GoTo Hiba:
  End If

  És ugyanúgy hibát dob. Mondjuk nem az adatfájlt nyitottam meg, hanem az asztalra másoltam és a másolatot nyitottam meg (de fájlnév egyezőség miatt ilyenkor is hibára fut, most meg ugye ez volt a cél).

  Szerk.: annyit próbáltam még, hogy átírtam On Error Resume Next-re, akkor feldobja a hibaüzenetet, de nem próbálkozik újból az Ok gombra kattintva.

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