Dont Show Up In Table

[MdHaziq]

Hello
Forum,



I am using Microsoft Access 2016,.accdb, I am trying to create an inventory database for my department.
Currently I only 1 form which is frmMaster and only Username: Ang Password:kiwi and maybe afew more can access it.

I would like to not save/add records to table from frmLog when user enters invalid entry.

Reason being, the information will be confusing when report is generated from frmLog.

If there are any suggestions or help will be much appreciated.

Yours Sincerely,
Haziq

[June7]

Start with review of http://allenbrowne.com/AppInventory.html

Please post the code you are having issue with and the errors encountered or otherwise explain why it does not do what you want.

[MdHaziq]

Dear,
June

I have read the article again and again to understand.

I think I do get the idea.

But I do not know how to implement.

Could I just override the error value to 0 in frmLog?

If so,
how could I do it?

I will update my database soon to use DSum()

The code is:

Option Compare Database
Option Explicit




Private Sub btnAddNewRecord_Click()


Dim sSQL As String
Dim nQty As Long
nQty = DLookup("CurrentQty", "tblMaster1", "MasterIDPK=" & MasterIDFK)

Select Case Withdraw

Case True

If nQty - UserQty > 0 Then

sSQL = "UPDATE tblMaster1 Set CurrentQty = CurrentQty - " & [UserQty] & " WHERE MasterIDPK = " & [MasterIDFK]

End If

Case False

sSQL = "UPDATE tblMaster1 Set CurrentQty = CurrentQty + " & [UserQty] & " WHERE MasterIDPK = " & [MasterIDFK]

Case Else

MsgBox "No action taken, 'Withdraw' does not contain a valid entry", vbOKOnly, " I N P U T N E E D E D "

Exit Sub

End Select

If Len(sSQL) > 0 Then

CurrentDb.Execute sSQL, dbFailOnError

Else

MsgBox "No action taken, check your quantities for valid values", vbOKOnly, " C H E C K QTY V A L U E S "

DoCmd.Beep

End If

DoCmd.Close acForm, Me.Name


End Sub

Btw, how do I add code properly in this forum?

TIA

Haziq

[June7]

Use CODE tags, click the # icon then paste code between the tags.


The point is to not update the table with current quantity. Build queries that calculate the balance when needed.