Private Declare Sub IGCS Lib "Wininet" Alias "InternetGetConnectedState" (f&, ByVal r&)
Dim f&
IGCS f, 0
If f And 2 Then
'jsem připojen
'... pracuji ...
Else
'například:
Application.Speech.Speak "Erohorvola", True
EndIfcitovat
Zaslal/a Dejwing 28.3.2018 10:47
Dobrý den / Ahoj
Hledám způsob, jak při výpadku wifi kdy se vytvoří duplikát viz příloha a není možno soubor uložit "ani ten původní" protože je záhadným způsobem neuložitelný...
Jediné makro co používám, tak je že z jednoho disku nahrávám data každých 10s a ukládám přes VBA, pokud není wifi, tak to udělá tuto duplikativní chybu, soubor taktéž ukládám na vzdálený disk.
Prosím o pomoc, aby se zásadně nevytvářel duplikát a aby v případě nenalezeni cesty a nemožnosti se uložit na disk bylo vše uděláno tak, aby => se počkalo a uložilo se za dalších 10s + načtli data data.
Také nevím jak vyřešit v případě odpojení wifi ukládání, obvykle to prostě nejde uložit a nabízí mi to uložit jako něco jiného, což je absolutně nežádoucí.
Děkuji za rady.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.