[ davor.s @ 17.04.2009. 20:55 ] @
Imam skriptu koja radi insert podataka iz txt fajla u tabelu MS Accessa. Problem je što imam potrebu da se nakon promjene podataka u tabeli, forma sa podacima osvježi, odnosno da se otvori ako nije otvorena. Aplikacija na MS Accessu više manje stalno je dignuta tako da bi trebao nastavak koda za refreš forme "frmAlarm" ili neko drugo rješenje (osim da Access stalno radi Requery na formu)


Hvala unaprijed za svaku pomoć.

Code:
Set MyConn = CreateObject("ADODB.Connection")
MdbFilePath = "C:\Alarmi ulaza.mdb"
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
 
SQL_query = "qryInsert"
 
Set RS = MyConn.Execute(SQL_query)


'RS.Close
set RS = nothing  
MyConn.close
set MyConn = nothing
[ domaci_a_nas @ 18.04.2009. 13:33 ] @
Malo me čudi ovakvo pitanje...
Code:
Set MyConn = CreateObject("ADODB.Connection")
MdbFilePath = "C:\Alarmi ulaza.mdb"
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
 
SQL_query = "qryInsert"
 
Set RS = MyConn.Execute(SQL_query)


'RS.Close
set RS = nothing  
MyConn.close
set MyConn = nothing

' OVDE UBACIŠ IME FORME KOJU HOĆEŠ DA OSVEŽIŠ
MojaForma.Requery
[ Catch 22 @ 18.04.2009. 14:23 ] @
^ Samo dodaj i deo koda koji će da ispita da li je forma trenutno otvorena (ako nije, dovoljno je da je samo otvori)
;)
Citat:
davor.s:...da se nakon promjene podataka u tabeli, forma sa podacima osvježi, odnosno da se otvori ako nije otvorena.
[ domaci_a_nas @ 20.04.2009. 12:31 ] @
Pošteno, nisam pročitao celo pitanje, pošto je odgovor baš lagan pa sam se zaleteo Ipak, ispostavilo se da pitanje ima neki catch
Code:
Set MyConn = CreateObject("ADODB.Connection")
MdbFilePath = "C:\Alarmi ulaza.mdb"
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
 
SQL_query = "qryInsert"
 
Set RS = MyConn.Execute(SQL_query)


'RS.Close
set RS = nothing  
MyConn.close
set MyConn = nothing

' OVDE UBACIŠ IME FORME KOJU HOĆEŠ DA OSVEŽIŠ
If CurrentProject.AllForms("MojaForma").IsLoaded Then
MojaForma.Requery
Else
DoCmd.OpenForm "MojaForma"
End If
[ davor.s @ 20.04.2009. 16:58 ] @
Ovo ne radi. Možda nisam bio najjasniji, radi se o VB skripti koja se poziva izvan MS Access aplikacije.