    (         ) .            (    )


            .

                    (   )
           

txtnewRquest
                          

txtempId
    

txtremaining          (        )
txtRassed          

  
   
tblemp
     Total
    empId

   
tblVications
   
used
   empId
         


           
                 
                


              


CODE  

Dim Rassed, used As Integer

Rassed = DLookup("[Total]", "tblemp", "[empId]=" & Me.txtempId)
used = DSum("[used]", "tblVications", "[empId]=" & Me.txtempId)


If (Rassed - used) < Me.txtnewRquest Then
   MsgBox "No Rassed available"
   Exit Sub
Else
   Me.txtRassed = Rassed
   Me.txtremaining = (Rassed - used)

   MsgBox " Vications Can be Taken !! "
End If
 
