[VB] 2-Dropdown list / readonly / null invoeren

[Verwijderd]

He,

Ik heb een formulier met een aantal comboboxen (2-Dropdown list) maar je hoeft ze niet perse intevullen. Hij mag ook leeg blijven.

code:

PC_SCORE_Rec.AddNew
PC_SCORE_Rec(0) = txtProjectNumber.Text
PC_SCORE_Rec(1) = Combo1.Text
PC_SCORE_Rec(2) = Combo2.Text
PC_SCORE_Rec(3) = Combo3.Text
PC_SCORE_Rec(4) = Combo4.Text
PC_SCORE_Rec(5) = Combo5.Text
PC_SCORE_Rec(6) = Combo6.Text
PC_SCORE_Rec(7) = Text1.Text
PC_SCORE_Rec.Update

Wanneer ik niks selecteer krijg ik de volgende error:
Run-time error 383 'Text' property is readonly

Op het eerste lege veld.
Hoe kan ik dit oplossen

[Verwijderd]

Kan je niet kijken of .ListIndex <> -1 is Bij -1 is er namelijk niets ingevuld.

[Verwijderd]

Ja weet ik. Maar dat mag ook. je mag niks invullen.
Alleen de database/vb reageert dan vreemd.

In Access heb ik aangegeven dat de allow zero length=yes

[Verwijderd]

Hij crasht aan je foutmelding te zien, niet op de de database, maar op de combobox. Dus als je 'Combo1.Text' vervangt door 'IIf(Combo1.ListIndex = -1, "", Combo1.Text)', werkt het mischien wel .

[Verwijderd]

Op dinsdag 16 april 2002 18:00 schreef bjanssen het volgende: ....Iets hiervoor...

code:

PC_SCORE_Rec.AddNew
PC_SCORE_Rec(0) = txtProjectNumber.Text
PC_SCORE_Rec(1) = IIf(Combo1.ListIndex = -1, Null, Combo1.Text)
PC_SCORE_Rec(2) = IIf(Combo2.ListIndex = -1, Null, Combo2.Text)
PC_SCORE_Rec(3) = IIf(Combo3.ListIndex = -1, Null, Combo3.Text)
PC_SCORE_Rec(4) = IIf(Combo4.ListIndex = -1, Null, Combo4.Text)
PC_SCORE_Rec(5) = IIf(Combo5.ListIndex = -1, Null, Combo5.Text)
PC_SCORE_Rec(6) = IIf(Combo6.ListIndex = -1, Null, Combo6.Text)
PC_SCORE_Rec(7) = Text1.Text
PC_SCORE_Rec.Update

....Iets hierna...

Geen mooie oplossing, maar 't werkt wel

[edit] Ben wel aan het klooien, was een zware dag...:Z [edit]

[Verwijderd]

Op dinsdag 16 april 2002 19:03 schreef MurphysLaw het volgende:

[..]

Geen mooie oplossing, maar 't werkt wel

[edit] En ik typ niet snel genoeg zie ik [edit]

[Verwijderd]

Op dinsdag 16 april 2002 19:03 schreef MurphysLaw het volgende:

[..]

Geen mooie oplossing, maar 't werkt wel

[edit] Ben wel aan het klooien, was een zware dag... [edit]

[Verwijderd]

Ja, aleen nu knalt hij er eerder uit.

code:

  ' Check to see you are on NULL Pointer
      If PC_SCORE_Rec.EOF Or PC_SCORE_Rec.BOF Then

          Dim strBuffer1 As String
          .....
          Dim strBuffer7 As String
          

          ' Save what was typed into the text box into memory
          strBuffer1 = Combo1.Text
          .....
          strBuffer7 = Text1.Text

          ' Restore text box value to the original record contents
          ' in this case, that is NULL
          Data2.UpdateControls

          ' Add a new blank record
          PC_SCORE_Rec.AddNew

          ' Restore what has been typed from memory to text box
          Combo1.Text = strBuffer1
          .....
          Text1.Text = strBuffer7

          ' Save the current record we are on and Add a new blank
          ' record
          PC_SCORE_Rec.AddNew

Hij knalt er nu na de Restore what has been typed from memory to text box uit


Hier is het nog steeds een zware dag (Cleveland) Het is hier 30C en geen airco!

edit:
vergeten te vertellen waar