Available - Microsoft Access Account Balances Template


	Back to Account Balances Template Comments List

Upload Images @Reply Bookmark Link Email Next Unseen

Available

Eduardo Benaim

2 years ago

Richard:

I found that All Banks an Credit Cards show a "Balance" and "Available Credit" RIGHT AT THE BEGINING OF THEIR PAGE.

Actually these two variables are the ones most important to me. (maybe to you too).

I did some Tests reading the "Available Credit" and Calculating the "Pending", it works fine and "SAVES TIME".

Because "Actual" is a Calculated Field it can not be modified.

One way would be to Fix this would be to add a field such as ("AvailableCredit") to the "AccountT" table
and "AccountQ" query so one have an option to "Put value in Available Credit" and Calculate "Pending".
This would require to add a field to the "AccountT". These changes should oNly be done by you.

I WILL WAIT FOR YOUR MODIFICATIONS TO STAY CONSISTENT WITH YOUR TABLES AND CODE.

Please let me know your thoughts.

Eduardo Benaim OP @Reply

2 years ago

Richard, In the Mean time:

I created a Procedure Named "Delete Text Thru $ Back"

In my Case I look for "Available credit" and
Look back for a "$" Sign.
'-------------------------------------------------------
Example: Exact From the Bank text Follows:
'-------------------------------------------------------

Saphire (...3583)
My Chase Plan'

Pay card

More
Checkmark:You've scheduled multiple payments.
See Payment activity for more info.
Current balance
Details, opens dialog
$X,XXX.XX
Chase Sapphire Reserve
Oct 18, 2023
Payment due date
$0.00
Minimum payment due
$6,767.67
Interest saving balance
$XXXX.XX
Available credit
Transfer a balance
'---------------------------------------------------------

I am interested in the "Available credit" which is displayed
as $X,XXX.XX before the words "Available Credit".
So I have to Find "Available Credit" and LOOK BACK for "$"
Then "Find between" "$" and "." to Get The Number.

So this is what I do:
'---------------------------------------------------------
1 DeleteTextThruBack Available Credit
2 Find between $ .
3 Save the value
'---------------------------------------------------------
This is my Function:
Private Sub DeleteTextThruBack(S As String)

    Dim L As Long, I As Long, X As String, ShortPageText As String

    L = InStr(PageText, S)
    If L = 0 Then
        Status "Cannot find text to delete thru", True
        ScriptStatusOK = False
        Exit Sub
    End If
    '-------------------------------------------------------------------
'Add Characters to ShortPage until find "$" and use "I" to get "Page Text"
    For I = 1 To 30
        'Debug.Print I
        ShortPageText = Right(PageText, Len(PageText) - L - Len(S) + I)
        If Left(ShortPageText, 1) = "$" Then Exit For
    Next I
    '-------------------------------------------------------------------
    'Debug.Print I
    PageText = Right(PageText, Len(PageText) - L - Len(S) + I)

End Sub

Im sure you can come up with a better way tofind I. Please propose.

This thread is now CLOSED. If you wish to comment, start a NEW discussion in Account Balances Template.

Next Unseen