[VB] textbox refreshen

[Verwijderd]

Ik ben voor school een proggie aan het maken in VB.
Het is een rapport systeem dat gegevens uitleest van
een access database.

nu is alleen het probleem wanneer ik het gemiddelde cijfer
probeer uit te rekenen..

doormiddel van:

txtgemiddeld.Text = (CDbl(txtcijfer) + CDbl(txtcijfer2)) / 2

dan blijf ik het probleem houden dat wanneer ik een cijfer verander het gemiddelde niet gelijk meeveranderd. Dus dat de textbox txtgemiddeld niet gelijk meerefreshed.

de optie.. ik dacht zelf iets van

txtgemiddeld.refresh of
txtgemiddeld.text.refresh

maar dit hielp jammer genoeg niet.

===========================================================

Ditzelfde probleem heb ik wanneer ik een leerling uit de database verwijder doormiddel van het VB progje.. een button te koppelen met

DataFile.Recordset.Delete

Op scherm blijven de gegevens nog wel staan...
maar ondertussen is het record al wel verwijderd uit de access database.
Mijn vraag is hoe ik meerdere textboxen de volgende record in de database laat uitlezen wanneer een record wordt gewist..

Ik hoop dat iemand mij met deze problemen kan helpen.. Thnx Alvast. SnipSel

[kaandorp]

De textbox kun je automatisch laten updaten door het stukje code "txtgemiddeld.Text = (CDbl(txtcijfer) + CDbl(txtcijfer2)) / 2" te plaatsen in het event OnChange van het betreffende textboxje.

Voor de database geldt dat het refreshen van de recordset voldoende zou moeten zijn.

[dusty]

Hou er rekening mee dat je zelf moet controleren dat er wel ECHT een getal staat!

[Verwijderd]

hmmm ik kan die OnChange event niet vinden

moetin de properties staan neem ik aan?

[kaandorp]

?!?!? Op school lopen toch ook leraren? Vraag eens aan die leraar of hij de basisdingen van VB wil uitleggen. Want volgens mij snap je de basisdingetjes al niet.

[Verwijderd]

neej bij ons @ school. is het van je hebt 3 maanden de tijd.
In deze tijd.. moet je een plan maken voor het schrijven van een programma en een programmeertaal kiezen. De rest zoek je zelf maar uit ,als het programma maar klaar hebt aan het eind van die 3 maanden. + dat je een duidelijke uitleg kan geven.

Sinds gister benk me beetje gaan verdiepen @ VB... dus het klopt wel aardig wat je zegt.. dak nog lang niet alles weet.. maarja ooit is toch de eerste keer he.

[johnwoo]

Nou, vooruit dan

code:

Option Explicit

Private Sub txtcijfer1_Change()
    If IsNumeric(txtcijfer1.Text) And IsNumeric(txtcijfer2.Text) Then
      txtgemiddelde.Text = Format((CDbl(txtcijfer1.Text) + _
         CDbl(txtcijfer2.Text)) / 2, "#0.00")
      txtgemiddelde.ForeColor = vbButtonText
    Else
      txtgemiddelde.Text = "Ongeldige Invoer"
      txtgemiddelde.ForeColor = vbRed
    End If
End Sub

Private Sub txtcijfer2_Change()
    Call txtcijfer1_Change
End Sub

[Verwijderd]

hmm dit stukkie werkt niet lekkah.

Option Explicit
Private Sub txtcijfer1_Change()
If IsNumeric(txtcijfer1.Text) And IsNumeric(txtcijfer2.Text) Then
txtgemiddelde.Text = Format((CDbl(txtcijfer1.Text) + _
CDbl(txtcijfer2.Text)) / 2, "#0.00")
txtgemiddelde.ForeColor = vbButtonText
Else
txtgemiddelde.Text = "Ongeldige Invoer"
txtgemiddelde.ForeColor = vbRed
End If
End Sub
Private Sub txtcijfer2_Change()
Call txtcijfer1_Change
End Sub

Private Sub txtgemiddeld_Change()
Dim gem As Double
gem = (CDbl(txtcijfer1) + CDbl(txtcijfer2)) / 2
txtgemiddeld.Text = gem
End Sub


Runtime error 424 Object required

[johnwoo]

Op woensdag 06 maart 2002 12:10 schreef Snippie het volgende:
hmm dit stukkie werkt niet lekkah.

[...]

Runtime error 424 Object required

Waarschijnlijk heten je textboxes anders dan in dit stukje code
En voor txtgemiddeld hoef je het change event niet te doen; lijkt me dat het zelfs niet de bedoeling is dat de gebruiker het kan veranderen. Dit kun je voorkomen door de Locked property op True te zetten.

[Verwijderd]

He cool inderdaad

txtgemiddelde = txtgemiddeld!

script werkt prima!! thnx! he!