Hocam verilen hata da numara yok aşağıdaki yazıyor.
Birde hocam kullandığım uygulamanın tabloları (data) d sürücüsünde oradan alıyorum sorgular formlar c de
Compile error
User defined type not defined
tamama bastıktan sonra bu koda atıyor private satırı sarı, objXML As MSXML2.DOMDocument satırı ise mavi
Kod:
Private Function DecodeBase64(ByVal strData As String) As Byte()
Dim objXML As MSXML2.DOMDocument
Dim objNode As MSXML2.IXMLDOMElement
' help from MSXML
Set objXML = New MSXML2.DOMDocument
Set objNode = objXML.createElement("b64")
objNode.DataType = "bin.base64"
objNode.Text = strData
DecodeBase64 = objNode.nodeTypedValue
' thanks, bye
Set objNode = Nothing
Set objXML = Nothing
End Function