[VB] Verkeerde waarde

[Verwijderd]

frmcalender

code:

private sub
.........
frmPayment.Show vbModal

Hier roept hij dus ff frmPayment aan. Daar geef je txtpaid en cmdchange een waarde en die wil ik verder in frmpayment gebruiken voor de history

code:

Call Store_History(frmPayment.txtPaid, frmPayment.cmdCharge)
     
End Sub


Private Sub Store_History(ByVal txtPaid As String, ByVal cmdCharge As String)

On Error Resume Next

Pat_history_rec.AddNew
    Pat_history_rec(0) = frmPatientInfo.txtLName
    Pat_history_rec(1) = frmPatientInfo.txtFName
    Pat_history_rec(2) = frmPatientInfo.txtSS
    Pat_history_rec(3) = Pat_Class_Rec(4)
    Pat_history_rec(4) = Pat_Class_Rec(5)
    Pat_history_rec(5) = Pat_Class_Rec(0)
    Pat_history_rec(6) = Pat_Class_Rec(1)
    Pat_history_rec(7) = txtPaid
    Pat_history_rec(8) = Date
    Pat_history_rec(9) = cmdCharge
    Pat_history_rec.Update


end sub

frmpayment

code:

Public Sub cmdOK_Click()
   
       
          
   'Append patient to class list          '
    pat_enter_rec.AddNew                 '
    pat_enter_rec(0) = frmPatientInfo.txtLName '
    pat_enter_rec(1) = frmPatientInfo.txtFName '
    pat_enter_rec(2) = frmPatientInfo.txtSS    '
    pat_enter_rec(3) = Pat_Class_Rec(0)   '
    pat_enter_rec(4) = Pat_Class_Rec(1)   '
    pat_enter_rec(5) = Pat_Class_Rec(4)   '
    pat_enter_rec(6) = Pat_Class_Rec(5)   '
    pat_enter_rec(7) = txtPaid           '(getal dat je ingeeft) standaard 0
    pat_enter_rec(8) = Date           '
    pat_enter_rec(9) = cmdCharge           'Deze leest hij van list (yes/no) standaard yes
    pat_enter_rec.Update                 '
    
    
    
    Unload Me
 
End Sub

*********
ik hoop dat het duidelijk is.
Wat er nu gebeurt is dat history voor txtpaid de standaard waarde wegschijft (0) en voor cmdCharge ook (yes).
IPV bijvoorbeeld NO en 100.
dat snap ik niet.

Hoe kan ik dit oplossen?

alvasst bedankt.

Nivo is laag (nog).

[Verwijderd]

dit is niet echt duidelijk. Zet er eens [ code ] en [ /code ] omheen (zonder de spaties), dan wordt het al veel duidelijker

Bovendien snap ik niks van je probleem, leg dat eens duidelijk uit, en verwijder ook alle niet relevante regels svp. Waar gaat het fout?

[Verwijderd]

Ik denk dat je probleem een "timings-foutje" is.
Je laad eerst het form uit het geheugen, en vervolgens probeer je nog de waarden te achterhalen...

[steenz]

Is me niet helemaal duidelijk, maar als het idd zoals hierboven staat een timing probleem is moet je de variabelen doorgeven naar het andere formulier. Dat kan met public variabelen in een module of in het formulier van waaruit je die andere aanroept (die dus aan blijft staan).
Je kunt dan zoiets als Form1.MyVar = waarde zeggen.

Ik zag net wel ff dat je een Sub aanroept. Misschien moet je daar ook een Function van maken (dan wacht het formulier totdat die functie uitgevoerd is, bij een sub loopt alles gewoon door en kun je timing fouten krijgen. ik denk niet dat dat hier het probleem is, maar goed).