Solved

Runtime Error 2447: Invalid use of the . (dot) or ! operator or invalid parentheses.

Posted on 2009-07-09
24
1,042 Views
Last Modified: 2013-11-27
FBPos is a text box.

I want to see if the two properties are the same. I understand I may need to invoke the Eval() function around the .Tag one, but first I need the compiler to stop vommiting.

So why does this line cause a run-time error?
If FBPos.Value = FBPos.Tag Then

...

Open in new window

0
Comment
Question by:travisjbennett
  • 14
  • 10
24 Comments
 
LVL 119

Expert Comment

by:Rey Obrero
ID: 24814113
where and when is the code run?
0
 
LVL 119

Expert Comment

by:Rey Obrero
ID: 24814119
from VBA window
Debug > Compile
correct any errors raised.
0
 
LVL 1

Author Comment

by:travisjbennett
ID: 24814169
It's run as shown below, in the beginning of a subroutine for lostfocus.
I tried changing what was in the IF to something else, still same error.

Private Sub FBPos_LostFocus()

    If FBPos.Value = "" Or IsNull(FBPos.Value) Then

Open in new window

0
 
LVL 1

Author Comment

by:travisjbennett
ID: 24814176
The error occurs on the IF line...
0
 
LVL 119

Expert Comment

by:Rey Obrero
ID: 24814222
is FBPos a bound control?
0
 
LVL 119

Expert Comment

by:Rey Obrero
ID: 24814236
try doing a compact and repair first.
0
 
LVL 1

Author Comment

by:travisjbennett
ID: 24814245
No, it says Unbound in design view.
0
 
LVL 1

Author Comment

by:travisjbennett
ID: 24814492
Nope... Compact & Repair didn't do it.
I'll post more code...
So again, the error occurs on the first line of "Private Sub FBPos_LostFocus()" which is coded like "If FBPos.Value = "" Or IsNull(FBPos.Value) Then..."
The code only spews in LogicMidFBPos_Change() 's call of FBPos_LostFocus().
 
Up'd to 500 pts.

Private Sub LogicMidFBPos_Change()

    FBPos.Tag = FBPos.DefaultValue

    If LogicMidFBPos.Value = "All" Then

        FBPos.DefaultValue = "Format: """"Phrase 1"""", """"Phrase 2"""", """"Phrase 3"""", """"Word""""" & Chr(13) & Chr(10) & "Tip: Use few short and generic terms to maximize results."

    End If

    If LogicMidFBPos.Value = "Any" Then

        FBPos.DefaultValue = "Format: """"Phrase 1"""", """"Phrase 2"""", """"Phrase 3"""", """"Word""""" & Chr(13) & Chr(10) & "Tip: Use many short and generic terms to maximize results."

    End If

    Call FBPos_LostFocus

    FBPos.Tag = ""

End Sub
 
 

Private Sub FBPos_GotFocus()

    If FBPos.Value = Eval(FBPos.DefaultValue) Then

        FBPos.Value = ""

        FBPos.ForeColor = RGB(0, 0, 0)

    End If

End Sub
 
 

Private Sub FBPos_LostFocus()

    If FBPos.Value = "" Or IsNull(FBPos.Value) Then

        FBPos.Value = Eval(FBPos.DefaultValue)

        FBPos.ForeColor = RGB(128, 128, 128)

    End If

End Sub

Open in new window

0
 
LVL 119

Expert Comment

by:Rey Obrero
ID: 24814528
can i see your db?
check Attach File to initiate upload
0
 
LVL 1

Author Comment

by:travisjbennett
ID: 24814542
I can cut out the form and show it to you that way... It'll take a few minutes though.
0
 
LVL 1

Author Comment

by:travisjbennett
ID: 24814678
Ok, so get rid of the MDB file extension so that it becomes simply
Sample.accdb

Sample.accdb.mdb
0
 
LVL 119

Expert Comment

by:Rey Obrero
ID: 24814701
i'll take a look at it later, when i am on a box with A2007
0
Comprehensive Backup Solutions for Microsoft

Acronis protects the complete Microsoft technology stack: Windows Server, Windows PC, laptop and Surface data; Microsoft business applications; Microsoft Hyper-V; Azure VMs; Microsoft Windows Server 2016; Microsoft Exchange 2016 and SQL Server 2016.

 
LVL 1

Author Comment

by:travisjbennett
ID: 24814745
Alright, thanks.
0
 
LVL 119

Expert Comment

by:Rey Obrero
ID: 24814777
if you can make an .mdb, i can take a look at it now
0
 
LVL 1

Author Comment

by:travisjbennett
ID: 24814884
Alright, so the error occurs as I use the second dropdown above any text entry field.
The line that the debug button points to has a comment after then then... that's the code I was trying to add and still want to...
Anyway, good luck!

Sample03.mdb
0
 
LVL 119

Expert Comment

by:Rey Obrero
ID: 24815404
change as shown, original code with ' on the front

Private Sub LogicMidFBPos_Change()

    FBPos.Tag = FBPos.DefaultValue
    If LogicMidFBPos.Value = "All" Then
'        FBPos.DefaultValue = "Format: """"Phrase 1"""", """"Phrase 2"""", """"Phrase 3"""", """"Word""""" & Chr(13) & Chr(10) & "Tip: Use few short and generic terms to maximize results."
        FBPos = "Format: """"Phrase 1"""", """"Phrase 2"""", """"Phrase 3"""", """"Word""""" & Chr(13) & Chr(10) & "Tip: Use few short and generic terms to maximize results."
    End If
    If LogicMidFBPos.Value = "Any" Then
