Add Records to Table according to selection of a field from a form.

[angekap]

Hi Guys,

I am trying to add records from a form which is based on a Table named DAYUSE and at the same time every time I add a record to that table specific data is added to another Table called RECEPTION but that is based on a criteria from a combo box named settlement. I've tried to modify the code but I must have got it wrong somewhere maybe an extra End If or I have to leave out the extra line "ElseIf Me![SETTLEMENT] = "VIVA" Then"

The VBA runs on exit after the last field AMOUNT. Can anyone help me Thanks !!!

Please use CODE TAGS!!!!

Private Sub AMOUNT_Exit(Cancel As Integer)
Dim Msg, Style, Title, Response, MyString
Msg = "CONFIRM TRANSACTION YES to Continue NO to Change/Edit Transaction ?"   ' Define message.
Style = vbYesNo + vbInformation + vbDefaultButton1 ' Define buttons.
Title = "FINALIZE SECURITY BOX ENTRY"  ' Define title.

Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then  ' User chose Yes.

Dim MyDB As Database, Myset As Recordset
Set MyDB = CurrentDb()
Set Myset = MyDB.OpenRecordset("RECEPTION", dbOpenTable)
If Me![SETTLEMENT] = "CASH" Then
Myset.AddNew
Myset![DEPARTMENT] = Me![DEPT]
Myset![USER] = Me![USER]
Myset![TYPE] = Me![ROOMNO]
Myset![DATE] = Me![DATEDAY]
Myset![IN] = Me![AMOUNT]
Myset.Update

ElseIf Me![SETTLEMENT] = "VIVA" Then

Myset.AddNew
Myset![DEPARTMENT] = Me![DEPT]
Myset![USER] = Me![USER]
Myset![TYPE] = Me![ROOMNO]
Myset![DATE] = Me![DATEDAY]
Myset![IN] = Me![AMOUNT]
Myset.Update
Myset.Close

ElseIf Me![SETTLEMENT] = "VIVA" Then

Myset.AddNew
Myset![DEPARTMENT] = "MONEY IN/OUT"
Myset![USER] = Me![USER]
Myset![TYPE] = "DAY USE CREDIT CARD VIVA"
Myset![DATE] = Me![DATEDAY]
Myset![OUT] = Me![AMOUNT]
Myset.Update
Myset.Close
End If

DoCmd.GoToRecord acDataForm, "DAYUSE", acNewRec
DoCmd.GoToControl "USER"


MyString = "Yes"    ' Perform some action.

    DoCmd.GoToControl "NAME"
    
    MyString = "No" ' Perform some action.
End If

End Sub

 

[Ranman256]

Normally you dont write code to add records, you just :
open the form, which is bound to the table , and enter data.

It saves automatically.

 

[isladogs]

Agree with Ranman. Avoid using recordsets where these aren't needed. Use bound forms instead.

However you have repeated your ElseIf Me!Settlement ="VIVA" Then line.
The second of those blocks will never run.
It should just be one word: Else