Fehler 13 - Type mismatch

[buzi]

Hallo zusammen,

was muss verkehrt sein damit folgender Code immer mit dem Fehler 13, Type missmatch, abbricht:

Code

 
	Dim variable As Variant
 
		If docBiokon.hasItem("bbb") Then
			Set variable = docBiokon.Getitemvalue("bbb")(0)
			MessageBox "Variable="+variable, 2, "Test"
		Else
			MessageBox "Variable not existing", 2, "Test"
		End If
 

[Driri]

Das dürfte wohl am "Set" liegen.

[Andrew Harder]

Was der Designer Client auch gemerkt hätte, wenn das kein Variant gewesen wäre.

Code

MessageBox "Variable="+variable, 2, "Test"

Rechnen statt verketten kann ich nicht empfehlen.

[buzi]

Hallo zusammen,

danke für den Hinweis. Als OO-Programmierer sind mir solche Konstrukte wie mit dem "Set" Bezeichner irgendwie immer noch nicht im Blick. So geht es jedenfalls:

Code

	Dim variable As Variant
 
		If docBiokon.hasItem("bbb") Then
			variable = docBiokon.Getitemvalue("bbb")(0)
			If variable = "" Then
				MessageBox "Variable empty", 2, "Test"
			Else
				MessageBox "Variable="+variable, 2, "Test"
			End If	
		End If

Andrew, ich stimme dir zu! Wie würdest du verketten statt rechnen?

[Driri]

In Script wird mit "&" verkettet.

[buzi]

Ach ja, danke - klaro.