Emailid
Password
         
  
    Forgot password

New user Sign Up
 

 

Difficult to calculate the Text Box Inputs                            

Author Name Status Posted Time
Nazarina Habeeb 12/6/2007 2:57:50 AM
Author is Offline

Hi,
I have been learning VB now for about a week and thought I was doing ok. I have already done a calculation form (not as big as this) . I have volunteered myself to help a friend input her hours per day into a form, start time, end time and lunch time. Then the form will calculate the amount of hours she has done for her. Sending results to access is not an issue yet!

When I have entered the below code and tested it, it let's me input hours, I press calculate then says compile error, method or data member not found. I press ok and .text is highlighted. I have noticed when I delete .text and type it again only 4 options instead of loads comes up. So really it's not letting me selct it as .text.

I was up til 4 this morning with this so any help and I would be eternally grateful.

Dim SunTotal As Variant
Dim MonTotal As Variant
Dim TuesTotal As Variant
Dim WedsTotal As Variant
Dim Thurstotal As Variant
Dim FriTotal As Variant
Dim SatTotal As Variant

Dim HoursTotal As Variant

Dim valsunend As Variant
Dim valmonend As Variant
Dim valtuesend As Variant
Dim valwedsend As Variant
Dim valthursend As Variant
Dim valfriend As Variant
Dim valsatend As Variant

Dim valsunstart As Variant
Dim valmonstart As Variant
Dim valtuesstart As Variant
Dim valwedsstart As Variant
Dim valthursstart As Variant
Dim valfristart As Variant
Dim valsatstart As Variant

Dim valsunlunch As Variant
Dim valmonlunch As Variant
Dim valtueslunch As Variant
Dim valwedslunch As Variant
Dim valthurslunch As Variant
Dim valfrilunch As Variant
Dim valsatlunch As Variant

Private Sub CmdCalculate_Click()
valsunend = Val(TxtSunEnd.Text)
valmonend = Val(TxtMonEnd.Text)
valtuesend = Val(TxtTuesEnd.Text)
valwedsend = Val(TxtWedsEnd.Text)
valthursend = Val(TxtThursEnd.Text)
valfriend = Val(TxtFriEnd.Text)
valsatend = Val(TxtSatEnd.Text)

valsunstart = Val(TxtSunStart.Text)
valmonstart = Val(TxtMonStart.Text)
valtuesstart = Val(TxtTuesStart.Text)
valwedsstart = Val(TxtWedsStart.Text)
valthursstart = Val(TxtThursStart.Text)
valfristart = Val(TxtFriStart.Text)
valsatstart = Val(TxtSatStart.Text)

valsunlunch = Val(TxtSunLunch.Text)
valmonlunch = Val(TxtMonLunch.Text)
valtueslunch = Val(TxtTuesLunch.Text)
valwedslunch = Val(TxtWedsLunch.Text)
valthurslunch = Val(TxtThursLunch.Text)
valfrilunch = Val(TxtFriLunch.Text)
valsatlunch = Val(TxtSatLunch.Text)


SunTotal = valsunend - valsunstart - valsunlunch
MonTotal = valmonend - valmonstart - valmonlunch
TuesTotal = valtuesend - valtuesstart - valtueslunch
WedsTotal = valwedsend - valwedsstart - valwedslunch
Thurstotal = valthursend - valthursstart - valthurslunch
FriTotal = valfriend - valfristart - valfrilunch
SatTotal = valsatend - valsatstart - valsatlunch

HoursTotal = SunTotal + MonTotal + TuesTotal + WedsTotal + Thurstotal + FriTotal + SatTotal
LblHours.Caption = HoursTotal


End Sub 

Subject Author Status Date

Re: Difficult to calculate the Text Box Inputs

 Oottay Keisa 12/6/2007 11:25:45 PM

Re: Thanks for swift response

Nazarina Habeeb 12/6/2007 11:29:58 PM

Re: Same response

 Nazarina Habeeb 12/6/2007 11:31:03 PM

Re: Take Care that No TextBox Name is Repeated..

 Oottay Keisa 12/6/2007 11:33:34 PM

Re: Thank you so much it worked!

 Nazarina Habeeb 12/6/2007 11:34:41 PM
Related Forums
Reply to Hesus!!!
Template Tutorials
Yes, the Site Only!!
The PHP Zend File had been Cracked!!!
Any Way to Define a Method from Outside the Class





Home | About Us | Site Map | Privacy Policy