Label Refresh

Janos · October 26th, 2009, 05:24 AM

Hi; I have a timer that executes my start button every 15 minutes which works fine but now I want the labels to refresh at the same time. Iâve played around a bit but and did search other posts but canât seem to get it right, hereâs what Iâve got.

Code:

Private Sub tmrMinute_Timer()
MinCount = MinCount + 1
Label1.Caption = MinCount
If (MinCount = 15) Then
Call cmdstart_Click
MinCount = 0
End If
lblMsgA.Refresh
lblMsgB.Refresh
lblMsgC.Refresh
lblMsgD.Refresh
End Sub

vb5prgrmr · October 26th, 2009, 09:14 AM

Those labels will only be refreshed after the code in the button has been executed. If you are wanting them to be updated while/from information from that code then you should put the refresh statements within that code or perhaps the dreaded by some, DoEvents.

Good Luck

Janos · October 28th, 2009, 04:48 AM

Thanks for that I have play around but can’t seem to get it right I don’t get the doevent that well where must I put it to do something because it’s not doing anything where it is now

Code:

Private Sub cmdstart_Click()
If lblMsgD <= 1000 Then
Dim olmahApp As Outlook.Application
   Set olmahApp = CreateObject("Outlook.Application")
    

   Dim olmahNs As Outlook.Namespace
   Set olmahNs = olmahApp.GetNamespace("MAPI")
   olmahNs.Logon
   

   Dim olmahMail As Outlook.MailItem
   Set olmahMail = olmahApp.CreateItem(olmahMailItem)
   olmahMail.To = "[email protected]"
   olmahMail.Subject = "VB TEST"
   olmahMail.Body = _
        "Good Day Magoveni Holdings" & ", " & vbCr & vbCr & vbTab & _
        "Please note that your credit is all most finish ." & ", " & vbCr & vbCr & vbTab & _
        "Many Thanks"
   olmahMail.Send
   olmahNs.Logoff
   Set olmahNs = Nothing
   Set olmahMail = Nothing
   Set olmahApp = Nothing
End If
DoEvents
lblMsgA.Refresh
End Sub


Private Sub tmrMinute_Timer()
MinCount = MinCount + 1
Label1.Caption = MinCount
If (MinCount = 10) Then
Call cmdstart_Click
MinCount = 0
End If
End Sub

Janos · October 28th, 2009, 07:46 AM

Hi, I think I know what my problem is I need to refresh the form or the Adodc because the label gets updated from the date base throw the Adodc any suggestions will be appreciated

vb5prgrmr · October 28th, 2009, 10:40 AM

Okay, if the label is bound to the ADODC then it is the ADODC that you need to refresh and if you do use this you will need to be able to keep track of where you are presently at in the recordset so you can move back to the current record you want to display...

Good Luck

Janos · October 29th, 2009, 01:35 AM

Thanks for the reply, Im only interested in the available credit left and the query in th record source provides that for me and display it in the label but this availble credit change every second so my goal is to refresh the ADODC lets say every 10 minutes. I’ve tried a couple of things but cant get it right how does n person go by doing this im lost here

Janos · October 29th, 2009, 08:38 AM

Thanks for the afford and the replays I got it sorted

Code:

 
adoeas.RecordSource = "select unit_id, (CREDIT_UPPER_LIMIT - CREDIT_ISSUED)Available_Credit from CREDIT_LIMIT where unit_id = 16251"
adoeas.Refresh