Solved

Endif and endwith problem

Posted on 2015-02-23
3
90 Views
Last Modified: 2015-02-23
What it wrong with this code?  When I try to compile I get a End With without With error.

    If Me.txtCredit > 0 Then
        Me.txtCredit = Me.txtCurrentRecordAmount
        With RS
        .FindFirst "[ID]=" & Me.txtID
        If .NoMatch = True Then
            .AddNew
            !RecordDate = Me.txtRecordDate
            !Description = Me.txtDescription
            !Credit = Me.txtNewRecordAmount
        End With
        End If
    End If

Open in new window

0
Comment
Question by:SteveL13
3 Comments
 
LVL 22

Accepted Solution

by:
Kelvin Sparks earned 167 total points
ID: 40626200
Try this  

 If Me.txtCredit > 0 Then
        Me.txtCredit = Me.txtCurrentRecordAmount
        With RS
        .FindFirst "[ID]=" & Me.txtID
        If .NoMatch = True Then
            .AddNew
            !RecordDate = Me.txtRecordDate
            !Description = Me.txtDescription
            !Credit = Me.txtNewRecordAmount
        End If
        End With

    End If
0
 
LVL 47

Assisted Solution

by:Dale Fye (Access MVP)
Dale Fye (Access MVP) earned 167 total points
ID: 40626203
You also forgot to write the record.

!Credit = Me.txtNewRecordAmound
.Update  '<= need this too
0
 
LVL 84

Assisted Solution

by:Scott McDaniel (Microsoft Access MVP - EE MVE )
Scott McDaniel (Microsoft Access MVP - EE MVE ) earned 166 total points
ID: 40626553
Kelvin has you straight, but essentially you must "nest" your If - End If block INSIDE of your With - End With block. The way you had it first was:

Open With Block
Open If Block
Close With Block
Close If Block

Instead, you should have done (as Kelvin showed):

Open With Block
Open If Block
Close If Block
Close With Block
0

Featured Post

Networking for the Cloud Era

Join Microsoft and Riverbed for a discussion and demonstration of enhancements to SteelConnect:
-One-click orchestration and cloud connectivity in Azure environments
-Tight integration of SD-WAN and WAN optimization capabilities
-Scalability and resiliency equal to a data center

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When you are entering numbers in a speadsheet, and don't remember what 6×7 is, you just type “=6*7" instead. It works in every cell! This is not so in Access. To enter the elusive 42 in a text box, you have to find a calculator, and then copy the re…
I see at least one EE question a week that pertains to using temporary tables in MS Access.  But surprisingly, I was unable to find a single article devoted solely to this topic. I don’t intend to describe all of the uses of temporary tables in t…
Using Microsoft Access, learn some simple rules for how to construct tables in a relational database. Split up all multi-value fields into single values: Split up fields that belong to other things into separate tables: Make sure that all record…
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.

828 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question