Idea is Needed To Calculate an Annual Leave

[Habibi]

It means I have to calculate the fields not the Value which is in the text Box that displayed from the Field itself ??

[RobDog888]

Could you explain more?

[Habibi]

Yes, What I mean to say. Is it possible calculating only the Objects rather than the DB Fields. I;E, In the First tab I have listed the all information for the employee inculding the Joining Date. Now, while the Joining Date is already assigned to an Object in the Form, is it possible to Calculate the Experiance from that Joining Date ? Not the Rs.Field("JoiningDate")

D = DateDiff("YYYY", Now, Me.txtJoiningDate.text)
txtExperiance.Text = D

What I want to know is once I calculated this Value, is it Possible to assign the Caluclated Field to Field in the Table ??

Or I have only one chooise is only Calculate the Fields ?? To assign the Value in to them ?

Many Thanks in advance,

Habibalby

[RobDog888]

Yes, you can calculate from the values in the textboxes instead of querying the db.
Use something like this format...

Forms![Form1]![txtLeave].Value

[Habibi]

Yes, you can calculate from the values in the textboxes instead of querying the db.
Use something like this format...

Forms![Form1]![txtLeave].Value

Yes, I understood that it can be. But the Main Question is will it be possible to enter a Calculated Field into a Database Field ??

Example:

Total = Val(Text1.Text) * Val(Text2.Text)
Text3.Text = Total

Now is it possible to enter the Total into a Database Field?

Thanks Mate and Happy New Year.

Habibalby

[RobDog888]

Yes, but you can only go one way for a calculated value. If your calculating it
from your ex. then you would have a field in the table that would take the
Total value. If you are trying to take a calculated value and place it into two
fields then you cant unless you have a formula to reverse engineer the values.

HTH

[Habibi]

Yes, but you can only go one way for a calculated value. If your calculating it
from your ex. then you would have a field in the table that would take the
Total value. If you are trying to take a calculated value and place it into two
fields then you cant unless you have a formula to reverse engineer the values.

HTH

From you experiance, what you choose if you were me. Calculating the field taken this method:

Rs.Open "Data",Conn, .............,..............., adCmdTable
'Check for records returned
If rs.bof = False and rs.eof = False Then
    oD = DateDiff("YYYY", Now, Rs.Field("JoiningDate").Value)
    If Rs.Field("Experiance).Value = 4 Then 
        rsleave.fields("LeaveEntitled").Value = 21
    Else
        rsleave.fields("LeaveEntitled").Value = 28
    End If
    rsleave.update
Else
    msgbox "Error - no records returned!"
End If

If rs.state = adstateopen Then Rs.Close
If rsleave.state = adstateopen Then RsLeave.Close
Set rs = Nothing
Set rsleave = Nothing

or doring this example:

Total = Val(Text1.Text) * Val(Text2.Text)
Text3.Text = Total

Thanks for your gratest reply dude.

Habibalby