< návrat zpět

MS Excel

Téma: pozastavení běhu programu rss

Zaslal/a lopi007 19.2.2018 12:47

hoj lidičkové, potřeboval bych radu. Z jednoho sešitu pomocí vba vytvořím novou aplikaci excelu a do ní načítám sešit. Do tohoto sešitu uložím data a pak tyto data zobrazuji. A potřeboval bych, aby sešit, z kterého toto volám, počkal, než uzavřu ten nový volaný sešit. Mně to prostě běží dál. A pokud nový sešit zavřu a uložím tak mi to hodí chybu za běhu programu.


'otevreme databazi v novem okne
sesitDatabaze.Workbooks.Open ThisWorkbook.Path & "\...\databaze.xlsm"
sesitDatabaze.ActiveWorkbook.Windows(1).Visible = True
sesitDatabaze.Visible = False

MsgBox "Mail nenalezen!"

Dim odpoved As Integer
odpoved = MsgBox("Chcete zapsat nový záznam do databáze?", vbYesNo, "INFO")

If odpoved = 6 Then
.
.
.

Dim navratHodnota As Integer
navratHodnota = 0

‘ODTUD MI TO DĚLÁ BORDEL
Do While (navratHodnota = 0)
navratHodnota = MsgBox("Data byla zapsána. :-)")
Loop
sesitDatabaze.Rows(oblastI_poslRadek).EntireRow.Select
AppActivate sesitDatabaze.ActiveWorkbook.Windows(1).Caption
sesitDatabaze.ActiveWorkbook.Save


chtěl jsem aby mi to zastavilo na msgboxu a po odkliknutí ok se mi teprve zobrazil ten záznam, ale ono to zobrazí záznam a na pozadí se mi bliká msgbox 6
‘

Zaslat odpověď >
elninoslov(20.2.2018 9:31)#039601
elninoslov
Zaznamenal som rovnaký problém. Ale možno by bolo dobré sem priložiť celé zošity (bez citlivých dát).citovat
lopi007(20.2.2018 15:29)#039616
avatar

elninoslov napsal/a:

Zaznamenal som rovnaký problém. Ale možno by bolo dobré sem priložiť celé zošity (bez citlivých dát).


Hm to by byla fuška 4 a ten sešit má cca 9 mega 9 a hlavně nemělo by se to zaciklit na té smyčce? 6 . Ještě mě napadlo tam dat form, ne msgBox.citovat
elninoslov(21.2.2018 21:47)#039654
elninoslov
Neviem ako presne kooperuje aplikačná vrstva kompilátoru VBA s OS a CPU, ale ak je tam skutočne nejaký tzv. špekulatívny výpočet (prediktívny), tak je slušná šanca, že to urobí aj za zobrazením Formulára, aj keď sa o tom nedozviete, ani keď si dáte Breakpoint. Treba vyskúšať, a ak to bude OK tak to bude asi kratšia cesta ako hľadať ťažko dostupné riešenie nepravidelného a ťažko odchytiteľného problému.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje