Can I Requery Datasheet Form From VB? (a2k (9.0.6926) SP-3 Jet 4.0 SP-7)

[Support4John]

I have the following VB code that reads periodic phone modem transmissions and adds records to an Access Database.

There are approximately 20 records per day.

The operator has an Access datasheet form to view these records.

There is a Refresh button (Me.Form.Requery) on the datasheet form that the operator presses periodically to refresh the form and display any new records that the VB program may have added to the table since the last refresh..

All the above works OK except for the undesired manual form refresh.

Is there a way in the VB program and/or Access DB that I can refresh the Access DB datasheet form after each transmission?

Thanks, John

========================
Sub writerec()

Dim sqltext As String
Dim i As Integer
Dim filename As String
Dim Length As Integer
Dim rst As Recordset
On Error GoTo End_UpdateAccess

'*
'*-- Create Applicable records into access database.
'*
Set dbs = OpenDatabase(dbname)

Set rst = dbs.OpenRecordset("nfalls")
With rst
.AddNew
.Fields!ticket = Trim(ticket)
.Fields!Date = Format(xmitdate, "Short date")
.Fields!time1 = Format(time1, "Short time")
.Fields!oper = oper
.Fields!revticket = revticket

.Fields!email = email
.Fields![Cell Phone] = cellphone
.Fields![Request To] = reqto
.Fields!page = CInt(page)
.Fields![Pager Number] = pager
.Fields![Done By] = doneby
.Fields!completed = False
.Fields!TktTypPriority = TTPriority(tkttype)
DoEvents
.Update
.Close
End With
DoEvents
DisplayLog "U", " " + ticket + " Errors: " + Str(ProcessErrors)

dbs.Close

ResetWorkFields

Exit Sub
End_UpdateAccess:
g = Err.Description
t = Err.Source
e = Err.Number
ProcessErrors = ProcessErrors + 1
'db_error (g)
Resume Next
End Sub

[HansV]

How would the Access database know that a phone transmission has taken place?

[patt]

Why not Requery the form on a timed basis using the Timer event of the form itself.

[Support4John]

I'm guessing the VB program, after rst.Close could test to see if datasheet form is open,if open requery the form.

[Support4John]

I thought of this as last resort, I guess I could test form for five minutes of inactitivy then issue requery

[patt]

What you could do also is to set a value in another table when the main table has been added to, then in the On Timer event test if this value has changed and if so then requery the form. Set your timer to one minute and your form will be up to date to a minute. If you wish it to be more up to date set your Timer Interval to say 30000 (30 seconds), but this is up to you.

[Support4John]

(Very long piece of code moved to attachment by HansV. Preserves indentation too <img src=/S/grin.gif border=0 alt=grin width=15 height=15>)

Hi Pat

I ended up using Candace Tripp