Selasa, 12 Desember 2017

Re: [MS_AccessPros] Populate Textbox On Another Form From Listbox,

 

Art,


Is this what you are looking for?


Private Sub lsteIndexFields_DblClick(Cancel As Integer)
    ' code to update a value in a "value list" type listbox
    ' these changes will not be persisted once the form is closed
    Dim strInput As String
    Dim strItem As String
    
    strItem = Me.lsteIndexfields
    strInput = InputBox("Edit This Item", "Edit Me", strItem)
    Me.lsteIndexfields.RowSource = Replace(Me.lsteIndexfields.RowSource, strItem, strInput)
    Me.lsteIndexfields = strInput
          
End Sub

Regards,
Duane




From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of Art Lorenzini dbalorenzini@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Tuesday, December 12, 2017 3:05 PM
To: Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals]
Subject: Re: [MS_AccessPros] Populate Textbox On Another Form From Listbox,
 


OK I decided to eliminate the need for the popup form and use the list box AddItem and RemoveItem to achieve the same effect. I found some code on google which seems it the right direction but it needs some help...

Private Sub lsteIndexFields_DblClick(Cancel As Integer)
 Dim az As Integer
 Dim strInput As String
 Dim Item As Object
 Dim Index As Integer
 
  az = Me.lsteIndexFields.Items.IndexOf(Me.lsteIndexFields.SelectedItem)
  Item = Me.lsteIndexFields.Items.Item(az)
  Index = Me.lsteIndexFields.Items.IndexOf(Item)
  strInput = InputBox("Edit This Item")
   Me.lsteIndexFields.Items.RemoveItem (ListBox1.SelectedItem)
  Me.lsteIndexFields.Items.AddItem(index, strInput)
   
   
End Sub

I need to put the selected item into the inputbox, change it and save it back. This is not VBA but it seems close. Can someone please give me and idea?




With Warm Regards,
 
Arthur D. Lorenzini
IT System Manager
Cheyenne River Housing Authority
Wk.(605)964-4265  Ext. 130
Fax (605)964-1070

"Valar Dohaeris"






On ‎Monday‎, ‎December‎ ‎11‎, ‎2017‎ ‎04‎:‎28‎:‎16‎ ‎PM, Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:


 

Art,


You have officially lost me 😉. 


What is the "input box function" that populates the list box? What do you mean by "populates"?


I guess I need a more complete picture of what you are attempting to do in order to provide assistance since I'm making a ton of false assumptions. Maybe someone else has a better grasp of your forms and can help.


Regards,

Duane




From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of Art Lorenzini dbalorenzini@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Monday, December 11, 2017 2:48 PM
To: Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals]
Subject: Re: [MS_AccessPros] Populate Textbox On Another Form From Listbox,
 


My bad I skipped a part where I tell you that the list box unbounded and is populated by a input box function. The form does not get written to the table until the very end when the user click cmdDone which contains the table writes statements.


With Warm Regards,
 
Arthur D. Lorenzini
IT System Manager
Cheyenne River Housing Authority
Wk.(605)964-4265  Ext. 130
Fax (605)964-1070

"Valar Dohaeris"






On ‎Monday‎, ‎December‎ ‎11‎, ‎2017‎ ‎02‎:‎44‎:‎45‎ ‎PM, Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:


 

Art, 

You said you tried "Refesh". What did you refresh? Did you try Requery the list box? This will only make a difference after the record in the table has been saved. 


I have also used:

[Forms]![frmCabinetDetailsNew]![lsteIndexFields].RowSource = [Forms]![frmCabinetDetailsNew]![lsteIndexFields].RowSource


You could also open the second form in acDialog mode and add a line to requery the list box after the line to open the form.


Regards,

Duane Hookom




From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of Art Lorenzini dbalorenzini@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Monday, December 11, 2017 2:02 PM
To: Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals]
Subject: Re: [MS_AccessPros] Populate Textbox On Another Form From Listbox,
 


The user can may need to modify the an item in the list box. So let's say the Item they choose is Company and they want to change it to Company Name. The specification states I need to open a form and populate with the selected item from the list box and then save the changes back to the list box. I tried the Refresh and it did not work.


With Warm Regards,
 
Arthur D. Lorenzini
IT System Manager
Cheyenne River Housing Authority
Wk.(605)964-4265  Ext. 130
Fax (605)964-1070

"Valar Dohaeris"






On ‎Monday‎, ‎December‎ ‎11‎, ‎2017‎ ‎12‎:‎56‎:‎24‎ ‎PM, Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:


 

Hi Art,


You might want to try:

[Forms]![frmCabinetDetailsNew]![lsteIndexFields].Requery


I'm not sure why you are updating the list box but as long as you understand it's good with me.


Regards,

Duane



From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of Art Lorenzini dbalorenzini@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Monday, December 11, 2017 12:42 PM
To: Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals]
Subject: Re: [MS_AccessPros] Populate Textbox On Another Form From Listbox,
 


I got it to work when I am opening up the second for to edit the indexfield but after the edit when I want to update the listbox I tried this:

 

Private Sub cmdSave_Click()

    If Not SaveIt() Then Exit Sub ' this is a save function

    [Forms]![frmCabinetDetailsNew]![lsteIndexFields].Form.Requery

    ' Close me

    DoCmd.Close acForm, Me.Name

End Sub

 

But it error's out with Object doesn't support this property or method




With Warm Regards,
 
Arthur D. Lorenzini
IT System Manager
Cheyenne River Housing Authority
Wk.(605)964-4265  Ext. 130
Fax (605)964-1070

"Valar Dohaeris"






On ‎Sunday‎, ‎December‎ ‎10‎, ‎2017‎ ‎08‎:‎40‎:‎27‎ ‎PM, Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:


 

NArt,
Have you gotten anywhere with this? There is a double click event of the listbox to write your Code. You need to include OpenArgs to send a value to the form you are opening. When the new form is opened use Code to check the OpenArgs and set the control value.

Try it and let us know how far you get. If you have questions please come back with your Code.

Regards,
Duane


From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of dbalorenzini@yahoo..com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Sunday, December 10, 2017 6:59:20 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Populate Textbox On Another Form From Listbox,
 


I have a form called frmeCabinetDetailsNew and on it I have a listbox called lsteIndexField. If the user double clicks on a item in the list box I need to open up a from called frmeindexField which has a textbox called txtIndexField and populate it with the selected item from the listbox on the other form for editing. Once its edited I need to save the changes back to frmeCabinetDetailsnew.lsteIndexField. Any ideas?


Thank you,


Art Lorenzini

SD











__._,_.___

Posted by: Duane Hookom <duanehookom@hotmail.com>
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (14)

Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.


.

__,_._,___

Tidak ada komentar:

Posting Komentar