Thank you very much, that code works very well. Best wishes.
Ruhi Kulez
--- In MS_Access_Professionals@yahoogroups.com, "John Viescas" <john@...> wrote:
>
> Do this:
>
> Private Sub Form_AfterUpdate()
>
> On Error GoTo Err_Handler
> 'Purpose: Requery the combo that may have called this in its DblClick
> Dim iErrCount As Integer
> Const strcCallingForm = "frm_CaseRecord"
>
> If CurrentProject.AllForms(strcCallingForm).IsLoaded Then
> Forms(strcCallingForm)![CaseRecordNo].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
>
>
> 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: Sunday, October 02, 2011 8:22 PM
> To: MS_Access_Professionals@yahoogroups.com
> Subject: Re: [MS_AccessPros] error 13 type mismatch
>
> 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
> >
>
>
>
>
> ------------------------------------
>
> Yahoo! Groups Links
>
Tidak ada komentar:
Posting Komentar