Khalil Islamzada
Registered User.
- Local time
- Today, 18:56
- Joined
- Jul 16, 2012
- Messages
- 49
Dear all:
I have below code;
Private Sub CusCard_No_AfterUpdate()
Dim lngBillNo As Long
Dim lngOldMeter As Long
lngBillNo = Nz(DLast("[Trn_No]", "Water_Journal", "Cus_Card_No=" & Me.Cus_Card_No), 0)
lngOldMeter = Nz(DLookup("[Current_Meter_No]", "Water_Journal", "[Trn_No]=" & lngBillNo), 0)
Me.Previous_Meter_No = lngOldMeter & ""
End Sub
It gets last meter number and working well, but if any record is done without any meter number the last meter number will be zero, while I want it to get the last number not zero.
Can anyone help me please????:banghead:
I have below code;
Private Sub CusCard_No_AfterUpdate()
Dim lngBillNo As Long
Dim lngOldMeter As Long
lngBillNo = Nz(DLast("[Trn_No]", "Water_Journal", "Cus_Card_No=" & Me.Cus_Card_No), 0)
lngOldMeter = Nz(DLookup("[Current_Meter_No]", "Water_Journal", "[Trn_No]=" & lngBillNo), 0)
Me.Previous_Meter_No = lngOldMeter & ""
End Sub
It gets last meter number and working well, but if any record is done without any meter number the last meter number will be zero, while I want it to get the last number not zero.
Can anyone help me please????:banghead: