If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Checking for Blanks
I have a form with a close button with the following code.
Private Sub btnCCRClose_Click() On Error GoTo Err_btnCCRClose_Click Dim ctl As Control For Each ctl In Me.Detail.Controls If ctl.Tag = "Required" Then If Trim(ctl & "") = "" Then Cancel = True MsgBox ctl.Name & " is a Required Entry.", vbCritical, "REQUIRED ENTRY" ctl.SetFocus Exit Sub End If End If Next ctl DoCmd.Close Exit_btnCCRClose_Click: Exit Sub Err_btnCCRClose_Click: MsgBox Err.Description Resume Exit_btnCCRClose_Click End Sub It worked fine on Friday when I added the code, but now, I’m getting an error “Object doesn’t support this property or method”. I originally had the code in the BEFORE UPDATE event of the form. When I opened it and tried to close it leaving blank, only one “Required Entry” error would pop up and then it would close anyways, without saving the record. Can someone please help me or tell me what I’m doing wrong? Thanks. |
#2
|
|||
|
|||
Checking for Blanks
the before update event has a (Cancel as Integer) param. The cmd button
does not. Without looking at your code, I would guess part of the problem is the Cancel= True line. Remark it out and see. Damon "Trini Gal" wrote in message ... I have a form with a close button with the following code. Private Sub btnCCRClose_Click() On Error GoTo Err_btnCCRClose_Click Dim ctl As Control For Each ctl In Me.Detail.Controls If ctl.Tag = "Required" Then If Trim(ctl & "") = "" Then Cancel = True MsgBox ctl.Name & " is a Required Entry.", vbCritical, "REQUIRED ENTRY" ctl.SetFocus Exit Sub End If End If Next ctl DoCmd.Close Exit_btnCCRClose_Click: Exit Sub Err_btnCCRClose_Click: MsgBox Err.Description Resume Exit_btnCCRClose_Click End Sub It worked fine on Friday when I added the code, but now, I'm getting an error "Object doesn't support this property or method". I originally had the code in the BEFORE UPDATE event of the form. When I opened it and tried to close it leaving blank, only one "Required Entry" error would pop up and then it would close anyways, without saving the record. Can someone please help me or tell me what I'm doing wrong? Thanks. |
#3
|
|||
|
|||
Checking for Blanks
Never mind, I figured it out. I was SetFocus to a command button.
"Trini Gal" wrote: I have a form with a close button with the following code. Private Sub btnCCRClose_Click() On Error GoTo Err_btnCCRClose_Click Dim ctl As Control For Each ctl In Me.Detail.Controls If ctl.Tag = "Required" Then If Trim(ctl & "") = "" Then Cancel = True MsgBox ctl.Name & " is a Required Entry.", vbCritical, "REQUIRED ENTRY" ctl.SetFocus Exit Sub End If End If Next ctl DoCmd.Close Exit_btnCCRClose_Click: Exit Sub Err_btnCCRClose_Click: MsgBox Err.Description Resume Exit_btnCCRClose_Click End Sub It worked fine on Friday when I added the code, but now, I’m getting an error “Object doesn’t support this property or method”. I originally had the code in the BEFORE UPDATE event of the form. When I opened it and tried to close it leaving blank, only one “Required Entry” error would pop up and then it would close anyways, without saving the record. Can someone please help me or tell me what I’m doing wrong? Thanks. |
Thread Tools | |
Display Modes | |
|
|