hi guys, i have created 1 combo box and 1 text field in my form. For my combo box, I managed to connect it to my table. But when i run the form, i can press the combo button BUT cannot select the name displayed. Worst of all, i cant even type anything on the 2 boxes. is there any properties that I got change?
View RepliesI have strange issue when creating auto populated text boxes which displays rows from combo boxes.
In one database auto populates works with simple text box Control Source edit "=[ComboName].[Column](NumberOfColumn)".
Somehow same method doesn't wotk in different database: here one time I have to insert VBA code at On change Event:
Me.TextBoxName = Me.ComboName.Column(NumberOfColumn)
And other time it wont work with On change but only with After Update Event (code is same).
Another thing this morning happens was that when I tried to add new record trough form where combo box and tex boxes are located, MS Office suddenly stopped working after selecting combo box selection (with message Microsoft Office has Stopped Working). It is 2013 version.
I got it work after deleting and re-inserting VBA code to autopopulate text box at After Update Event.
I currently have 3 tables within a database with student details of three different classes. I need to create a user form that has a dropdown box which I can select a student from one of these tables with a number of text boxes below which brings up all the students details, then once the student has been selected and the correct details are shown then I need to create a button which allows me to move that student from one table to another.
View 4 Replies View RelatedI'm trying to build an database for aircraft operators. I've got the basic tables structure and relationships but I'm stuck on building an search form to filter records by user input.I've got following controls on my form (unbound):
1. AircraftType (combo box) from tblAircrafts
2. CompanyName (combo box) from tblListOfAircraftsOperators
3. TeailNumber (text box) from tblAircraftOperators
4. AirportNameSearch (combo box) from tblAirports
5. PassengersNumber (text box) from tblAircraftOperators
6. ManufactureYear (text box) from tblAircraftOperators
7. SourceSearch (combo box) from tblInfoSource
8. CountrySearch (combo box) from tblCountry
9. CategorySearch (combo box) from tblAircraftCategory
10. EamilToOperator (text box) from tblAircraftOperators
11. InteriorPhoto (Bound object frame) from tblAircraftOperators
12. ExteriorPhot (bound object frame) from AircraftOperators
I need to enable users to search for aircrafts based on those criteria. As I mentioned I'm new to Access and I don't have any advanced coding skills. I have a query build to perform the search and this is the code I've managed to write so far:
SELECT AircraftOperators.RegistrationNumber, AircraftOperators.PassengersNumber, AircraftOperators.ManufactureYear, AircraftOperators.EmailToOperator, AircraftOperators.ExteriorPhoto, AircraftOperators.InteriorPhoto, tblListOfAircraftOperators.OpratorName, tblAircrafts.AircraftType
FROM tblAircrafts INNER JOIN (tblAirports INNER JOIN (AircraftOperators INNER JOIN tblListOfAircraftOperators ON AircraftOperators.CompanyName =
[code]....
Attached I have a database that I've been working on which has a form called "frmCriteriaSearch". It is based off of the qryCriteriaListBoxUpdate query. I am trying to get the listbox in the second tab of the results section to work. It queries fine for the checkboxes, but I cannot get the comboboxes to affect the query (unless a checkbox has already been selected)
View 6 Replies View Relatedthere is a way to convert multiple text boxes to combo boxes all at once, rather than right clicking on them one at a time, and selecting Change to.
I have a form with about 50 fields and most of them need to be converted to combo boxes. I'd always done it manually one at a time up to this point, but I'm trying to build up my learning and look for smarter ways to do things.
I am trying to make a search option in my form header. Right now I have two unbound combo boxes (CboAccountsfilter and cboCourseName) that I can use to filter my records. Currently, I can use the drop down for CboAccountsfilter and a list of accounts will appear. When I select one, the corresponding Course Names will appear in cboCourseName. This works fine...Code below. I would like to take the filtering a step farther and add checkboxes to filter the data. I my form, there currently exist several check boxes (yes/no)...(Priority, Rep Top Target, Manager Top Target, ect). I would like to have the option to use a check box to filter. I.E if I had a checkbox in my header called PriorityFilter, if checked it would only bring up those records that met the two combo boxes criteria and was a priority.
Below is the code I have so far...it doesnt have anything for the checkbox because I am at a lost of how to get started.
Private Sub CboAccountsfilter_Change()
Me.Requery
Me.cboCourseName.Requery
Me.Check178.Requery
End Sub
[code]...
I've created an unbounded form because I have user who accidently delete a field without realizing it and ask how come it did that. SO i've created and unbounded form for them to review and save with a command button, but I'm having a problem using the vbaunbound.zip file that i've downloaded from sbaxter. I created the update using DAO and I keep getting "An Error Occurred. The System doesn't know which action to take" I edited all fields that were in the example to point to the correct fields and I Keep getting this message and then the cmdBox gray's out...Any input would be greatly appreciated AGAIN...
Thanks...
Eddie...
Will some be able to assist me throught this please? I've been tasked (AGAIN ) to add a command feature to a form in access to do an add new record. What the user would like to do is be able to do a search and make a change by adding the existing as new record. For example survey number 3738 is open and they want to make a change by making inspector a different name and then click add and boom it's a new record. I've done this in the past but I cant' rmember how i did it before...
YOUR help is truly appreciated...
Is it possible to fill up multiple (say four or five) textfields from a combo box(or lookup) I looked in previous posts saw something about RecodSource, but couldnt figure it out?
Can anyone help??
I have a question.
When i have a created a textfield for let's say 10 characters.
But sometimes i need to put there 14characters in other times 6 characters.
so my question is...
Is there a solution that when you type something in the fieldbox that it will autoresize depending on how many characters you type?
If vbacode needed...can someone help me?
Regards,
Xhoz
Another quick request:
What would the code be for a button which clears the contents of a text box or a combo box on a form?
Many thanks,
Paul.
Hi,
Is it possible to parse, and format a textfield in a report on a line by line basis?
What I am trying to do is get a document to be processed into a printable format using reports. The text, and formatting information of each line, and any specific word details are stored in separate columns in the table. If, for example an entire line needs to be made Bold, I can get that done. What I would like to know is that if a word in a particular line needs to be formatted differently to the rest of the line, eg underlined, is there a way to do so?
For example, if I had the line as follows:
The quick brown fox jumps over the lazy dog.
I'd have the default, unformatted text as one field in the table, and the word, in this case quick, and it's formatting in another field of the table.
So rather than stating my question again, can it be done?
Thanks in advance,
Shaitan.
Hopefully there's someone who can help me with this!!! I've had several unsuccesfull attempts and don't know what else to try...
We're trying to force users to make entries in a field called txtComments in the frmQuestionnaire form if they provide negative responses and to stay on that record until the comments are changed. Inside the form is an option group (fraResponses) which contains options (OptA, OptB..etc.) valued from 1 through 7, based on a likert 7 scale. We're only using a likert 6 scale, so the respondents will only see 2-7 on the form. If they options B-D (valued 2-4), they are considered negative, so we want to make sure they enter a comment.
I tried to enter the italicized code under the form on BeforeUpdate, AfterUpdate, CmdUp (click to next question) and CmdDown (click to previous question), with frmQuestionnaire but nothing happens:
There is a module called clsUser which contains the following and where I tried to insert the code:
Set myForm = Forms!frmQuestionnaire
' ================================================== ==
' First, set the value of the variables
' ================================================== ==
lngQuestion = arrQ(lngArray, 0)
lngSession = GetCustomInfo("TestSession")
lngUser = UserID
lngBillet = BilletID
strComment = Nz(myForm.txtComment, "")
strComment = "None"
'If user selects negative responses
If Form_frmQuestionnaire.fraResponses.OptionValue = 2 Or 3 Or 4 And strComment = "None" Then
MsgBox "Please explain the problems you encountered with the system which " & _
"caused you to select an unfavorable response."
Form_frmQuestionnaire.txtComment.SetFocus
End If
lngResponse = myForm.fraResponses
When I place the code there, the dialog box appears for all values and goes to the next record. This is what appears for the CmdUp (click to next question):
If cUser.blnDirty = False And Me.fraResponses = 153 (this is default value for the entire option group) And cUser.blnNew = True Then
cUser.blnDirty = True
End If
cUser.CaptureAnswer
If cUser.lngArray < cUser.UBound_ArrQ() Then
cUser.lngArray = cUser.lngArray + 1
Else
cUser.lngArray = cUser.UBound_ArrQ()
End If
cUser.FillQuestions
cUser.blnDirty = False
I've tried to enter the line of code with the form and the module, but no luck.
I also want it to remain on the same record until the field is changed. The form is unbound and has the following:
Public Sub FillQuestions()
'************************************************* ****
' Purpose: Scroll through the questions
'
' Assumptions: N/A
'
' Effects: N/A
'
' Inputs:
' None
'
' Returns:
' None
'************************************************* ****
Dim lngRG As Long
Set myForm = Forms!frmQuestionnaire
myForm.txtQuestion = arrQ(lngArray, 1)
lngRG = arrQ(lngArray, 2)
myForm.prgProgress.Value = lngArray + 1
myForm.lblProgText.Caption = "Question " & (lngArray + 1) & " of " & lngQuestions
myForm.lblTS.Caption = "Test Session: " & arrQ(lngArray, 3)
myForm.lblQID.Caption = "Question ID: " & arrQ(lngArray, 0)
GetResponseSet lngRG
FillAnswers
If lngArray = 0 Then
myForm.txtComment.SetFocus
myForm.cmdDown.Enabled = False
Else
myForm.cmdDown.Enabled = True
End If
If lngArray >= UBound(arrQ) Then
myForm.txtComment.SetFocus
myForm.cmdUp.Enabled = False
Else
myForm.cmdUp.Enabled = True
End If
End Sub
Public Sub FillAnswers()
'************************************************* ****
' Purpose: Fill out the user's previous responses
'
' Assumptions: N/A
'
' Effects: N/A
'
' Inputs:
' None
'
' Returns:
' None
'************************************************* ****
Dim strSQL As String
Dim recAnswer As New ADODB.Recordset
Set myForm = Forms!frmQuestionnaire
strSQL = "SELECT datResponse.reDatQuestionID, datResponse.reDatRespondentID, "
strSQL = strSQL & "datResponse.reDatResponseSetID, datResponse.reComment "
strSQL = strSQL & "FROM datResponse "
strSQL = strSQL & "WHERE datResponse.reDatQuestionID=" & arrQ(lngArray, 0)
strSQL = strSQL & "AND datResponse.reDatRespondentID=" & UserID
recAnswer.Open strSQL, CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic
If Not recAnswer.EOF Then
myForm.fraResponses = recAnswer!reDatResponseSetID
myForm.txtComment = recAnswer!reComment
blnNew = False
Else
If myForm.fraResponses <> 152 Then
myForm.fraResponses = 153
myForm.txtComment = ""
blnNew = True
End If
End If
recAnswer.Close
Set recAnswer = Nothing
End Sub
Thanks in advance for your help!!
Hi guys. I made a unbounded form that has option to search for customerno .
Whenever I try type a customerno and click on the search button I get the following error.
I be happy if some expert help fix this error. Thanks
Error
Run -time error '2109':
There is no field named 'customerno' in the current record
http://i5.photobucket.com/albums/y180/method007/searcherror.jpg
=====>searcherror pic of the form
Code:Option Compare DatabaseOption ExplicitSub clearTextBoxes()''clearing the tow texboxes txtCompanyName and txtCustomerIdMe.customerNumber.Value = ""Me.customerName.Value = ""End SubSub getReadyForAnAddOperation()Me.cmdSave__.Enabled = TrueMe.cmdSave__.SetFocusMe.cmdCancel.Enabled = TrueMe.cmdAdd__.Enabled = FalseMe.cmdEdit.Enabled = FalseMe.cmdDelete.Enabled = FalseEnd SubSub stateOnLoad()Me.customerName.SetFocusMe.cmdCancel.Enabled = TrueMe.cmdSave__.Enabled = FalseMe.cmdEdit.Enabled = TrueMe.cmdAdd__.Enabled = True'''disableing the cancel and save button on load'''Me.cmdCancel.Enabled = False'''Me.cmdSave__.Enabled = FalseEnd Sub'declaring subrotineSub FillFeilds()Me.customerNumber = myRS.Fields("customerno")Me.customerName = myRS.Fields("customername")End SubPrivate Sub cmdAdd___Click()clearTextBoxesgetReadyForAnAddOperationpbAddingARecord = True'''changing the value of this boolean variablemyRS.AddNewEnd SubPrivate Sub cmdCancel_Click()FillFeildsstateOnLoadEnd SubPrivate Sub cmdDelete_Click()Dim x As Variantx = MsgBox(" You are abut to delete " & Me.customerName & " from this table - proceed ? ", vbOKCancel)If x = 1 ThenWith myRS.Delete.MoveFirstFillFeildsstateOnLoadEnd WithEnd IfEnd SubPrivate Sub cmdEdit_Click()''clearTextBoxesgetReadyForAnAddOperationpbEditingARecord = True'''changing the value of this boolean variableEnd SubPrivate Sub cmdMoveFirst_Click()myRS.MoveFirstFillFeildsEnd SubPrivate Sub cmdMoveLast_Click()myRS.MoveLastFillFeildsEnd SubPrivate Sub cmdMoveNext_Click()If pbAddingARecord = True Or pbEditingARecord = True ThenMsgBox ("Please save or cancel changes first ")Exit SubEnd IfmyRS.MoveNextIf myRS.EOF ThenMsgBox ("Last Record")myRS.MovePreviousEnd IfFillFeildsEnd SubPrivate Sub cmdMovePreviouse_Click()myRS.MovePreviousIf myRS.BOF ThenMsgBox (" First record")myRS.MoveNextEnd IfFillFeildsEnd SubPrivate Sub cmdSave___Click()If pbAddingARecord = True ThenmyRS.AddNewEnd IfIf pbEditingARecord = True ThenmyRS.EditEnd If'''inserting the value of textboxes to the table fields.feeding the date to record setmyRS.Fields("customerno").Value = Me.customerNumber.ValuemyRS.Fields("customername").Value = Me.customerName.Value'''calling update method. it comittes the changesmyRS.UpdatepbAddingARecord = FalsepbEditingARecord = FalsestateOnLoadEnd SubPrivate Sub cmdSearch_Click() Dim strStudentRef As String Dim strSearch As String 'Check txtSearch for Null value or Nill Entry first. If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then MsgBox "Please enter a value!", vbOKOnly, "Invalid Search Criterion!" Me![txtSearch].SetFocus Exit SubEnd If'--------------------------------------------------------------- 'Performs the search using value entered into txtSearch'and evaluates this against values in customerno DoCmd.ShowAllRecords DoCmd.GoToControl ("customerno") DoCmd.FindRecord Me!txtSearch '''Me.customerno.SetFocus customerNumber.SetFocus strStudentRef = customerNumber.Text txtSearch.SetFocus strSearch = txtSearch.Text 'If matching record found sets focus in customerNumber and shows msgbox'and clears search control If strStudentRef = strSearch Then MsgBox "Match Found For: " & strSearch, , "Congratulations!" customerNumber.SetFocus txtSearch = "" 'If value not found sets focus back to txtSearch and shows msgbox Else MsgBox "Match Not Found For: " & strSearch & " - Please Try Again.", _ , "Invalid Search Criterion!" txtSearch.SetFocus End IfEnd SubPrivate Sub Form_Load()Set db = CurrentDb()'''Set myRS = db.OpenRecordset("select * from customer")Set myRS = db.OpenRecordset("customer", dbOpenTable)''' need to learn how to add index to customer table'''myRS.Index = ("Company Name")'calling subroutinestateOnLoadFillFeildsEnd SubPrivate Sub lblFindIt_Click()With myRSSelect Case Me.lblFindIt.CaptionCase "Company Name"Me.lblFindIt.Caption = " First Name "''' this indexcontactfirstname should already exist in the table''' you can also create index trough code on tables. this method''' not good in multi user evironment . best way to create indexes and''' refere them trough code.Index = "CotactFirstName"Case "First Name"Me.lblFindIt.Caption = " Last Name ".Index = "CotactLastName"Case "Last Name "Me.lblFindIt.Caption = "Company Name ".Index = "CompanyName"End SelectEnd WithEndEnd SubPrivate Sub textFindIt_Change()Dim strSeek As VariantDim posInmyRS As Variant''' feeding it the value from text boxstrSeek = Me![textFindIt].TextWith myRSposInmyRS = myRS.Bookmark.Seek ">=", strSeekIf .NoMatch = True ThenmyRS.Bookmark = posInmyRSExit SubEnd IfFillFeilds End With End Sub
Hi guys, I have a related databes with about 20 tables.
My main table stores the data linking with most of the other tables. This main table stores football match records with player line ups. Initially I had a problem linking the 11 player fields in the main table to the player table, Icould only do it with 1, so someone at work suggested to link it using the lookup function. This worked brilliantly. However, now I am designing a GUI with forms but the forms have combo boxes where the lookup function was used and when i change these to text boxes, the players names are replaced with their ID numbers.
Is there any way of creating the form without the unsightly combo boxes, as they won't be needed, the GUI will be read-only. I look forward to your help!!
I have a table that has client names and addresses. I have designed a form to be able to invoice these clients and everything is fine however what I'd like to do is have the address of the client appear automatically.
I have set the client names in a combo box and would like their address to appear in either a text box or sunken label automatically from the table. Is this possible and how do I do it.
Please keep in mind that I've done basic programming so please be kind to this newbie :D
Hi everyone,
I have been making progress with customizing a
MS Access program, but one major problem is that
I have been trying to make a List Box or Combo Box
that I can use to enter data in the TABLE, but I
find that I get a pull-down list that has the list of
values from only the parameter that is primary key.
More specifically, the program is set up as follows:
I have two tables in this program: One that is called
"invoices" and one that is called "items". In both of
these tables, there is one common parameter, which
is "Item Number". Item number is the primary key,
and I used the "relationships" function to tie this
parameter to itself between the two tables.
I was successful in setting up a list-box for the
"Item Number", but when I try to set up a list-box
for another parameter that is supposed to display
a person's initials, the pull-down list displays the list
of item numbers instead of the list of people's initials.
In fact, I don't know if there is an extra step I need to
take so that the database stores a list of people's initials.
Instead, I just fill in the initials in the field for each
record for which the "Item Number" is the primary key.
How can I get the list-box to pull down a selection of
different people's initials, or in other words how can I get
all the people's initials to be stored so that the list of
initials can be looked up. Just so you know, I have tried
different choices of entries in the "Lookup" tab in the
Design mode of Tables, including Display Control,
Row Source Type, Row Source, and Bound Column,
but the outcome is that the only parameter that I
get get in the pull-down list is the primary key, which
is Item Number.
I appreciate any help you can offer in explaining how
to correct this.
On a separate note, one of the parameters is "Date", and
on the reports, I'm trying to figure out how to filter a
specific date range so that I can limit each report to a
specific month. Please advise me on this procedure as well.
Thanks.
I have several comboboxes (6) on my form.How to populate these comboboxes with values depending on selected value in previous combobox.
Example.Lets say that you select value "Audi" in combobox 1, then available values in combobox 2 should be "A4","A6","TT" etc. and if you selected "BMW" in combobox 1, then available values in combobox 2 should be "3-series", "5-series" etc...
I have a continious form with textfields as records. Its about total course hours that are calculated. There is a field in the records that holds and calculates the hourse that one have done and another field that holds the max hours they may follow for one year.
Every record has h different year.
When the amount of hours in the transmission textfield is negative, they can transmit the hours to te next year. Therefore i have to calculate the Max hours per Year + the transmission hours.
So the calculation is not a problem. Though i don't actually know where i can trigger the calculation. I have tried it with a button on the form, but then the user always have to click to see the right amount of hours for the next year. That's not handy. I am looking for a way to automatically calculate the field Max hours per year. Given that the Max hours per year is a bound field, its bound to a table where i stock the Max hours that i have calculated.
I also tried it with the button that's used for inserting new course hours, but then it calculates with the old values instead of the new ones.
How can i trigger the calculation automatically without using a button.
Hi
I have a combo box and its row source is a query that selects distinct values from a column in a table
However i would also like the user to be able to select nothing/null value from the combo box. How do i do this.
Thanks
What is a combo box and how do I make one?
View 2 Replies View RelatedI have created a query to simply bring up various parameters asking questions which then give back the results that are correct! i am wondering if it is possible so that when the parameter boxes display on the screen, for you to be able to select the answer from a combo box list (within the parameter box) instead of typing them in???
Cheers
hi
I have a cascading combo box on a form where by you can first select a supplier of a part and then a part from that supplier. (Attached is a pic of my structure). Next I want to be able to create a record of a "complaint report" for that part in the combo box... (see structure). Any ideas?
Many thanks,
Rob
I have read the cascading combo box solution and would like to know if this would help me with my specific solution.
I have a subform that is used to populate a table which is later used to cost each row by linking to a costing table (see later).
3 off the columns in this form have been set up as combo boxes e.g.
(1)Supplier/(2)Product type/(3)Product 2 is dependant on 1 and 3 is dependant on 1 & 2
These combo boxes currently refer to my costing table to ensure that the user can only enter a combination that is in this table so that when I compare the data entered in my subform table these combinations will be present in the costing table.
I get the 2nd combo box to show only the product types available for the selected supplier by afterupdate me![Product type]requery on the 1st combo box
The 3rd combo box is dependant on both 1 & 2 so I have applied afterupdate me![product]requery which has filters in the query as follows
Forms![subform]![Supplier]
Forms![subform]![Product type]
This seems to work ok when entering data initially into the form which places it directly into my table
The problem I have is when someone later goes into a record and changes combo box 1 and the data in combo 2 & 3 may now not be an option so how can I force them to go and re-visit these filed before exiting the form?
The second problem is if they go to the next record in the form and select the 3rd combo box to edit the field the qry does not show the correct option and shows the ones for the previous row?
Any suggestions please..
I have a Order form that i would like to use combo boxes when adding details records to the order. For example, my list of products is very long, each product belongs to a Series(category) I would like to create two combo boxes when placing an order. First one to select series, then another one to select product. I would like the product combo box to show only those products related to the series. Seems like a simple task but i am having so much trouble. I tried looking at the Northwind db because it has categories and products but in their order form their combo box just list products and there is no example like the one i want to do. Can anyone help?
View 1 Replies View Related