Dear John, excuse me please. You are right, I didn't included my previous message. My problem was: I have a pop up form with the code below and when I run it I get a message as: Error 13: Type mismatch. After Graham's explanation of your reply message I run the form again and when I debug the form it showed me "Set cbo = Forms(strcCallingForm)![CaseRecordNo]" sentence as the wrong one. I am using access 2003. How can I fix it? Thanks again.
Ruhi Kulez
My code is:
Private Sub Form_AfterUpdate()
'On Error GoTo Err_Handler
'Purpose: Requery the combo that may have called this in its DblClick
Dim cbo As ComboBox
Dim iErrCount As Integer
Const strcCallingForm = "frm_CaseRecord"
If CurrentProject.AllForms(strcCallingForm).IsLoaded Then
Set cbo = Forms(strcCallingForm)![CaseRecordNo]
cbo.Requery
End If
Exit_Handler:
Exit Sub
Err_Handler:
'Undo the combo if it has a partially entered value.
If (Err.Number = 2118) And (iErrCount < 3) And Not (cbo Is Nothing) Then
cbo.Undo
Resume
End If
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume Exit_Handler
End Sub
--- In MS_Access_Professionals@yahoogroups.com, "John Viescas" <john@...> wrote:
>
> rkulez-
>
> You didn't include the previous message screen nor all your code, so I have no
> clue what you're talking about. I handle dozens of messages a day, so I don't
> remember any previous discussion.
>
> John Viescas, author
> Microsoft Office Access 2010 Inside Out
> Microsoft Office Access 2007 Inside Out
> Building Microsoft Access Applications
> Microsoft Office Access 2003 Inside Out
> SQL Queries for Mere Mortals
> http://www.viescas.com/
> (Paris, France)
>
>
>
> -----Original Message-----
> From: MS_Access_Professionals@yahoogroups.com
> [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of rkulez
> Sent: Saturday, October 01, 2011 6:48 PM
> To: MS_Access_Professionals@yahoogroups.com
> Subject: Re: [MS_AccessPros] error 13 type mismatch
>
> John, I am not good with vb, must I write the code like?:
>
> Private Sub Form_AfterUpdate()
> 'On Error
> On Error GoTo Err_Handler
> 'Purpose: Requery the combo that may have called this in its DblClick
> Dim cbo As ComboBox
> Dim iErrCount As Integer
> Const strcCallingForm = "frm_CaseRecord"
> .......
> .........
> endsub
>
> I wrote this and tried to run it in vb window, but a form named "macros" opens.
> In this case I tried to save and open my pop up form but again I get the type
> mismatch error. I think I need more explanation.Thanks again.
>
>
>
> ------------------------------------
>
> Yahoo! Groups Links
>
Tidak ada komentar:
Posting Komentar