Modules & VBA :: DLookup - Check Value Of Yes / No Checkbox Based On Username
Dec 22, 2014
I'm trying to find a code that will allow me to check a value of a yes/no checkbox based on a username.
What I want to happpen is:
1. The code looks to see if the username that is entered in "txtUsername" field on the form matches the "empUsername" value on the table "tblUsers."
2. If there is a match, I want it to look at the value for the field "Admin" on "tblUsers" to see if the value is checked as true.
3. If the value is true, I want it to open a specific form "frmAdmin." If it is false, I want it to open a form "frmMain."
VBA codes not recognizing the Admin field and instead taking all users into the frmMain.
I would like to make a DLookup that check 2 criteria in two different columns in the same table. The reason to use a DLookup is that I would like to check if two parts already have been linked together. The user therefore selects two values in to different comboboxes (lstLinkPart and lstLinkToPart). In this case the value of the first combobox is column: ComponentPN in tblProductLinkComponent. For the second (lstLinkToPart) column ProductPN, in the same table, has to be checked.
If both values from the comboboxes match the values in both (and only) columns I don't want to continue and made a code to be executed.
I found multiple examples on the internet for using multiple criteria but something similar to what I require.
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 some code that creates queries based on a value in a checkbox.
So, depending on that value, the queries may or may not exist.
I need to take those queries (if the exist) and create one union query.
This code creates the first query beautifully, but it won't union the second query.
Code: Private Sub cmdSubmit_Click() Dim blnQueryExists As Boolean Dim cat As New ADOX.Catalog Dim cmd As New ADODB.Command Dim qry As ADOX.View blnQueryExists = False
I have a field 'Payment Types' with values (Cash, Cheque, Debit/Credit Card) and a field 'Payment Received' which is Yes/No.
When putting the order through the user selects the payment type and ticks a box if payment has been received.
On a report for delivery drivers, the owner wants it simple for the driver... he wants all the payment types listed with a checkbox next to each one, then wants the appropriate box ticked if payment has been received.
So I need something on the report (or underlying query) which ticks the appropriate box, i.e.
If payment received = true then payment type checkbox = true.
Or should I put the payments into a separate table with both fields so multiple payment types can be marked as paid?
I have a table in Access that I have a form saving new records to. Before this save occurs, I would like Access to check if the account number already exists and if the account does exist if it is outstanding. If both of those conditions are met I would like a message box to display and cancel the save as it is a duplicate. I can't seem to get it to work though.
I was thinking to use a filtered recordset based on one of the conditions and then perform a find on that recordset to see if it is null.
Code:
dim acct as long dim rstfiltered as DAO.Recordset Set rstfiltered = CurrentDb.OpenRecordset("SELECT * FROM tblclstrack WHERE [Request Status] <> 'Completed'") acct = Me.cd_number.Value
After viewing all the threads i got some useful information but just wanted some help as i am not a programmer but can understand logics. There are 2 issues i want to resolve
1. First query is i have a login form and in a table there is username password. Now issue is based on the username person should be able to view things. There would be 6 differrent departments. So i would have six users and 1 id only for viewing. These six users should be able to see there own records either assigned to them or create new query and assign to any other 5 users. Now option is either I create six replicated forms and based on the user login i open user form or switch board. Can there be any option where in a table i store the activities they can do and whereever these guys go the code check in table and enable or disable the view of items for other guys. Users would be accessing forms, reports and they would have option of entering cusotmer information and querying and changing information. The user which has option of viewing reports will only have option of seeing some customized reports.
2. Second query is that these six users would be addressing issues to each other regarding cusotmer issue. In this every response of the case should be stored in a table. i.e. like for customer x user1 said abc on 10th then user2 said cbf on 11th. so this would have history of case what was happeining in the matter.
I dont know how to go about this and if there is a easy solution. I dont want to use access security cause then all the six users would have security file.
Would apreciate your help and till now whatever responses i have seen in other forms they were quite helpful and did help me lot in understanding access.
Thanks to all who would be visiting this thread and taking pain in answering the query.
I have a text box on a form, currently it performs a dlookup for me. I want to change it so that it only performs the Dlookup if a checkbox is checked, but otherwise will display the text that's in an unbound text box.
Not 100% this is even possible, but hoping so. So far I have in the textbook:
The dlookup works fine by itself, it's just making it conditional that's causing me problems. I know it could just be a small problem with the way I've written it, or it could be a bigger thing with me not understanding the way IIF works.
I have a check box and I want it to show a picture if it is checked and hide the picture if it not checked. I dont know where to put it either, do I put it in the form load procedure or in the checkbox procedure? Basically I want the user to check the box if it is needed and when they open it later they will see the checked box and the picture.
Here is what I am messing with.
If checkBox.?????? = ? Then imgPicture.visible = True Else imgPicture = False End if
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.
I am trying to create a medical records inventory. We have physical charts which each have a barcode and I have a scanner. The idea is to have employees who want to check the chart out scan their barcode (on their badge), scan the chart's barcode and leave.
I have a table called tblCharts with the fields: ID (primarykey which is also the chart number), a checkbox, Employee ID, Date, and Time checked out.
I have Employee ID linked to my tblEmployees that simply has a listing of the employee ID's and first and last names. I don't care about keeping a record of who has had the chart in the past.
I just can't figure out how to tell the checkbox to be checked (to indicate the chart is out) when a number is added to the ID field (via scanner).
So here's how it would go:
Scan the chart's barcode which would populate into the ID field. Search to see if the record with the same number is already existing, if not create a record. IF it does exist, check to see if the checkbox is checked. If it is checked then the chart is being checked back in (so uncheck the box). If it is not checked to begin with (still in), then check it out and associate the employee's scanned barcode with it.
If it's possible: Would like to use the Environ username somewhere in the db so the user only sees their records. Where would I place this? Or is their different code I should be using for this purpose???
How to use VBA..... I have set up a simple database to enter data into then upload to a client web portal.
I have a form to enter the data and the table this data goes into has a check box at the end which I want to have ticked/checked/True after I have exported.
I have created a query that shows me all data that is unchecked (not yet exported to an xls)
I have created a simple export macro that sends the query result to an .xls
I want the macro to finish by checking the "export" checkbox once I have done this....
I am using Access 2010 attached is a screen dump of what I have so far....
I have a parent form which has a yes/no checkbox in the form's record source. Then in that parent form I have a sub-form. If NO records exist in the sub-form I want the checkbox to be UN checked. If records DO exist in the sub-form, I want the checkbox to be CHECKED.
But I want this to happen as records are added or deleted from the sub-form. In other words, if the parent form is opened and no records exist in the subform then the checkbox should be unchecked. But as soon as the first record has been entered in the subform, the checkbox on the parent form should be checked. Likewise, as soon as the last record has been revoved from the sub-form, the checkbox on the parent form should be unchecked.
I am trying to use the Environ Username function, which i have working! But i want to compare the result with a Username Table to determine if they have access etc...
I'm working on creating an events log. In my table I've got a field that pulls the individual's username (that they use to log into the computer) and logs it against their log entry.
As part of my query (for my daily events log report) I'm pulling up said username.
I'd like to give access to the specific user to edit his (and only his) entries from the report, but I'm getting a type mismatch with the below code:
Code: If me.UsernameID = "KraussLJ" Or Environ$("Username") Then DoCmd.OpenForm "frmShiftLog" DoCmd.FindRecord Me.ID, acStart, , acSearchAll, , acAll Else MsgBox ("You are not authorized to edit this entry") End If
(before you ask, "KraussLJ" is our ops manager who insists on having final editorial control over the shift log before sending it higher up the chain)
I can get the msgbox to run if I block out the
Code : Environ$("Username")
, but beyond that I'm a little stuck. Should this be a dlookup function or am I overanalyzing this way too much?
basically am creating a booking system, i have a add a room form. my form should check whether i already have a room number in my table, which works when the form is filled in. however when my form is null, then i press add new room button, i get this error rather than " please fill your form in"
Error: runtime error '3075' syntax error (missing operator) in query expression 'Room Number ='.
room number is a number field, integer but has primary key. i cant keep autonumber, as my requirement is to add new room number, but the roomnumber has to be unique.
here is the dlookup;
If DLookup("RoomNumber", "tblRooms", "RoomNumber = " & Forms!RoomPackages!txtRoomNumber) > 0 Then MsgBox "This number already exists." Else
How would I get a report to only show records that have a check box called "Display" checked? I have tried some code, I even put it in a couple of different places, but it still doesn't work. I put the code on the on click event of the command button that opens the report and I tried the code in the on open event of the report. It did not work either time. Here is the code that I tried.
'Display only records that have the box checked
If IsNull(Display) Then DoCmd.GoToRecord , , acNext End If End Sub
I have created a form based on a query. On this form, there are command buttons that when pressed, exports a file to excel. This export is based on a query, then using a macro using the TransferSpreadSheet action. It works great.
On this form there is a check box which is tied to each person on the form. Is there any way to export to Excel ONLY THOSE PEOPLE WHO ARE CHECKED?
I have table.[reconciled] tat allows for a check box. i want to enter in the criteria filed in query design that i only want to see the unchecked or false entries. i have tried writing the criteria multiple ways and i cannot get it to filter out on my sub form query.
I have a form with a subform inside of it. On the subform I have created a field for a check box. I wish for the user to be able to click 1 or more check boxes in the subform and then click a delete button that removes all selected entries.
I have this code from a seperate post regarding this problem, but am not sure how to edit it to reflect what I need.
Sub DeleteRecordButton_Click()
'Delete the selected record dim strSQL as String strSQL = "DELETE * FROM mytable WHERE mytblID = " & Me![mySubForm].Form![mytblID]