'        FBPos.DefaultValue = "Format: """"Phrase 1"""", """"Phrase 2"""", """"Phrase 3"""", """"Word""""" & Chr(13) & Chr(10) & "Tip: Use many short and generic terms to maximize results."
        FBPos = "Format: """"Phrase 1"""", """"Phrase 2"""", """"Phrase 3"""", """"Word""""" & Chr(13) & Chr(10) & "Tip: Use many short and generic terms to maximize results."
    End If
    Call FBPos_LostFocus
    FBPos.Tag = ""

End Sub


0
 
LVL 119

Expert Comment

by:Rey Obrero
ID: 24815411
see the use of DefaultValue in Access Help
0
 
LVL 1

Author Comment

by:travisjbennett
ID: 24815455
But what I'm trying to do is insert/remove the word "many" or "few" in the tip line, based on the contents of the any/all dropdown.
In order for the grey/blank/reset thing to work, I need to update the defaultvalue too. How can I do that?
0
 
LVL 1

Author Comment

by:travisjbennett
ID: 24815459
Do I just need to set both at the same time?
0
 
LVL 1

Author Comment

by:travisjbennett
ID: 24815520
I think I've got it down to the question of:
How do I get the line of code below to run in the immediate window?

? Eval(""Format: ""Phrase 1"", ""Phrase 2"", ""Phrase 3"", ""Word"""" & Chr(13) & Chr(10) & ""Tip: Use few short and generic terms to maximize results."")

Open in new window

0
 
LVL 1

Author Comment

by:travisjbennett
ID: 24815524
I just need to get the quotes, etc. right.
0
 
LVL 1

Author Comment

by:travisjbennett
ID: 24815547
This works...
? Eval("""String Cheese "" & 1")

Open in new window

0
 
LVL 119

Accepted Solution

by:
Rey Obrero earned 500 total points
ID: 24815589
use this

Private Sub LogicMidFBPos_Change()
    FBPos.Tag = FBPos.DefaultValue
    If LogicMidFBPos.Value = "All" Then
        FBPos.DefaultValue = Chr(34) & "Format: """"Phrase 1"""", """"Phrase 2"""", """"Phrase 3"""", """"Word""""" & Chr(13) & Chr(10) & "Tip: Use few short and generic terms to maximize results." & Chr(34)
    End If
    If LogicMidFBPos.Value = "Any" Then
        FBPos.DefaultValue = Chr(34) & "Format: """"Phrase 1"""", """"Phrase 2"""", """"Phrase 3"""", """"Word""""" & Chr(13) & Chr(10) & "Tip: Use many short and generic terms to maximize results." & Chr(34)
    End If
    Call FBPos_LostFocus
    FBPos.Tag = ""
End Sub
0
 
LVL 1

Author Comment

by:travisjbennett
ID: 24815607
Yep... I just got it to work with this...
Phew...
Beautiful! Thanks again Cap.

    Call FBPos_GotFocus

    If LogicMidFBPos.Value = "all" Then

        If LogicPreFBPos.Value = "do" Then

            FBPos.DefaultValue = """Format: """"Phrase 1"""", """"Phrase 2"""", """"Phrase 3"""", """"Word"""""" & Chr(13) & Chr(10) & ""Tip: Use few short and generic terms to maximize results."""

            FBPos.Value = ""

        End If

        If LogicPreFBPos.Value = "do not" Then

            FBPos.DefaultValue = """Format: """"Phrase 1"""", """"Phrase 2"""", """"Phrase 3"""", """"Word"""""" & Chr(13) & Chr(10) & ""Tip: Use few short and generic terms to maximize results."""

            FBPos.Value = ""

        End If

    End If

    If LogicMidFBPos.Value = "any" Then

        If LogicPreFBPos.Value = "do" Then

            FBPos.DefaultValue = """Format: """"Phrase 1"""", """"Phrase 2"""", """"Phrase 3"""", """"Word"""""" & Chr(13) & Chr(10) & ""Tip: Use many short and generic terms to maximize results."""

            FBPos.Value = ""

        End If

        If LogicPreFBPos.Value = "do not" Then

            FBPos.DefaultValue = """Format: """"Phrase 1"""", """"Phrase 2"""", """"Phrase 3"""", """"Word"""""" & Chr(13) & Chr(10) & ""Tip: Use few short and generic terms to maximize results."""

            FBPos.Value = ""

        End If

    End If

    Call FBPos_LostFocus

Open in new window

0

Featured Post

Ransomware-A Revenue Bonanza for Service Providers

Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat.  The purpose of this eBook is to educate the reader about ransomware attacks.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Sub Reports 8 21
Search Form not Querying 2 10
Access 2010 Query Syntax 5 21
ms/access vba - how to wait for a form to close 2 12
I originally created this report in Crystal Reports 2008 where there is an option to underlay sections. I initially came across the problem in Access Reports where I was unable to run my border lines down through the entire page as I was using the P…
A simple tool to export all objects of two Access files as text and compare it with Meld, a free diff tool.
Familiarize people with the process of utilizing SQL Server functions from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Microsoft Ac…
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.

911 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now