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.
View RepliesHow can i put a fixed time for the current date in a text field.
So the field will be 06:00:00 for the current day when the form is open?
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.
What should I do for solve my problem?
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.
What should I do for solve my problem?
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.
Hi,
I have a Form that is modal and popup, and which opens without the MS Access in the background. It is like a separate window (piece of program) that runs under Windows XP.
If I move the Form on my screens (I have dual monitors) I would like that the messages that are triggered by various actions to appear on top of the form not - for example - on the other screen .
I can add more info if necessary.
Thanks for help.
I have a button that opens a form which is based on a query.
The query has a prompt so when you click the button the prompt pops up.
However if nothing is entered you get a VB error 94 error.
How do i get it to show a msgbox if the search is empty?
How can I show a msgbox with the text "Update in progress! Please wait a while", when I execute the following make table querye on form load?
Code:
Private Sub Form_Load()
'Turns the Access warning messages off
DoCmd.SetWarnings False
DoCmd.OpenQuery "q_tblUdtrk2"
'Turns the Access warning messages back on
DoCmd.SetWarnings True
[code]...
Hello,
My database has two main tables: Table1 and History
Users can add data to this table and decide if store part of data into the History table using an append query behind a cmdbutton. I do this to create an Historical Log of my records.
I then have a main form (form1) with the following code on the OnCurrent event:
If Not IsNull(DLookup("[SSN]", "history", "[SSN] = '" & [SSN] & "'")) Then
msgbox "Record present in the Historical Log!", vbOKOnly, "Warning"
end if
I would now like to change this code so that users are prompt with a message that allows them to either open the form1 or the Historical log (frmHistory)
I would need something like this but cannot get it to work:
If Not IsNull(DLookup("[SSN]", "history", "[SSN] = '" & [SSN] & "'")) Then
msgbox "Record present in the Historical Log!", vbYesNo, "Warning"
If vbYes Then
DoCmd.OpenForm "frmHistory", acNormal, "qryhistoryfrommsgbox", "", , acNormal
If vbNo Then '
'open the regular form1.
Another thing I cannot figure is why this pop up msg comes up even if I close the form. Is there a way to revome it from the close form event?
Thanks.
i have a form to enter a new client if the client is existed then a message box appear and tell me that this client is existed and his number id is ## with two buttons yes and no.if i click yes i should go to a report that contains information about that user and this report take his data from a query
new client save code
---------------------
Dim MSG As Integer
Dim ExistentID As Long
ExistentID = Nz(DLookup("P_ID", "tbl_Personal_Information", "Full_Name = Forms!frm_New_Person!F_N"), 0)
If ExistentID > 0 Then
[code]....
when i click yes the report should open with the existent id but he open a input box to ente an id and his title is tbl_personal_information.PID it's the ID field that it's named P_ID in the query
How can i display current time and date on msgbox. in ms access 2007.
View 2 Replies View RelatedI 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.
I have a form that loads when the database is open, and the form has buttons etc. that leads to queries and reports in the database. (Queries open in a form). Since most queries take a while to load, I was wondering if there is a way to Pop up a message box stating "Please Wait, Query is running..." (or something like that), and once the form opens the MsgBox should close automatically. (The user should not have to hit Ok button.)
Most users of this database would have restricted access such that they would not have navigation pane and toolbar visible - hence I want to make it a touch more interactive when a process is running...also if someone is new to access they might not notice that taskbar status and I don't want them thinking the program is stuck etc..
Formatting issue regarding elapsed time calculated using DateDiff().
I understand that you can specify the output value for DateDiff(). In my case I have chosen "n" for minutes. Each result in my query shows the correct calculation in terms of minutes.
[PunchIn] = 11/23/2013 8:11:28 AM
[PunchOut] = 11/23/2013 5:43:30 PM
[ShiftLength] =DateDiff("n", [PunchIn],[PunchOut]) = 572 minutes.
Now when I try to format the result in terms of H:MM (be it in a form or a report) I get varied results. I'll illustrate an example below:
=Format(([ShiftLength]/60),"0") & "." & Format(([ShiftLength] Mod 60),"00") Returns 10.32 Not correct
=Format(([ShiftLength]60),"0") & "." & Format(([ShiftLength] Mod 60),"00") Returns 9.32 This is correct but I need my result to be in the form of a decimal such as my next example
=([ShiftLength]/60) Returns 9.53333333. Getting there but how do I have this result only show two decimal points 9.53?
Hi guys.
I have a few problems with my message box.
1. How do I enable a message to pop up only the first time I click a save button on a new record in a form?
2. How do I run the following
Me.Home_Tel.Locked = True
Me.Student_Name.Locked = True
Me.Class_Enrolled.Locked = True
ONLY AFTER you click Yes on the message box?
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
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:
Table 1(Items Out):
ItemID | DateTime | Quantity
1 1/1/08 1:00 1
1 1/1/08 3:00 1
Table 2(Items In):
ItemID | DateTime | Quantity
1 1/1/03 2:00 1
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 have some vba that ends with a text box being displayed that says "file created"
I would like to add to that text box how long it took.
My initial thoughts are to add to the start of the code a variable that stores the current time (stTime)
and at the line before the text box is shown get the time again (endTime) and subtract one from the other to get the time taken in mins and sec
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.
View 2 Replies View RelatedHello,
I once used a program, when you click this .mdb file, it opens a main Form interface that user can run programs such as view report etc. That is, all tables, querys reports, other forms are behind the sence (user does not need to know them).
Could anyone tell me how to do this? Thank you for yoru help.
Hi,
Does anyone know if I can just show the switchboard only so that it looks like a program, or if I can use an existing MDB to create an .exe??
In the initial Form_Open code there is a string that fails before the form is open, preventing me from opening the form and accessing the VBA code to correct the problem.How can I access the VBA code to correct the problem if it otherwise prevents me from opening the form so I can access the VBA code?
View 7 Replies View RelatedHi All,
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
I need some help to combine the above codes.
Thanks in advances,
Abrahim
On a form I have a listbox that allows me to navigate around my records. The listbox is filtered and I get the redords that I waqnt from the table.My problem is that when I open the form the record that is showing is one from the table but not one that is in my listbox. I want it to show the first record in the listbox...This is the command I have on open:
Code:
DoCmd.GoToRecord , "", acFirst
which is where the fault lies, but I dont know what I should put in its place. The list is List273 and the form is frm_Profile
What I want to do is... open a file dialog from VBA "This of cause is no problem" the file dialog is opened from a double click function of a textbox holding a link to a picture, what i want to happen is... when the explorer opens I want it to show only the picture that was linked in the textbox.
Example "C:markPhotosPicture 085.jpg"
the code i have so far is as follows...
Private Sub FilePathLbl_DblClick(Cancel As Integer)
Dim fFile As String
Dim fd As Office.FileDialog
Dim retVal As Variant
Set fd = Application.FileDialog(MsoFileDialogType.msoFileDialogFilePicker)
[Code] ....
It opens in the correct folder but it shows all the pictures in that folder.
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 a text box on my form which I use to attach hyperlinks to pdf's, this works great but after inserting a hyperlink nothing is displayed in the text box to show it has been linked unlike using attachment, the only way I know if that a hyperlink is placed is to right click and go to hyperlink and then open, is there a way to show the link on the text box and just double click on it to open the pdf. I am trying this as the size of the database will far exceed the 2gb that access allows if I just use attachments , even if I split the database (over 10000 pdfs )
View 2 Replies View Related