Code:
Private sub txtbx1 Afterupdate() Dim SQL As String SQL = SELECT EMPID, COUNT(*) FROM table GROUP By EMPID HAVING COUNT(*) > '" & me.txtbx1 & "'" DoCmd.RunSQL SQL End sub
Lou699
Last Activity: Feb 6 '21, 04:17 PM
Joined: Nov 8 '20
Location:
-
I've tried to run SQL command as following but it didn't work
-
Find Repeated IDs using VBA
Hey guys,
I'm creating a db to monitor employees vacations, I created a table to record it and then a tabular form to preview all the records.
Then I created a txt box to check of there is an employee takes multiple vacations.
So I need a VBA code that will be assigned to Txtbx1 so that Afterupdating the text box with numbers for example 5, the form will show the employees that have taken 5 or more vacations.... -
The ID is a short text and I don't want to filter based on a certain ID
I want to filter based on the x number repeated so if I type 2 in the ID filter I want the form to filter for all the employees with 2 entries
And when visited the topic you've sent I couldn't find a related solution
ThanksLeave a comment:
-
Sadly I couldn't find the part for the Afterupdate filter related to ID Filter
What I want is whenever I write a number it shows the employees that are repeated for that number or moreLeave a comment:
-
Multiple Filter
Hey Guys,
I've created a query with employees vacations with the following columns:
1) EmpID
2) Name
3) Business Area
4) leave Date
And then created a form that displays all vacations taken
And then in the form I created text boxes above each with the following names:
1) ID Filter
2) BArea Filter
What I want is to filter the form if an employee taken... -
Thanks a lot for the reply
What I'm doing is I'm trying to collect emails using ms access, so at the beginning I've used the import from external data option to get the email folder into a table in access and then I created a form to be able to see the email contents, sender ... etc.
However if there is an attachment in the mail I don't know how to preview it within the access form.
adding to this I don't know to what...Leave a comment:
-
I changed the UserFolder.Item s to Inbox.Items however it didn't work
If you can help of how it use the code or where can I assign it to let it workLeave a comment:
-
Email folder import with attachment
Hey guys
I'm trying to import Email folder but I can't find a way to import the attachment as well
Knowing that there is a cell that determines whether there is an attachment or not
So what I need is a code to be associated to a button that can show the attachment(s) -
Thanks a lot it's working <3Leave a comment:
-
...Code:Private Sub Leave_Start_Date_BeforeUpdate(Cancel As Integer) Dim strDate As String 'We format the date string to include the '#' delimiters strDate = Format(CDate(Me.Leave_Start_Date), "\#m/d/yyyy\#") Cancel = DMax("(" & strDate & " Between [Leave Start Date] And [Leave End Date])", _ "[Trial]", _ "([Staff Number] =" & Me.Staff_Number &Leave a comment:
-
Days overlap
Hey Guys
I'm trying to set up a form to register employee vacations without overlapping days it worked fine however in the below case it doesn't detect an overlap
If I entered a vacation from Oct 2nd 2020 until Oct 4th 2020
Then I entered vacation from Oct 1st 2020 until Oct 5th 2020 for the same employee ID
I've done the code for both text box Start & end
I want it to detect...
No activity results to display
Leave a comment: