ACCESS FEED: [MS_AccessPros] Re: Event procedure does not work in compiled accde

Jumat, 17 Mei 2013

[MS_AccessPros] Re: Event procedure does not work in compiled accde

Amanda

Not exactly. When you select an item in the list that item becomes the value of the control. The list stays in the same order.

Bill

--- In MS_Access_Professionals@yahoogroups.com, "Amanda B" <amandabyrne@...> wrote:
>
> This worked perfectly! (although I'm a little confused as to why-I guess once you've selected a value in the Combo, it becomes the first one listed?)
>
> Thanks so much!
>
> --- In MS_Access_Professionals@yahoogroups.com, "Bill Mosca" <wrmosca@> wrote:
> >
> > Amanda
> >
> > No need to use the RecordsetClone or requery the combo. This should work.
> >
> > Private Sub ComboSearchNames_Click()
> > Me.Recordset.FindFirst "[Animal ID] =" & Me.ComboSearchNames
> > Me.txtString = Null
> > End Sub
> >
> >
> >
> > --- In MS_Access_Professionals@yahoogroups.com, "Amanda B" <amandabyrne@> wrote:
> > >
> > > Good news! I have discovered how to get my textbox to fill in my dropdown. I used the method described here:
> > >
> > > http://stackoverflow.com/questions/2871155/filtering-a-listbox-based-on-combobox-selection
> > >
> > > After compiling- this worked like a charm
> > >
> > > However, the code that refreshed the form with the selected dropdown option is not working, so I'm moving on to next problem...
> > >
> > > I think it's the same code for the ComboSearchNames_Click() event that causes the form to refresh- so why wouldn't this be working?
> > >
> > > --- In MS_Access_Professionals@yahoogroups.com, "Amanda B" <amandabyrne@> wrote:
> > > >
> > > > I recently converted to a split database due to errors we were encountering with multiple users. The backend resides on the server, and the front end accde file resides on local machines.
> > > >
> > > > The split database master file I used to create the front end does not report any errors with I use Debug>Compile in the VBA
> > > >
> > > > However, there is a key event procedure on one of the forms that does not function when I make the accde version of the database. It is a textbox named txtString. Users use this textbox to search records and populate a drop down based on the text entered, and thus populate the form.
> > > >
> > > > The code for the txtString AfterUpdate is:
> > > >
> > > > Private Sub txtString_AfterUpdate()
> > > > Dim strQuery As String
> > > > strQuery = "SELECT [Animal Records].[Animal ID], [Animal Records].[House Name], [Animal Records].[Aliases] FROM [Animal Records] WHERE ([Animal Records].[House Name] LIKE '*" & Me!txtString.Value & "*'OR [Animal Records].[Aliases] LIKE '*" & Me!txtString.Value & "*') ORDER BY [Animal Records].[House Name];"
> > > > Me!ComboSearchNames.RowSource = strQuery
> > > > Me!ComboSearchNames.Visible = True
> > > > End Sub
> > > >
> > > > The code for the related Combo SearchNames dropdown OnClick event is:
> > > >
> > > > Private Sub ComboSearchNames_Click()
> > > > Me.RecordsetClone.FindFirst "[Animal ID] =" & Me.ComboSearchNames
> > > > Me.Bookmark = Me.RecordsetClone.Bookmark
> > > > Me.txtString = Null
> > > > Form.Refresh
> > > > Me.[ComboSearchNames].Requery
> > > > End Sub
> > > >
> > > > The Combo SearchNames RowSource is a query defined in the RowSource property (i.e. there is not a separate 'dedicated' query that it calls)
> > > >
> > > > Why would this not work in the compiled version? T
> > > >
> > > > Gratefully, Amanda
> > > >
> > >
> >
>