After you click yes, it can be locked forever, but not before you click the save button or if you clicked No on the msg box.
3. For another command button, how do I disable it after you have clicked it, and not enable it again until after you enter some value into a text box?
My message box now:
Dim msg As String
'Ask user if they want to save the record.
msg = msg & "You cannot change Student Name and Course Enrolled after you save. Proceed? "
If MsgBox(msg, vbYesNo, "Warning") = vbYes Then
'Run the command
DoCmd.RunCommand acCmdSaveRecord
'Lock the following keys
Me.Home_Tel.Locked = True
Me.Student_Name.Locked = True
Me.Class_Enrolled.Locked = True
Else
Me.Home_Tel.Locked = False
Me.Student_Name.Locked = False
Me.Class_Enrolled.Locked = False
Exit Sub
End If
I have an attendance database and I connect the time attendance machine db to my access db, what i am trying to do is to generate a report that shows the time in and time out for specific date. the type of attendance db is date/time.
Please see the attached screenshot db from attendance machine.
an also some time there is duplicate entry, I need to get the first and the last entry only for specific date.
Hi there, i have a field called numbers - i need to throw a messgae box alert if the value within taht field reaches or is 5. I have records so if within any of these records if the number field contains say 5 then it should show john's number has reached 5. So it must read the first field name of that record and teh number field of the record. I've been trying to use the macro tool - but no luck yet. An start would be just to show that the number field has reched 5 without showing the first field record i.e. john not shown. Anyone have any idea how i could do this.
I have a messagebox and want to know if it is possible that the messagebox give me a date as 15/01/2015 and not 15/01/2015. Using dailog box as messagebox
Code: Private Sub Save_Click() Dialog.Box "Tape # : " & Me.Tape & vbCrLf & "Sticker # : " & Me.Container1 & vbCrLf & "Book # : " & Me.Book & vbCrLf & "Date send Out : " & Me.DateSendOut & vbCrLf & "Date to be back : " & Me.DateToBeBack & vbCrLf & "OS : " & Me.System, , "Saving............." End Sub
I have a split database with multiple users. Since I split the database, it runs slower than the unsplit version. I understand this happens. I would like to have a message pop up when the database is loading. It takes approx 2 mins to load. Users get impatient and start clicking. So, I wanted to have a message pop up to let them know it is opening.
I have the same problem with forms loading, I have 5 forms and each takes about 4 secs to load, so thought about a loading message there too.
I have 2 fields on my form service interval combo box and vehicle mileage text box I m trying to create a pop up message on there values
if service interval is 12,000 and the mileage entered in the vehicle mileage is over 12,000 then show pop up message.
this works but I'm sure its wrong don't no why I need the -1 anyways here's what I have
Code: If Me.Vehicle_Mileage.Value > Me.Cboserviceinterval.Column(1) - 1 Then msgbox "test" end if
Now my problem what I can't get it to work . I still want the pop up message, if say the service interval is 12,000 and mileage entered in the vehicle mileage is 1,000 miles below the service interval I still want the same pop message but if 2,000 or more below service interval then no pop up message .
I have tried a number of sequences with no avail....
Hello I am getting a strange error message run time 2105.
I have created a macro on a menuform to open myform and go to a new record. When this myform opens, I get the run time error and it says you may be at the end of a recorset.
The problem is given to me because probably I have added the following code to the exit event of the SSN fields which is the first field that has focus on my form:
If Len (Me![ssn]. & vbNullString = 0 Then msgbox "You need to enter a SSN" Cancel = True Else Cancel = False End If End Sub
I need to force data entry in the SSN field but the run time error comes up.
Hey, I've got to make a query that displays all records whose Date/Time field appear after another tables Date/Time field. I suppose I could say this is for use in an "Item scanned into inventory, Item Scanned out of Inventory" fashion.
To purpose is to use the total items returned after the date/time to be subtracted from the total of items that were scanned in at an earlier date.
I always tend to get redundant because I'm never sure how well I explain something, it would work something like such:
So effectively the query would run, with the date/time criteria being ItemID 1's Date/Time. It would ignore the 1:00 entry as it occured before the first Item that was scanned in, and return that we have 0 ItemID 1s in inventory.
Inventory is just being implemented it was seat of your pants in the past that is why I have this dilemma we dont know how many are in stock until we check it manually but we know how much has left. This is why data before our manual check is not important to our current totals. We could have sent out 5 ItemID 1s but only have 1 in stock now, and if we use that data we would have -4 in inventory. I'm attempting to use the oldest date/time of the manual scan (table 2) as a criteria per item scanned against table 1. Hopefully, to return the present total of items on hand.
Edit* As a note, I understand how to use >=#1/1/08 1:00:00# as a criteria but for some reason I cannot swing using a field in a table as criteria. That's pretty much what I can't find on the board or in my books.
I just got a request to add a new text box to a form called "EstimatedDuration" and trying to a command button that when clicked, it will insert 30 minutes or #00:30:00" into the box. I'll wind having 5 or six buttons with 30 minutes, 1 hour, 1.5 hours, etc. Basically, this will be used for new projects in my database and for management to click one of the buttons to add an estimated time duration of how long the "think" the project will take to complete.
I have the following code to run search: Code:Private Sub Command20_Click() Me.household_id.SetFocus 'Me.Text21.SetFocus 'subj_num = Text21 DoCmd.FindRecord Me.household_id, acEntier, True, acSearchAll, True, acCurrent, TrueEnd Sub Let's say it found 5 records matching the search criteria. I like the Access form show me each record every on second. Meaning show me next record every one second.
I have the follwoing code to loop throgh each record but I nned to run after the find code runs and loops throgh the record that have been found:
I have the following code to do the loop through each record but, I need to run it after running the find code and then loops through the records that have been found:
Code:Private Sub Command10_Click()Dim inti As Integer'Loop through record 1 to 20 in form For inti = 1 To 20 DoCmd.OpenForm "DEM_RECH_CHECK_LIST", , , "[household_id]= " & inti Next inti End Sub
Is there a way to get a msgbox to show only when the db is open for the first time. So basically what I want is when I push an update it will auto check to see if the db is current if not then it closes an opens the new db. When it opens the new db i want it to display a msg box or form that shows the new updates. Then if they exit an reopen it wont show the option.
I have a pop up reports tied to my form so the usere can press the see list report of all the equipment they just scanned in or out of the building. I am useing the Date/Time data type (General Date) What I would like to get out of the query is when the user clicks the button it will show all entries from the time right before the button is pressed AND through 5 minutes earlier. (That would be the time that the user would of started scanning the equipment.
This is my current criteria : Between Now() And Date()
This is returning all transactions for the day. I really only want all transactions for that session.
I have an error database that I'm attempting to build. I need the results of the query to show User ID when there are no errors during a defined time frame.
I have some project run on MS-Access as front-end with database linked to MS-SQL Server. I have some column of table contain Date-Time data that store data as General Date format (ie 01/01/2005 08:00:00). I create some form for my staff to key in a data of lab test that they will be key in only time with out date value. On form, I show this value as time only too. But I want to use this data with Date value for some calculate as backgroud process.
So...
In case of new data, Database will be store my data as CurrentDate with Time that my staff key in.
In case of data update, Database will be store my data as ExistDate with Time that my staff may update.
I have some project run on MS-Access as front-end with database linked to MS-SQL Server. I have some column of table contain Date-Time data that store data as General Date format (ie 01/01/2005 08:00:00). I create some form for my staff to key in a data of lab test that they will be key in only time with out date value. On form, I show this value as time only too. But I want to use this data with Date value for some calculate as backgroud process.
So...
In case of new data, Database will be store my data as CurrentDate with Time that my staff key in.
In case of data update, Database will be store my data as ExistDate with Time that my staff may update.
I am building a database to enter staff phone statistics. As an example my fields would be - Name, Date, Staffed time, Available time, Aux time and then calculated fields to show the percentage of time i.e %Aux, %Available etc.
My problem is the formatting of the times entered as they are duration not time. Say staffed time is entered as 08:00:00 for 8 hours and Aux time 03:57:21. The only format I can see to suit is date time but then Access takes these entries as 8am and 3:57am is there a way to change this to work as duration hh:mm:ss?
I'm aiming to create a stacked area chart to display the progress of multiple projects over time, so we can review and forecast project load over time.
A project passes through the statuses Prospect, Confirmed, Started, Complete. The current status of each is calculated in qryStatus from the dates in tblProject. The past and forecast statuses for each project will probably be calculated each time the chart is created (or maybe not necessarily so?)
To create the stacked area chart, the x-axis will be months (e.g. Sept 2013 - July 2015). On the y-axis will be the count of ProjectID, and the series will be the different project statuses.
The sticking point is getting from the Date* fields to the past and forecast statuses in each month. After that I imagine it'll be reasonably straightforward to put into a pivot/chart.
I have a report that shows the daily activities. it shows how long it takes to do each task. however some tasks are 8 hours andsome are 10 hours. when all these times are added together it will give the time on a clock. not a total of hours spent.
i.e. treatment1 : 8 hours treatment2: 10 hours
this will give 06:00 in short time. in medium time it will give 18:00.
however if I add another 12 hours to that it will give 06:00.
I want it to show either 1 day and 4 hours /or 30 hours.
ID Up Time Down Time John 18:00 15:00 Kelvin 08:00 08:05 Melisa 23:00 02:00
This is the Table , i need the Query result show IF [Up Time]-[Down Time] is >=3 hrs
Like Below :
ID Up Time Down Time John 18:00 15:00 Melisa 23:00 02:00
IDUp TimeDown TimeJohn18:0015:00Melisa23:0002:00
I tried DateDiff("h",[Up Time],[Down Time]) in Field but POP out with error "Syntax error (comma) in query expression 'Table1.[DateDiff("h",[Up Time],[Down Time])]' " ...
I have a form that request information from the user (StartDate, StartTime, EndDate and EndTime) the problem is that it's not working. The only way I can get any data to show is when I remove the StartTime and EndTime. Only then will it pull the items from the StartDate and EndDate.
Here is what I have as my criteria: Between [Forms]![OpPROD_ALL]![StartTime] And [Forms]![ OpPROD_ALL]![EndTime] And Between [Forms]![ OpPROD_ALL]![StartDate] And [Forms]![ OpPROD_ALL]![EndDate]
The users will be able to request a report based on a start and end date along with a start time and end time.
Side note: this is to pull date for 3rd shift (Example) 4/14/2013 10:00PM - 4/15/2013 10PM
I have an application with a backend db on PC 1, and the same application on PC 2 linked to the backend db on PC 1 via the network.
The link works fine but the time formats are different.
On PC 1 the time format is shortime and displays as it should i.e. in 24 hour clock format
However on PC 2, opening the same database via the network, the time format is still shorttime but when you read the time within the code it comes out in AM/PM format. Also, when the defaul tiem should be #20:00:00# but this changes to #8:00:00 PM#
Weirdly though, when you just open the table, the times are in the correct shorttime format.
Guessing, it must be a setting within the main core of Access 2003 that is different between the 2 instances?
