Refreš forme nakon inserta iz txt fajla sa VB skriptom

Refreš forme nakon inserta iz txt fajla sa VB skriptom 17.04.2009. u 21:55 · pre 213 meseci #1

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

Re: Refreš forme nakon inserta iz txt fajla sa VB skriptom 18.04.2009. u 14:33 · pre 213 meseci #2

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

Potpis

Ozbiljan i odgovoran mladić

Re: Refreš forme nakon inserta iz txt fajla sa VB skriptom 18.04.2009. u 15:23 · pre 213 meseci #3

^ 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.

Potpis

The 11th Hour: The forces blocking change

Re: Refreš forme nakon inserta iz txt fajla sa VB skriptom 20.04.2009. u 13:31 · pre 213 meseci #4

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

Potpis

Ozbiljan i odgovoran mladić

Re: Refreš forme nakon inserta iz txt fajla sa VB skriptom 20.04.2009. u 17:58 · pre 213 meseci #5

Ovo ne radi. Možda nisam bio najjasniji, radi se o VB skripti koja se poziva izvan MS Access aplikacije.

Forum kao aplikacija na telefonu

Srodne teme