Also if there's a way to "clean it up" let me know...I'm somewhat new to VBA and don't know all the great shortcuts in code...
Private Sub PoundsCaught_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
Select Case KeyCode
'If after entering data into PoundsCaught you press the down arrow...
Case vbKeyDown
'This is code for what happens in the Day field
If Not Me.NewRecord Then Exit Sub
If Not (IsNull(Me![Text34].Tag) Or Me![Text34].Tag = "") Then
Me![Text34].Value = Me![Text34].Tag
[LiftDate] = [Forms]![frmCOMMERCIAL2]![Combo9] & "/" & [Text34] & "/" & Right([Forms]![frmCOMMERCIAL2]![Combo11], 2)
Me![Text34].Tag = Me![Text34].Value + 1
[Text34] = Null
End If
'This is code for what happens in the FeetFromSurface field...
If Not Me.NewRecord Then Exit Sub
If Not (IsNull(Me![FeetFromSurface].Tag) Or Me![FeetFromSurface].Tag = "") Then
Me![FeetFromSurface].Value = Me![FeetFromSurface].Tag
End If
'This is code for what happens in the NetLength field...
If Not Me.NewRecord Then Exit Sub
If Not (IsNull(Me![NetLength].Tag) Or Me![NetLength].Tag = "") Then
Me![NetLength].Value = Me![NetLength].Tag
End If
'This is code for what happens in the NightsSet field...
If Not Me.NewRecord Then Exit Sub
If Not (IsNull(Me![NightsSet].Tag) Or Me![NightsSet].Tag = "") Then
Me![NightsSet].Value = Me![NightsSet].Tag
End If
'This is code for filling in the appropriate fields with data from previous record...
[Text34].Value = [Text34].Tag + 1
[FeetFromSurface].Value = [FeetFromSurface].Tag
[NetLength].Value = [NetLength].Tag
[NightsSet].Value = [NightsSet].Tag
[Text34] = Null
End Select
End Sub