InfoPath 2003 / VBScript / Access (Function variable not Public?)

Wheels — Wed, 15 Apr 2009 19:05:39 GMT

Good afternoon.

I have the following code:

Public Function StoreFields()

Dim Lockbox, Cash_Deposit_Date, Batch_Number

Lockbox = XDocument.DOM.selectSingleNode("dfs:myFields/dfs:dataFields/d:tbl_GC100/@Lockbox").Text

Cash_Deposit_Date = XDocument.DOM.selectSingleNode("dfs:myFields/dfs:dataFields/d:tbl_GC100/@Cash_Deposit_Date").Text

Batch_Number = XDocument.DOM.selectSingleNode("dfs:myFields/dfs:dataFields/d:tbl_GC100/@Batch_Number").Text

End Function

Public Function PopulateFields()

XDocument.DOM.selectSingleNode("dfs:myFields/dfs:dataFields/d:tbl_GC100/@Lockbox").Text = Lockbox

XDocument.DOM.selectSingleNode("dfs:myFields/dfs:dataFields/d:tbl_GC100/@Cash_Deposit_Date").Text = Cash_Deposit_Date

XDocument.DOM.selectSingleNode("dfs:myFields/dfs:dataFields/d:tbl_GC100/@Batch_Number").Text = Batch_Number

End Function

Sub CTRL1_8_OnClick(eventObj) ' New Record button

End Sub

Sub CTRL10_7_OnClick(eventObj)

' Submit Button

StoreFields

XDocument.UI.Alert(Lockbox) 'Empty / Null Field

End Sub

I have tested the variables in the Functions and the are correct. What am I doing wrong here?

Thank you, WHEELS

Code