Blank Subform No Current Record Error

[JC3]

Hi all.

I have a small bug here which I can't seem to find a way round.

I have a subform setup to show Engineers assigned to a call. In the subform header I have a Command to add new Engineers. When this is pressed the form is changed to a Data Entry form to allow additions. This all works perfectly where there is an existing engineer on the Database.

The problem is with calls where there is no current engineer assigned.

With these calls I get an error popup saying "No Current Record" before the Data Entry screen comes up. Once the Data Entry screen comes up then an ID is assigned correctly and you can input fine so I am really just looking to see if there is a way to suppress the No Current Record popup.

Any suggestions appreciated.

JC

 

[Joshann]

I have the same problem

Hi all.

I have a small bug here which I can't seem to find a way round.

I have a subform setup to show Engineers assigned to a call. In the subform header I have a Command to add new Engineers. When this is pressed the form is changed to a Data Entry form to allow additions. This all works perfectly where there is an existing engineer on the Database.

The problem is with calls where there is no current engineer assigned.

With these calls I get an error popup saying "No Current Record" before the Data Entry screen comes up. Once the Data Entry screen comes up then an ID is assigned correctly and you can input fine so I am really just looking to see if there is a way to suppress the No Current Record popup.

Any suggestions appreciated.

JC

Does anyone know how to suppress this error (actually it's not really an error, because after it pops up, the data entry screen comes up)? I've tried error trapping and turning off system warnings, and nothing is working.

 

[JC3]

I tried using this code and while it didnt stop the error it did manage to hide it.

Private Sub Form_Error(DataErr As Integer, Response As Integer)

If DataErr = 3021 Then
    Response = acDataErrContinue
Else
    Response = acDataErrDisplay
End If

End Sub

JC

 

[Joshann]

That did the trick. Thanks so much!