X   Site Message
(Message will auto close in 2 seconds)

Welcome to UtterAccess! Please ( Login   or   Register )

Custom Search
   Reply to this topicStart new topic
> Ms Access Slider Control Setup, Access 2016    
post Dec 24 2017, 10:52 AM

Posts: 451
Joined: 18-November 07


This is a shortened description of what I want to do.
I have a table that is filled with emails.
I loop through the table deleting specific records as well as other records from other tables.
It takes some time and I thought a slider would at least give the user a feel for the time it will take to complete the tasks.
I don't need anything fancy so I downloaded the Access native slider control.

I cannot find any documentation on how to set up the control and use it with the loop set up to delete the records from the tables.

This is some of the code:

Dim objNS As Outlook.NameSpace: Set objNS = GetNamespace("MAPI")
    Dim olFolder As Outlook.MAPIFolder
    Set olFolder = objNS.GetDefaultFolder(olFolderInbox)
    Dim Item As Object
    Dim dbCurr As DAO.Database
    Dim rsCurr As DAO.Recordset
    Dim intRecCount As Integer
    Dim intEmailsUnDeleted As Integer
    Dim strFindFirst As String
    Dim dbFollowUp As DAO.Database
    Dim rsFollowUp As DAO.Recordset

    Set dbCurr = CurrentDb
    Set rsCurr = CurrentDb.OpenRecordset("Select * From tblDeleteContacts", dbOpenDynaset)
    If rsCurr.RecordCount = 0 Then
        MsgBox "tblDeleteContacts is empty"
        Exit Sub
    End If
    Set dbFollowUp = CurrentDb
    Set rsFollowUp = dbFollowUp.OpenRecordset("Select * From qryFollowUp", dbOpenDynaset)
    If rsFollowUp.RecordCount = 0 Then
        MsgBox "qryFollowUp has no records"
        Exit Sub
    End If

    intEmailsUnDeleted = 1

    While Not rsCurr.EOF
        rsFollowUp.FindFirst ("Email = '" & rsCurr!Email & "'")
        If Not (rsFollowUp.NoMatch) Then
                rsFollowUp!Closed_YN = False
        End If



Go to the top of the page
post Dec 24 2017, 11:02 AM

Posts: 451
Joined: 18-November 07

Sorry I bothered anyone, I figured out how to do the slider.

I initialized it to a starting value and incremented it as necessary.

Please disregard this issue.

Thank you,

Go to the top of the page
post Dec 24 2017, 12:13 PM

Posts: 451
Joined: 18-November 07

I do have one issue.

The slide reaches the end approximately 2 minutes before the process ends.

My settings are attached as SliderImage.JPG.

Attached File(s)
Attached File  SliderImage.jpg ( 20.75K )Number of downloads: 0
Go to the top of the page

Custom Search
RSSSearch   Top   Lo-Fi    23rd October 2018 - 06:35 AM