Learn how to provision tenants, synchronize on-premise Active Directory, implement Single Sign-On, customize Office deployment, and protect your organization with eDiscovery and DLP policies. Only from Platform Scholar.
Course Of The Month
11 days, 17 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Unbound Object seems to "requery and makes data entry cumbersome
Posted on 2013-07-01
I have an ubound object I use to Incrementally search as I enter data.
The code I use is shown below. As I type in a number the cursor jumps back to the beginning of the field.
Anybody have an idea what could cause this strange behavior?
Private Sub PcoNoSearch_Change()
Dim PcoSearchFilter As String, PcoSearchTxtVal As Double
If Not IsNull(Me![PcoNoSearch].Te
PcoSearchFilter = "[ChngPropNo] like " & """" & "*" & Me![PcoNoSearch].Text & "*" & """" & " And " & "[ContractId] = " & """" & Me![CurCntrId] & """"
Else
PcoSearchFilter = ""
End If
Forms![0_masterdatafrm]![0
Forms![0_masterdatafrm]![0
End Sub
The code I use is shown below. As I type in a number the cursor jumps back to the beginning of the field.
Anybody have an idea what could cause this strange behavior?
Private Sub PcoNoSearch_Change()
Dim PcoSearchFilter As String, PcoSearchTxtVal As Double
If Not IsNull(Me![PcoNoSearch].Te
PcoSearchFilter = "[ChngPropNo] like " & """" & "*" & Me![PcoNoSearch].Text & "*" & """" & " And " & "[ContractId] = " & """" & Me![CurCntrId] & """"
Else
PcoSearchFilter = ""
End If
Forms![0_masterdatafrm]![0
Forms![0_masterdatafrm]
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
2 Comments
Active 1 day ago
test this
Private Sub PcoNoSearch_Change()
Dim PcoSearchFilter As String, PcoSearchTxtVal As Double, str
str = str & Me.[PcoNoSearch].Text
' If Not IsNull(Me![PcoNoSearch].Te
' PcoSearchFilter = "[ChngPropNo] like " & """" & "*" & Me![PcoNoSearch].Text & "*" & """" & " And " & "[ContractId] = " & """" & Me![CurCntrId] & """"
' Else
' PcoSearchFilter = ""
' End If
PcoSearchFilter = "[ChngPropNo] Like '*" & str & "*' And [ContractId] = " & Me.[CurCntrId]
'if [ContractId] is Text Data, use below
' PcoSearchFilter = "[ChngPropNo] Like '*" & str & "*' And [ContractId] = '" & Me.[CurCntrId] & "'"
Forms![0_masterdatafrm]![0
Forms![0_masterdatafrm]![0
End Sub
Private Sub PcoNoSearch_Change()
Dim PcoSearchFilter As String, PcoSearchTxtVal As Double, str
str = str & Me.[PcoNoSearch].Text
' If Not IsNull(Me![PcoNoSearch].Te
' PcoSearchFilter = "[ChngPropNo] like " & """" & "*" & Me![PcoNoSearch].Text & "*" & """" & " And " & "[ContractId] = " & """" & Me![CurCntrId] & """"
' Else
' PcoSearchFilter = ""
' End If
PcoSearchFilter = "[ChngPropNo] Like '*" & str & "*' And [ContractId] = " & Me.[CurCntrId]
'if [ContractId] is Text Data, use below
' PcoSearchFilter = "[ChngPropNo] Like '*" & str & "*' And [ContractId] = '" & Me.[CurCntrId] & "'"
Forms![0_masterdatafrm]![0
Forms![0_masterdatafrm]![0
End Sub
Active 2 days ago
This is the code I ended up with
Thanks
-------------------
Private Sub PcoNoSearch_Change()
Dim PcoSearchFilter As String, PcoSearchTxtVal As Double
If Not IsNull(Me![PcoNoSearch].Te
PcoSearchFilter = "[ChngPropNo] like " & """" & "*" & Me![PcoNoSearch].Text & "*" & """" & " And " & "[ContractId] = " & """" & Me![CurCntrId] & """"
Else
PcoSearchFilter = ""
End If
Forms![0_masterdatafrm]![0
Forms![0_masterdatafrm]![0
SendKeys "{end}"
End Sub
Thanks
-------------------
Private Sub PcoNoSearch_Change()
Dim PcoSearchFilter As String, PcoSearchTxtVal As Double
If Not IsNull(Me![PcoNoSearch].Te
PcoSearchFilter = "[ChngPropNo] like " & """" & "*" & Me![PcoNoSearch].Text & "*" & """" & " And " & "[ContractId] = " & """" & Me![CurCntrId] & """"
Else
PcoSearchFilter = ""
End If
Forms![0_masterdatafrm]![0
Forms![0_masterdatafrm]
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
The Windows Phone Theme Colours is a tight, powerful, and well balanced palette.
This tiny Access application makes it a snap to select and pick a value. And it doubles as an intro to implementing WithEvents, one of Access' hidden gems.
This article helps those who get the 0xc004d307 error when trying to rearm (reset the license) Office 2013 in a Virtual Desktop Infrastructure (VDI) and/or those trying to prep the master image for Microsoft Key Management (KMS) activation. (i.e.- C…
In Microsoft Access, learn how to use Dlookup and other domain aggregate functions and one method of specifying a string value within a string.
Specify the first argument, which is the expression to be returned:
Specify the second argument, which …
Do you want to know how to make a graph with Microsoft Access? First, create a query with the data for the chart. Then make a blank form and add a chart control. This video also shows how to change what data is displayed on the graph as well as form…
Suggested Courses
Earn Certification
HTML5 Specialist - Certification
Free withPremium
Course of the Month11 days, 17 hours left to enroll
623 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.