error 3270 property not found (1 Viewer)

[AngelMiguel]

Greetings,

Problem: error 3270 property not found
Explanation: When the error occurs it does not jump to the error handling line.
Hardware: 64 bits
Software: win64 + office365


Function GetPropertyString(PropertyName As String) As String
Dim prp As DAO.Property
On Error GoTo Property_Errors

GetPropertyString = CurrentDb.Properties(PropertyName)

On Error GoTo 0
Exit Function

Property_Errors:
If Err = 3270 Then
Set prp = CurrentDb.CreateProperty(PropertyName, dbText, " ", False)
CurrentDb.Properties.Append prp
GetPropertyString = " "
Else
MsgBox "Property creation error, no. : " & Err, vbCritical, " Balances".
End If
End Function

 

[isladogs]

It works for me. Try stepping through the code for both existing properties and ones that don't yet exist.

 

[Gasman]

You code does not even compile?

 

[AngelMiguel]

It works for me. Try stepping through the code for both existing properties and ones that don't yet exist.

Greetings,

My problem is that it doesn't jump to the line....: Property_Errors:

 

[Gasman]

Well it does for me, only when the property does not exist?
Have you walked though your code?

 

[AngelMiguel]

Well it does for me, only when the property does not exist?
Have you walked though your code?

Greetings,
The code is debugged. There are no errors.

 

[Gasman]

Greetings,
The code is debugged. There are no errors.

Well there is an error in the code you posted, and it was highlighted when I pasted the code into a module, though that would not cause this problem I would have thought?

 

[isladogs]

Hi Paul
The code compiles for me

 

[Gasman]

There is a full stop at the end of the MSGBOX line and that came up red in my 2007?
Removing it allowed me to compile the function?

 

[isladogs]

Ah yes. Sorry - I forgot I had deleted that!

 

[MajP]

Public Sub TestGet()
  Debug.Print GetPropertyString("Cat")
  CurrentDb.Properties("Cat") = "meow"
  Debug.Print GetPropertyString("Cat")
End Sub

Works fine result

meow