Recent content by arkadis

Finally! In order to avoid problems with missing nodes we need the following code! A function in a module: Public Function xNothingNode(varN As Variant) If varN Is Nothing Then xNothingNode = 0 Else xNothingNode = varN.TEXT End If End Function And this is how we use the function in...

No i am working on both issues. 1) tags having no data 2) process child nodes to create ado (in memory) temporary recordset

I have the following SOAP-XML response and i wand to load this currecnt xml each time the form witch holds the listbox loads. Any idea? I have a function called WBs_conn witch gives me the response text. Some fields in XML response might be missing from time to time The XML response. <?xml...

No it is not. Actual i trying to find a way to create array list from this xml response.

It does't seem to like this.

It does't seem to like this. I Receive an error 450 -> wrong number of arguments or invalid property assignment When i post it like this-> Set nMEASUREMENT = Nz(xmlDoc.getElementsByTagName("MEASUREMENT"), "") Or Set nMEASUREMENT = Nz(xmlDoc.getElementsByTagName("MEASUREMENT"), 0)

Do you mean like this ? Set nMEASURMENT = Nz(xmlDoc.getElementsByTagName("MEASURMENT"),0)

Hey guys i'm attaching a SOAP request/response i'm working with. Code breaks when xml TAG is missing at the end of my code. How can i manage this problem with NULL values???? Set xmlDoc = CreateObject("Microsoft.XMLDOM") xmlDoc.SetProperty "SelectionLanguage", "XPath" xmlDoc.async = False...

Finally 2 days of nightmare gave me the right result. Here's the code for anyone who has similar problem. Function rs() Dim MM As String Dim rstB As Recordset Dim Par1 As Integer Par1 = 1360 Dim Par2 As String Par2 = "dbKA" Dim sSql As String Const cQUOTE =...

I had more that i need parentheses in my code. :banghead: I am now getting a 3061 Error Too few parameters. Expected 2. Any idea what it can be? Function rs() Dim MM As String Dim rstB As Recordset Dim Par1 As Integer Par1 = 1360 Dim Par2 As String Par2 = "dbKA" Dim...

I changed the Par1 to integer and removed the on error. I am still receiving the same error with all the query highlighted. Any advice?

Hey guys i'm trying to write sql query in vba module and i'm getting all the time a syntax error 3075. What is wrong with my code? Function rs() On Error Resume Next Dim MM As String Dim rstB As Recordset Dim Par1 As String Par1 = 1360 Dim Par2 As String Par2 = "dbKA"...

If i have a variable in a module "Public UserID As Long" and i declarer it through login form @ startup UserID = Me.UserID. Will Access keep this value during all session until i close the db? If i understand correctly.. 1) If i declare it in a MODULE then i can use it during all session...

Finally Works! This module is to distribute costs based on FIFO method. If someone needs detailed information fill free to ask.!!!! Option Compare Database Option Explicit Public eParty As Long Public eDate As Date Public eProductID As Long Public eRecID As Long Public eQty As Double Public...

This is a function to distribute all sales and purchase using FIFO "Accounting" method "First In - First Out If eQtyLeft = 0 Then 'Here i am cheking if the purchase covered all the expend FIFOexpend.MoveNext ElseIf eQtyLeft > 0 Then FIFOexpend.MoveNext...