I'm new in this Forum so I hope I'm posting in the correct place.
I'm working in a form but some how when I use the docmd for going to a record then the subroutine will start again. The interesting thing is that when I go to a new record the situation doesn't happen.
The code that I'm having is in a form that is a granchild form and will run when the form loads
My code is like this
EDIT: ADDED CODE TAGS - (also moved to correct topic) - The_Doc_Man
I'm working in a form but some how when I use the docmd for going to a record then the subroutine will start again. The interesting thing is that when I go to a new record the situation doesn't happen.
The code that I'm having is in a form that is a granchild form and will run when the form loads
My code is like this
Code:
Private Sub Form_Current()
Me.MinNetRateBox = ""
Me.MinSellingRateBox = ""
Me.Min45NetRateBox = ""
Me.Min45SellingRateBox = ""
Me.Plus45NetRateBox = ""
Me.Plus45SellingRateBox = ""
Me.Plus100NetRateBox = ""
Me.Plus100SellingRateBox = ""
Me.Plus300NetRateBox = ""
Me.Plus300SellingRateBox = ""
Me.Plus500NetRateBox = ""
Me.Plus500SellingRateBox = ""
Me.Plus1000NetRateBox = ""
Me.Plus1000SellingRateBox = ""
Me.PivotWeightBox = ""
Me.PivotNetRateBox = ""
Me.PivotSellingRateBox = ""
CountRec = DCount("*", "RateAirlineTable", "[RateAirlineQuotationid]=" & Forms![QuotationForm]![QuotationIDBox])
If CountRec >= 7 Then (Point A)
Me.AddRatesButton.Caption = "Save Rate"
Me.ClearAllButton.Caption = "Delete Rate"
Me.AirlineCombo.SetFocus
DoCmd.GoToRecord , , acGoTo, 2 (After here will return to point A)
Me.RateNumberBox = "Rate 01" (Point B)
Me.MinNetRateBox = DLookup("NetRate", "RateAirlineSlabTable", "RateAirlineid=" & Me.RateAirlineIDBox & "AND RateSlab='Min'")
Me.MinSellingRateBox = DLookup("SellingRate", "RateAirlineSlabTable", "RateAirlineid=" & Me.RateAirlineIDBox & "AND RateSlab='Min'")
Me.Min45NetRateBox = DLookup("NetRate", "RateAirlineSlabTable", "RateAirlineid=" & Me.RateAirlineIDBox & "AND RateSlab='-45'")
Me.Min45SellingRateBox = DLookup("SellingRate", "RateAirlineSlabTable", "RateAirlineid=" & Me.RateAirlineIDBox & "AND RateSlab='-45'")
Me.Plus45NetRateBox = DLookup("NetRate", "RateAirlineSlabTable", "RateAirlineid=" & Me.RateAirlineIDBox & "AND RateSlab='+45'")
Me.Plus45SellingRateBox = DLookup("SellingRate", "RateAirlineSlabTable", "RateAirlineid=" & Me.RateAirlineIDBox & "AND RateSlab='+45'")
Me.Plus100NetRateBox = DLookup("NetRate", "RateAirlineSlabTable", "RateAirlineid=" & Me.RateAirlineIDBox & "AND RateSlab='+100'")
Me.Plus100SellingRateBox = DLookup("SellingRate", "RateAirlineSlabTable", "RateAirlineid=" & Me.RateAirlineIDBox & "AND RateSlab='+100'")
Me.Plus300NetRateBox = DLookup("NetRate", "RateAirlineSlabTable", "RateAirlineid=" & Me.RateAirlineIDBox & "AND RateSlab='+300'")
Me.Plus300SellingRateBox = DLookup("SellingRate", "RateAirlineSlabTable", "RateAirlineid=" & Me.RateAirlineIDBox & "AND RateSlab='+300'")
Me.Plus500NetRateBox = DLookup("NetRate", "RateAirlineSlabTable", "RateAirlineid=" & Me.RateAirlineIDBox & "AND RateSlab='+500'")
Me.Plus500SellingRateBox = DLookup("SellingRate", "RateAirlineSlabTable", "RateAirlineid=" & Me.RateAirlineIDBox & "AND RateSlab='+500'")
Me.Plus1000NetRateBox = DLookup("NetRate", "RateAirlineSlabTable", "RateAirlineid=" & Me.RateAirlineIDBox & "AND RateSlab='+1000'")
Me.Plus1000SellingRateBox = DLookup("SellingRate", "RateAirlineSlabTable", "RateAirlineid=" & Me.RateAirlineIDBox & "AND RateSlab='+1000'")
Me.PivotWeightBox = DLookup("RateSlab", "RateAirlineSlabTable", "RateAirlineid=" & Me.RateAirlineIDBox & "AND RateSlab<>'Min'" & "AND RateSlab<>'-45'" & "AND RateSlab<>'+45'" & "AND RateSlab<>'+100'" & "AND RateSlab<>'+300'" & "AND RateSlab<>'+500'" & "AND RateSlab<>'+1000'")
Me.PivotNetRateBox = DLookup("NetRate", "RateAirlineSlabTable", "RateAirlineid=" & Me.RateAirlineIDBox & "AND RateSlab<>'Min'" & "AND RateSlab<>'-45'" & "AND RateSlab<>'+45'" & "AND RateSlab<>'+100'" & "AND RateSlab<>'+300'" & "AND RateSlab<>'+500'" & "AND RateSlab<>'+1000'")
Me.PivotSellingRateBox = DLookup("SellingRate", "RateAirlineSlabTable", "RateAirlineid=" & Me.RateAirlineIDBox & "AND RateSlab<>'Min'" & "AND RateSlab<>'-45'" & "AND RateSlab<>'+45'" & "AND RateSlab<>'+100'" & "AND RateSlab<>'+300'" & "AND RateSlab<>'+500'" & "AND RateSlab<>'+1000'")
(After finish will return to point B)
Else
Me.AddRatesButton.Caption = "Add Rate"
Me.ClearAllButton.Caption = "Clear All"
DoCmd.GoToRecord , , acNewRec
Me.RateNumberBox = "Add New Rates"
End If
End Sub
EDIT: ADDED CODE TAGS - (also moved to correct topic) - The_Doc_Man
Last edited by a moderator: