show continuous form as zoomed single form

[mdavid]

Hi, I have a continuous form with 4 fields, on the continuous form I cannot see the complete text in the fields. Is it possible to zoom a continuous form so that it appears as a single popup form with those 4 fields, like zoom for single field but for all the fields in 1 continuous form.
Thanks for any help
David

[ranman256]

no zoom, but:
put a button on the form header to 'zoom'
this opens a SINGLE record form based on the KeyID where the cursor is....

sub btnZoom_click()
docmd.openForm "frmDetail",,,"[id]=" & txtID
end sub

[mdavid]

Hi Ranman, Thanks for this, one question if I have to click a button in the header how do I place the cursor on the record at the same time?

[mdavid]

Hi really need help with this, instead of using a command button, I'd like to double click on the record in question on the continuous form, and use your:

docmd.openForm "frmDetail",,,"[id]=" & txtID

but I don't know how to get the id?

Any help much appreciated.

Thanks
David

[aytee111]

I wouldn't do it like this, creating another form is - to me - more hassle for the user. I would have a main/subform arrangement:
- create a new form, it will contain a textbox to show the full value
- add your current form as a subform to this form
- in the OnCurrent event of your original form (the subform), add this code:
Forms!mainform!textfieldname=Me!textfieldname

When the user clicks on a record the text will show on the main form.

[aytee111]

See this thread: https://www.accessforums.net/showthread.php?t=68810

[mdavid]

I have this in the main form on current event

Private Sub Form_Current()
  MsgBox " hi, the ComplaintID is "
End Sub

The above code - only a msgbox with text - produces:

The Expression On Current you entered as the event property setting produced the following error: A problem occured while Microsoft Access was communicating with the OLE server or ActiveX Contrrol.

I would like to also know how to get the value in "Me.MempComplaintSubFrm.Form.ComplaintID"

where MempComplaintSubFrm is a subform (the main form is MempCompSF) and contains a Continuous Form each record in the continuous form has a field called ComplaintID

What am I doing wrong?

Please can you give example code.

Thanks
David

[aytee111]

First, which solution are you following? Please let me know

Where is "Me.MempComplaintSubFrm.Form.ComplaintID" being referenced?

I don't know what you are trying to do in the OnCurrent event of the main form.

[mdavid]

Hi aytee, sorry I get a little desperate at this hour. I'm trying your suggestion above: I would have a main/subform arrangement:

I've created a text box - Zoombox- on the mainform MempCompSF, I also have a subform MempComplaintSubFrm on this main form which contains a continuous form, in the code for the subform I have:

Private Sub Form_Current()Forms!MempCompSF!Zoombox = Me!Zoombox
End Sub

When I click on a record in the continuous form I get an error the same as above The Expression On Current.....
What am I doing wrong?

David

[aytee111]

That is such a simple solution, I don't know where that error message is coming from. The main form has no record source, the link properties are blank - right? Is there anything else on the main form? Do you have any missing references?

[aytee111]

Post your database with just those two forms and the table.

[mdavid]

florapal.zip
Hi not sure this is ok - let me know if you received the attached db.

The form with the problem is MempCompSF

Thanks for your help

David

[aytee111]

This database is unusable. I am getting lots of errors when I try and use it. Access complaining mainly about non-existent forms. So I created a blank database and imported the objects. All objects imported fine except the forms, lots of errors, even a No Current Record (while importing?). I imported just the two forms in question but those too gave errors. There is something amiss in the VBA modules. I couldn't even compile it cleanly, again non-existent forms.

The error message you are receiving above has nothing to do with what you are doing here, it has everything to do with VBA errors elsewhere. This may be a 2016 difference that I am experiencing, so I would suggest that you create a blank database and import all objects, see if you get any errors when importing the forms.

[mdavid]

Hi, thanks for taking the time to look at this, don't understand why I don't see these problems - is it possible the file got corrupted in transfer?

I haven't added alot of vba code, I'll delete what there is and see if that helps.

Thanks
David

[aytee111]

In the VBA editor, there is an object called "acwztool" within which there are lots of forms and reports. This is an area that I do not use and cannot guide you as to whether the trouble lies within that or not.