ne1 help annotate my visual basic code??

[Mayo]

 
hi, ok i need a bit of help with visual basic in access, i have written the code etc with the help of a family friend who is now away out of the country for the time being so he can't help.

ok so here's my problem:
all my code is written etc but just found out on friday that every line of the code needs to be annotated specifying what it does etc and i mean EVERY line but seeing as i'm not that familiar with VBA i don't know what each little object does but know what each page of code does so i was wonderin if u guys cud annotate the code for me in BASIC terms plz it wud be much appreciated

here's the codes:

1.

Private Sub Quantity_LostFocus()
If CDbl(Quantity.Value) > CDbl([Amount in stock].Value) Then
MsgBox "Only " & [Amount in stock].Value & " in stock !!"
Quantity.Value = Quantity.OldValue
Exit Sub
End If
[Item Value].Value = CDbl(Quantity.Value) * CDbl([Selling Price].Value)


End Sub

2.

Private Sub lstProducts_DblClick(Cancel As Integer)

Dim dblItemValue As Double
Dim strSQL As String
Dim lngTransFK As Long
Dim lngProductFK As Long
Dim lngQuantity As Long

lngProductFK = lstProducts.Column(0)
lngTransFK = Forms![frm_Transactions].txtTransID.Value

If CLng(lstProducts.Column(3)) = 0 Then Exit Sub
lngQuantity = 1
dblItemValue = CDbl(lstProducts.Column(2))

strSQL = "INSERT INTO tbl_transprod (TransactionFK, ProductFK, Quantity, TransactionValue) VALUES (" _
& lngTransFK & ", " & lngProductFK & "," & lngQuantity & ", " & dblItemValue & ")"
CurrentDb().Execute strSQL

Forms![frm_Transactions].subfrm_transprod.Requery


End Sub

3.

Private Sub txtDesc_Change()

Dim strRowSource As String
Dim strDesc As String

strRowSource = "SELECT [ID], [Product Description], [Selling Price], [Amount in Stock] FROM tbl_products"
strDesc = Trim(txtDesc.Text)
If Len(strDesc) > 0 Then
strRowSource = strRowSource & " WHERE [Product Description] LIKE ""*" & strDesc & "*"""
End If
lstProducts.RowSource = strRowSource
lstProducts.Requery

End Sub


if u cud do annotations in a different colour plz, hope it's not too much to ask but is very important

[yoshter1]

Gah...it's been awhile since I've done VB(I'm a C++ kind of guy), but here goes:

1
Private Sub Quantity_LostFocus() - Declares the Sub

If CDbl(Quantity.Value) > CDbl([Amount in stock].Value) Then Uh, If the CDlb is less than the CDlb in the stock

Then do the following
MsgBox "Only " & [Amount in stock].Value & " in stock !!" opens a box saying that only the amount IN the stock is in THE stock(meaning you tried to exceed something)
Quantity.Value = Quantity.OldValue set the current value to equal the old value
Exit Sub Exits from this block of code
End If exits from the if statement

the below happens IF the CDbl is GREATER then the CDlb in the stock
[Item Value].Value = CDbl(Quantity.Value) * CDbl([Selling Price].Value)

End Sub ends sub

[yoshter1]

3.

Private Sub txtDesc_Change() declares sub

Dim strRowSource As String declares a string?
Dim strDesc As String declares a string?

below, I think that's for selecting a product and info from a database(in this case, a table[tbl_products])
strRowSource = "SELECT [ID], [Product Description], [Selling Price], [Amount in Stock] FROM tbl_products"

strDesc = Trim(txtDesc.Text) the, uh, description string is set to the description of a product you pulled up

If Len(strDesc) > 0 Then if the length of strDesc is greater than 0 (in other words, if there is something in it)

then do the following
strRowSource = strRowSource & " WHERE [Product Description] LIKE ""*" & strDesc & "*""" does something to the product info...

End If ends the if statement

does these IF Len(strDesc is < 0(if its empty)

lstProducts.RowSource = strRowSource sets the list of prodcts to the source???

lstProducts.Requery tries to find something???

End Subends this little block of code

[Mayo]

thanx m8, much appreciated