How to stop the attached Pop Up Box

[yus786]

When i'm working from my home PC - i dont get this

But when i'm working from my laptop i get the attached message everytime i click on my calendar

I think the code that sits behind it is

If IsNull(RecDetect) Then
    StrSQL = "INSERT INTO Attend ( AttStudent, AttDate, AttType ) " _
    & "SELECT " & Me![scrStudent] & " AS F1, #" _
    & Format(TDate, "mm/dd/yy") & "# AS F2, " & TypeAttend & " AS F3;"
    DoCmd.RunSQL StrSQL
Else
    StrSQL = "UPDATE Attend SET Attend.AttType = " & TypeAttend _
    & " WHERE (((Attend.AttStudent)=" & Me![scrStudent] & ") AND" _
    & "((Attend.AttDate)=#" & Format(TDate, "mm/dd/yy") & "#));"
    DoCmd.RunSQL StrSQL
End If

Anyway - i want to stop this popup box - how can this be done please?

 

[KenHigg]

I think you just do something like:

docmd.setwarnings false
code...

docmd.setwarnings true

 

[yus786]

I think you just do something like:

docmd.setwarnings false
code...

docmd.setwarnings true

Thanks Ken that worked a treat.

But i'm still finding it difficult to understand why the same DB would work differently on 2 PC's

 

[KenHigg]

Yeah that is a good question - Wonder if it's a difference between workstations under Option>Edit>Confirm>Record Changes

??