I cannot replicate your issue.
If you want to provide db for analysis, follow instructions a bottom of my post.
Creating custom zoom box
VIP
Windows 7 64bit 
Access 2010 32bit
I cannot replicate your issue.
If you want to provide db for analysis, follow instructions a bottom of my post.
How to attach file: http://www.accessforums.net/showthread.php?t=70301 To provide db: copy, remove confidential data, run compact & repair, zip w/Windows Compression.
Competent Performer
Windows 7 64bit Access 2010 64bit
No need, I found out what causes error, kind of...
If I rename DB It works. Or If I use On Error Resume Next handle too.
But this code has some issues. As I created a sample to post, error has accured too, but when I renamed DB, It stopped ?!?
Competent Performer
Windows 7 64bit Access 2010 64bit
Sorry, I created another sample, error again, this time I haven't change name of DB. Check It out.
DB opens in Form1, click on "Open form", then double-click on "FieldZoom". Error should appear.
VIP
Windows 7 64bit Access 2010 32bit
OpenArgs is not liking when the ZoomField is Null.
DoCmd.OpenForm "Form3", , , , , acDialog, Nz(Me.ZoomField)
You should disable the X close on the zoom form.
How to attach file: http://www.accessforums.net/showthread.php?t=70301 To provide db: copy, remove confidential data, run compact & repair, zip w/Windows Compression.
Competent Performer
Windows 7 64bit Access 2010 64bit
Thanks a lot, that solved the problem ! I wouldn't come across this one, never even heard about Nz function in VBA
Yes I figured out that error too, and I already removed X button, so I didn't post anything about this issue.You should disable the X close on the zoom form.
Posting Permissions
Reply With Quote