Hi,
I want to check a listbox value (the listbox is in the parent form) after updating a subform field to see if the listbox value is greater than 8.5 after updating. If it is, I want an error message to pop up and I want the field that the user is on cleared.
I think I might be referencing the control from the subform incorrectly:
Forms!frmParentForm!lstTotal
Any help would be much appreciated.
Hello,
I have a table with a yes/no field and on the form i have a checkbox that refers to that field. I am trying to count the number of records where that box is checked. This is the code i have so far
Code: Dim rs As Recordset Dim db As Database Dim i i = 0 Set db = CurrentDb() Set rs = db.OpenRecordset("Listings") 'table im pulling from rs.MoveFirst Do Until rs.EOF If me.Check137 Then i = i + 1 End If rs.MoveNext Loop MsgBox i
When i run the code, the check box returns a value of -1 for each run through the loop. Out of 900 records, i only have 4 of these boxes checked and they arent being counted. Instead, it returns a value of the number of records in the table. Am I missing something simple here?
Hello,
This is a simple question.
In my application I have the option of selecting different check boxes (6 different options). My database is storing the values 0 and -1 for nonchecked - checked boxes as it should be.
Now, I would like to create a report to display which values were selected from the options above but I don't know how to do it as if I display the values, I will only get -1 and 0.
Is there a way I can convert again or I can give the check boxes other values in order to be able to report them with their original names ?
Thank you
Gloria
I'm certain this question has probably been asked before, but I can't seem to find it!
I have a form field called fldTitle, and want to ensure users write something that is meaningful by evaluating words within the title to a table of keywords (tblKeywords). I know how to write the IF/ENDIF and the other stuff required, but am struggling to find the right commands to do the comparision. Could someone help me out?
Many thanks.
I have a bit of code that uses controls on a form to batch add records to the tables. Before the code executes, it needs to do a check to make sure that all of the needed data has been supplied.
Code:
If IsNull(txtDateAdded) Then
MsgBox "Please supply the date that the Label record was created"
Exit Sub
Else
If IsNull(cboRecordCreator) Then
[Code] ....
I have got like subform which I think is the tech term I use it to filter dates on field "date raised" and open's a report depend on date's entered in txtstartdate and txtenddate it works perfectly but I need to add some check boxes to check other field's are true/false ...
Code:
Private Sub cmdPreview_Click()
Dim strReport As String
Dim strDateField As String
Dim strWhere As String
Dim lngView As Long
[Code] ....
I need to add code to the text in red well I'm guessing
here goes with what I would like to add
job cancelled1 check box name field name= job cancelled
job on hold1 check box name field name = job on hold
void property1 check box name field name = void property
E.g. if I put date range in my date boxes and tick job cancelled show all record in that date range cancelled same with job on hold and void property
here some code I did but wont work as it not in the same strwhere above
Code:
if me[job cancelled1] = true then
strwhere = [job cancelled] = 1 'field name
else
strwhere [job cancelled] is null
end if
Some how need to add the strwhere to the code above ...
I am making an asset table which amongst other fields have fields for "serialNo" and "Manufacturer"
I am trying to write some code that after update of manufacturer in the form, will check to see if that serialNo and Manufacturer exist.
ive managed to do it for one value, using
If Not IsNull(DLookup("[serialno]", "Assets", "[serialno] = '" & Me!serialno & "'")) Then
msgbox "blah blah"
which works great, but am struggling when i'm asking it to lookup two values.
The forms in the code are subforms on a TabControl on a main form.
I have this code which needs to add together only the areas [Area] of records with a FloorNumber field value of 1 or 2 or 3 or 4.
At the moment the code works for one entry of 1 in the form frmRoomDetails. I'm guessing i need For Next or something like that but i don't know and also unsure of how to code it.
Private Sub FloorNumber_AfterUpdate()
If [Forms]![frmSiteDetails]![frmRoomDetails].[Form]![FloorNumber] = 1 Then
[Forms]![frmSiteDetails]![frmFloorsDetails].[Form]![Text8].Value = [Forms]![frmSiteDetails]![frmRoomDetails].[Form]![Area]
End If
End Sub
How can I check if a table contains blank fields/values.
If there are blank fields I want to replace them with 0.
How do I suppress the numerical values from being displayed on the "yes/no" check boxes when a user clicks directly in the field, instead of clicking the arrowhead as they should?
View 3 Replies View RelatedI know how to use openargs to pass values between forms but im not sure how to go about passing all the values from one subform to another.
To be specific I have an order form (frmCustomerOrders) that has fields like CustomerName, EmployeeName, OrderDate and so forth, the subform (frmCustomerOrdersSubform) contains information on the Products the customer is ordering which usually has multiple records with fields like ProductName, PartNumber, Quantity and ItemNumber. I want to pass the values from the CustomerOrdersSubform form to another subform (TransferSubform) My initial thought was to use something like the openform command through openargs but im not sure if that will work or if there is another method I should use.
I have the following VBA code that auto populates a word template:
Private Sub Command24_Click()
On Error GoTo ErrorHandler:
ErrorHandler:
[Code].....
The code executes flawlessy but there are three values that are based off check boxes set as YES/NO (EMPLOYEDATREGISTRATION, EMPLOYED and FRINGEBENEFITS). These values show up as -1 for YES and 0 for NO.
Is there anyway to add code to mine that would allow me to change these values before they are sent to the Word template?
I'm trying to write some Code with the target to take a value from a textbox (out of a form) and a pregiven value (in this case = 2) and enter them in a new record in a table. But only if there is not already a record with the exact same combination of these to values. When done, the same button should proceed you to the next form (but this code is not already implemented in the fragment below) even if no values are added because they already exist in this combination.
Code:
Public Function GetID_PatientStudiesGroup&()
GetID_PatientStudiesGroup = [Forms]![frm_PatientStudiesGroupTZP]![ID_PatientStudiesGroup]
End Function
Private Sub BPRS_T1_Button_Click()
Call GetID_PatientStudiesGroup&
Dim strSQL As String
[Code] ....
As you can see, I tried to use a function to refer to the value out of the form, because I didn't find out how to refer to a form in an SQL Code.
Just to give you a better overview: The table where the information should be added is named "tbl_PatientStudiesGroupTZP". The form where you find the Textbox "ID_PatientStudiesGroup" (with the value I need to transport) is named "frm_PatientStudiesGroupTZP". Every part (except the WHERE NOT EXISTS part) worked perfectly for itself, but not when thrown together.
I have a database used to manage teaching assignments (which kid is assigned to which teacher so to speak). I have this relationship defined through three tables, a teacher table, a student table, both with unique ID's. The third table is used to define the assignment. Also, the kid table has an extra GroupID. The group ID is what is used to define. So in the definition table, Teacher 1 is assigned to Group 1, and so on (though their may be 20 kids in group 1). When a new teacher is added to the teacher table, I need it to add it to the corresponding field in the definition table. The groupID is in the table as an Autonumber so that will populate automatically.
I need to appendTeacherID to tblassignment (TeacherassignmentID) and have only one occurrence of the TeacherID. So, if I have teachers 1-8 listed, each assigned to a group# in the tblassignment, and I add Teacher 9, I need it to add Teacher 9's unique ID to the TeacherassignmentID field without adding 1-8 again. I can't figure out how to "check" for ID's 1-9 and add only those I've added to the teacher list that aren't already assigned to a group.
I've tried a few different SQL queries append/select queries but nothing seems to do what I need it to do....
I'm new to this forum and already I've got a question.
I'm made a form and a subform. I placed a field called 'status' in the form and in the subform I placed a field called status_subform.
If I've changes all the status_subform into a certain value I would like the status in the form to be updated.
I tried a lot of things with recordsets. I can find the number of recordsets, but I can't scroll through the recordsets, can anybody help me?
Good Day Everyone :)
I appologize that this may be a very remedial question, and that many previous threads pertained to the general topic of check boxes, but as I am new to the world of access, I did not find any threads which i could apply to my following question.
I would greatly appreciate any help and guidance :)
What I am trying to accomplish is to set up a subform in which each record is linked to a check box. The check box would be used to select unique records for an upcomming search.
My problem: the check box which i have added to the subform (from the toolbox) is linked to all of the records. That is to say that when I check one box it checks all of the all boxes as well. :eek:
Is there any SQL language which i should be applying here?
Suggestions are much appreciated :)
Thanks a million in advance,
~ N' Take care ~ :)
I'm trying to create a form to link data. I'll give you an example..I have 25 football teams and 100 players. I want to link 4 to 7 players to each football team. Those players can be repeated in different teams.
I wish to do it with a form where I choose the team first (combobox) and then I select the players in the subform. The point here is that I want to choose the players via a checkbox and I want to see all players in that subform too.
SUBFORM
- [Checkbox] [name player 1]
- [Checkbox] [name player 2]
- [Checkbox] [name player 3]
- [Checkbox] [name player 100]
Is it possible to do without programing Access with VB?Do I need to create an intermediate table with the checkbox and then create the subform?
I have run into an issue with a basic DLookup. The database has grown in size and now we could have multiple entries, but I want it to return a certain one. So the information could be in it three times. Of course DLookup stops after the first one. How do I get it to loop to check the entire table? Someone mentioned to me to use a recordset, but how to write that as I have never used it before. Below is what I was using until this new request came up.
<code>
Private Sub txtloan1_AfterUpdate()
If IsNull(DLookup("[loan1]", _
"settlement", _
"[loan1]=""" & Me.txtloan1.Text & """ AND [status] = 'Open'")) = False Then
Cancel = True
MsgBox "Test", vbOKOnly, "Warning"
End If
End Sub
</code>
This was also executing after the user entered the information within a text field. I did not want them to enter all the data and then have it come back as a duplicate.
I have a subform in datasheet view. I would like to put a button on the mainfor that checks all the subform records for spelling mistakes. Is this possible?
View 3 Replies View RelatedI have a repair database which I'm working on. On the main WIP form there is a subform stating the faults which have been logged against that unit. The unit can be scrapped at any time by hitting the SCRAP button, but if the unit has had it's faults successfully repaired, then it can then be FINALISED which means it can be shipped to the customer.
I need to be able to check the records in the subform, to look for faults which have not been repaired. When they are repaired, the text "PASS" will be present in the TEST_RESULT field. I want to be able to check the TEST_RESULT field for each fault to ensure they are all a PASS before I allow the unit to be FINALISED. Any ideas how I can do this? Or am I taking the wrong approach?
Thanks,
Gareth
I'm trying to check if a subform is visable. The following code is just test code so I can get a result. I keep getting an error on the .IsVisible section.
If datTimePlus15 <= datCurTime And [frmBarstockAreaSubForm].IsVisible Then
MsgBox datTimePlus15 & " " & datCurTime
datTimePlus15 = DateAdd("n", 1, Now)
End If
In sheet 1, In column A all the Batch numbers are present. So I want to check if each of these is present in Access table named "tblmain". If its present then display its corresponding Policy number in Column B of attached workbook.
View 1 Replies View RelatedBasically, what's the best practice or how do we store a query's value into an array then checking what the max or min value is and how to check if let's say "4" is in the array?
View 1 Replies View RelatedI need to make a form that lists 120 checkboxes and then adds an associated value to get a total.I have a table with Description field (i.e. aspirin) and a Points field (i.e.2). I need to make a subform that shows 120 checkboxes and when the user checks the boxes the associated points are totaled.
I have tried using a default value for each checkbox which works except I can't get the subform to add a new record when I move to the next mainform record.how to make a form where I can see all 120 items and give the use a choice to check 1 or all of them and get a total?
I have a filtered subform that has a check box on each record. I want to be able to use an unbound checkbox to select all and have that selection updated in the table for each associated record.
View 4 Replies View RelatedI have a simple form that has a subform with its datasource being a query that is a multi-table select (complex joins)... the subform is set to allow dataentry, edits, etc. I have a checkbox that displays a value from the query (0, -1). Is there a way I can enable this checkbox to write back to one of the tables? Temp table to hold the contents of the query?
View 8 Replies View Related