I totally just did some crazy googling and figured out how to make this work AND I changed the caption in each instance of the form to make it slightly more meaningful to the user.
1. code in my mdPublic module:
Option Compare Database
Public clnfrmFY12Targets1Edit As New Collection 'Instances of frmFY12Targets1Edit.
Public Sub OpenAfrmFY12Targets1Edit(objForm As Form)
'Purpose: Open an independent instance of form frmFY12Targets1Edit to a specific record based on the AutoNumber field in the "search form".
Dim frm As Form
'Open a new instance to a particular record, show it, and set a caption.
Set frm = New Form_frmFY12Targets1Edit
frm.Filter = "[AutoNumber]= " & objForm.[AutoNumber]
frm.FilterOn = True
frm.Visible = True
frm.Caption = "Record Number" & objForm.[AutoNumber]
'Append it to our collection.
clnfrmFY12Targets1Edit.Add Item:=frm, Key:=CStr(frm.Hwnd)
Set frm = Nothing
End Sub
2. code on the double-click event of the AutoNumber field (i know i know, bad field name) of my "search form":
Private Sub AutoNumber_DblClick(Cancel As Integer)
Call OpenAfrmFY12Targets1Edit(Me)
End Sub
My question to you: do you foresee me having any issues in the future based on how I built this. The forms are based on only one table. I just want to make updating the table values very easy for the user to do.
thanks!
amy
--- In MS_Access_Professionals@yahoogroups.com, "amy_hollows" <amy_hollows@...> wrote:
>
> John,
>
> Thanks so much for the quick reply. This is my first time joining a MS Access group and so far so good! :) Here is the code I used to open independent instances of my form:
>
> Option Compare Database
>
> Public clnfrmFY12Targets1Edit As New Collection
> 'Instances of frmFY12Targets1Edit.
>
> Function OpenAfrmFY12Targets1Edit()
> 'Purpose: Open an independent instance of form frmFY12Targets1Edit.
>
> Dim frm As Form
>
> 'Open a new instance, show it, and set a caption.
> Set frm = New Form_frmFY12Targets1Edit
> frm.Visible = True
> frm.Caption = frm.Hwnd & ", opened " & Now()
>
>
> 'Append it to our collection.
> clnfrmFY12Targets1Edit.Add Item:=frm, Key:=CStr(frm.Hwnd)
>
> Set frm = Nothing
> End Function
>
> I would like to call this function on a double-click event of a record in a "search form" that I have created and pass it an argument (i think this is the correct terminology) to open to a specific record. The "search form" has an AutoNumber field that uniquely identifies each record. The "search form" allows users to search by up to 3 criteria and returns a list of records in a continuous form. I want the user to be able to double-click on a record (or a button or whatever...I can just decide later where to set the dbl click event) to open a separate "edit form" to edit the record. The user will often need to edit 2+ records at a time, thus the need for opening multiple instances of a form (to a specified record).
>
> Thanks in advance for your help. :)
>
> amy
>
>
> --- In MS_Access_Professionals@yahoogroups.com, "John Viescas" <john@> wrote:
> >
> > Amy-
> >
> > Because you open multiple copies be setting an object reference to the form's
> > class module, you can use that object to manipulate the form, including setting
> > the Filter and FilterOn properties or doing a search on the Recordset to move to
> > a specific record. Post the code you're using now with a more detailed
> > description of how you want to apply a search, and I can probably give you the
> > modifications you need.
> >
> > 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 amy_hollows
> > Sent: Thursday, September 29, 2011 4:50 PM
> > To: MS_Access_Professionals@yahoogroups.com
> > Subject: [MS_AccessPros] Open Multiple Instances of a Form, each to a specific
> > record
> >
> > I have used code from Allen Browne to successfully open multiple instances of a
> > form in my database (pretty sweet). Now, I would like to be able to open the
> > instances of this form to a specific record, which is specified in the search
> > results of another form that I created that searches a table based on 3
> > criteria. I can do these two things separately (open multiple instances, and
> > open a form to a specific record). Any ideas on how to combine these two ideas
> > into something work-able for me?
> >
> > (P.S. I am now at the "cut and paste and modify and debug" stage of VB
> > programming so bear with me if my questions sound totally vague. I'm super
> > excited about programming and making this db work though, so any help is much
> > appreciated!)
> >
> > thanks!
> >
> > ~Amy
> >
> >
> >
> >
> > ------------------------------------
> >
> > Yahoo! Groups Links
> >
>
Tidak ada komentar:
Posting Komentar