[Acc97/VB] TSplt werkt niet naar behoren *

[Verwijderd]

dit ga je niet geloven

ik heb dus dit stukje code

Visual Basic .NET:

If Not IsNull(RSi.Fields("tekst1")) Then TSplt=Split(RSi.Fields("tekst1"),"-")
If Not UBound(TSplt) = 2 Then
  MsgBox ("Probleem in partij " + Str(y + 1) + " bij het importeren van
           Stok/Stiek/Clip"), vbCritical, Str(y + 1)
Else
  RS.Fields("stok") = TSplt(0) + " " + TSplt(1)
  RS.Fields("aant_p_m2") = TSplt(2)
End If

om de een of andere reden leverd UBound(TSplt) 2 op
(terwijl er toch echt 3 waardes uit split komen....)
maar het allermooiste komt nog...

Visual Basic .NET:

RS.Fields("aant_p_m2") = TSplt(2)

leverd deze foutmelding op.

Kan het element niet vinden in deze collectie. (Fout 3265)

nu zou dat niet echt een probleem wezen als TSplt(2) ook echt niet bestond....
maar er staat zelfs een waarde in !!!!!

vba proggen in access is echt te vreemd voor woorden....

[Coolhva]

Probeer eens van RSi.Fields("tekst1"), RSi.Fields("tekst1").Value te maken.

Onder ASP/VbScript is het zelfs Rsi.Items.Fields("tekst1").Value

[ Voor 41% gewijzigd door Coolhva op 27-06-2003 11:20 ]

[Creepy]

En hoe moeten we weten dat je split ook echt 3 oplevert? Dat moeten we van je aannemen?
En die melding dat het element niet gevonden kan worden gaat gok ik niet over TSplit(2) maar over aant_p_m2.

VBA te vreemd voor woorden? Nee hoor, waarschijnlijk is er toch echt iets niet helemaal ok met je code of query.

[Verwijderd]

@coolhva:
't werkt zo, de rest van de code werkt namelijk wel goed..

@creepy
de inhoud van tekst1 = Stab-stiek-16/m2
leverd mij op
tsplt(0)=Stab
tsplt(1)=Stiek
tsplt(2)=16/m2

[Verwijderd]

code:

Watch : - : TSplt :  : Variant/Variant(0 to 2) : Form_partij.Knop83_Click
          : TSplt(0) : "Stab" : Variant/String : Form_partij.Knop83_Click
          : TSplt(1) : "stiek" : Variant/String : Form_partij.Knop83_Click
          : TSplt(2) : "16/m2" : Variant/String : Form_partij.Knop83_Click

en access maar beweren dat TSplt(2) niet bestaat

[Gerco]

Verwijderd schreef op 27 June 2003 @ 11:17:
om de een of andere reden leverd UBound(TSplt) 2 op
(terwijl er toch echt 3 waardes uit split komen....)

Dat heb je weleens met 0 based arrays en is dus volkomen normaal. Er zitten elementen 0 t/m 2 in en de Upper Bound van het array is dus gewoon 2.

Visual Basic .NET:

RS.Fields("aant_p_m2") = TSplt(2)

Wederom volkomen normaal, access klaagt niet dat hij tSplt(2) niet kan vinden, maar dat hij het veld "aant_p_m2" niet kan vinden in je RecordSet.

[Verwijderd]

/me gaat zich ergens in een ver en afgelegen hoekje zitten schamen
(ik zou toch zweren dat ik het goed getypt had )

Visual Basic:

RS.Fields("aantal_p_m2") = TSplt(2)

doet het idd iets beter....

nouja... wel zullen het er maar op houden dat het bijna weekeind is

[Verwijderd]

Das zonde het weekend in met 1 klomp, ik zou er nog maar 1 breken

[curry684]

modbreak: lieve _AscII_, kun je de volgende keer proberen een *IETS* meer topic-omvattende titel te kiezen ipv 'nou breekt m'n klomp'? op deze manier staat dadelijk heel P&W vol met 'Vreemde knaller', 'Wazig probleem', 'Doetutnie' en 'Dit moet toch werken?' en daar schiet niemand wat mee op.

[Verwijderd]

sorry, zal er de volgende keer op letten