Good Morning John, I tried the command with the same results. It appears to be a timing issue. When I set a break point and step through the commands one at a time everything works fine. I have tried changing the order of the two form commands with the same results. Stepping through the code works but real time both forms close.
There is no code in the LOAD or OPEN events of SySMaint. SysMaint consist of multiple command buttons to initiate different forms to allow for configuring Combo Box list used throughout the total application. The one associated with Duplicate Record View contains the following:
Dim rptFilter As Variant
On Error GoTo DuplicateRecordsErrorHandler
rptFilter = ""
'rptFilter = "(lngUserID = " & GetLoggedUser() & ")"
DoCmd.Close acForm, "frmSysMaint", acSaveNo
DoCmd.OpenForm "frmDuplicateLicense", acNormal, "", rptFilter
DuplicateRecords_Exit:
Exit Sub
DuplicateRecordsErrorHandler:
MsgBox Err.Description, vbCritical
Call LogError(Err.Number, Err.Description, "frmSysMaint-Cmd_DuplicateRecords_Click()")
Resume DuplicateRecords_Exit
Currently rptFilter is not be used.
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (3) |
Tidak ada komentar:
Posting Komentar