Hi,
I am creating a small call logging database and I would like the user to receive a message 1minute before the call is due to end.
I was thinking something like:
if [callend] =now() then msgbox "Call Due To End"
Can anyone help?
Many thanks
Charlie
PS, I have searched, but to no avail as yet!!!!
I'm having to recode some old MS Access DBs so they will run in the following environments:
Office 2000 on WinXP
Office 2003 on WinXP
Office 2010 on WinXP
Office 2000 on Win7
Office 2003 on Win7
Office 2010 on Win7
When I wrote my code for Office 2000 on WinXP things were simple because directory paths were the same across all computers and I could hard code pathing when using a shell command to launch other files.
My new approach is to make a function call to the Windows registry to determine the default executable and path for opening a file based upon its extension (see apicFindExecutable in basWindows API module).
I'm able to use code to create a shell call and debug print it to the immediate window. If I put my cursor in the immediate window at the end of the shell call and hit [enter] the external file will open as desired. If I try to open the external file directly through code, I get a file not found error.
To recreate the error take the following steps:
(1) browse to files that are accessible from your computer
(2) click the PREPARE DATA AND OPEN MAIL MERGE DOCUMENTS command button
Shell function call is made by the fnOpenFile function located in the basOpenFile module. There has to be a trick here that I'm missing.
Can I let a Session variable end when all the pages are closed?
View 1 Replies View RelatedMorning All!
Boss-Man has a db (humongous) that (along with a zillion other things) tracks which specific tasks have been completed, who has done it and when did they do it.
All tasks will eventually be completed by all employees.
He's got a query that returns all of the dates on which each task has been completed, using each TASK name as a field.
The short version below shows the TASK1 was completed on 1/1/07, 2/7/06 and 2/17/07, TASK2 was completed on 01/05/07,by 2 people on 2/15/07 and again on 02/28/07 and so on.
TASK1***** TASK 2***** TASK 3 ***** TASK 4
1/1/2007 *** 1/5/2007*** 1/13/2007 *** 1/2/2007
2/7/2006 *** 2/15/2007 *** 1/7/2006 *** 1/15/2007
********** 2/15/2007
2/17/2007******
********** 2/28/2007 ********* 2/28/2006
What he would like to do is be able to show how many tasks were completed in any given week, such as:
WEEK ENDING # TASKS
01/06/07 3
01/13/07 1
02/17/07 2
Looks to me like you'd first have to identify the possible WeekEnding dates and then try to total across all the fields, but I've not got a clue how you'd do that.
Is there an easy way to "query the query", work with Week Ending on Saturday, and get the info he's looking for?
Thanks,
BeckieO
Hello Everyone,
I would like to run one query that can accommodate entering twelve possible date ranges and output the data all in one query. I could accomplish that by writing 12 queries and attaching each one to a start and end box on a form and then doing a Union Query to obtain one result. I think this might be the long way to accomplish this.
Is there a better way to get the result on one query for multiple Start and end Date Ranges?
Thanks
Joe:D
Hello - I have a database that is almost finished but unsure on the final calculations and how to get the correct data to flow to the next payperiod.
Each payperiod someone enters all staff members hourly time, vacation time used, sick time used, etc... Depending on the staff members status (fulltime or parttime), they accumulate a certain amount of sick and vacation hours but can never exceed the maximum in any given payperiod.
I have a query (which is dependent upon another query) that calculates the beginning sick time, sick time used, sick time earned, and gives me the remaining sick time and it works fine for the first payperiod.
However, I do not understand how I can get the remaining sick time to become the beginning sick time for the next payperiod. Is this done in the same query? A different query? A different method?
I have been beating my head against the wall for several days. Any guidance would be greatly appreciated!
I know i have read this before, and i have been searching for a hour now.
can someone tell me how set a variable = the beginning date ofthe month and another variable2 = the ending date of the month?
Thanks for your help!
I have created a 6 search boxes with names Author, Published, Language, Title, Keywords and University. If I enter "A" in Author search field then it should return all the 6 fields which contains "A" in Author field. It worked well.
My Requirement :
The column published is the year. In search box of Published if I search for 2000 then it's returning all the 6 fields which contains "2000" in Published field.
But most of the people doesn't know the exact year in which the book is published so they need some favour like, If they search for 2000-2010 in Published field then it should return all the fields which are between 2000-2010 in the published field.
For this do I need to create 2 extra text boxes and name them as Starting year and Ending Year? or else we can achieve this in single text box as xxxx-xxxx?
I'm currently looking to change the ending of all filepaths of imported files whenever I run the import. I want to change the path ending from .txt to .doc. So basically, the link/path to the file should be got, the ending changed from .txt to .doc and then the path (with the .doc ending) put into the table.
Code:
Private Sub bimportinternal_Click()
On Error Resume Next
strFolderPath = "S:Foo reportsSearchable"
strFolderPathSave = "S:Foo reportsSearchableArchiveword" & objF1.Name
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(strFolderPath)
Set objFiles = objFolder.files
[code]...
how to generate a Report through "Form".I should be able to input the date ex: text box1= Start Date and text box2 should be End Date, by Clicking a button ...i.e Generate Report Button, a report should generate should be generated showing data in between the Start Date and End Date.
View 3 Replies View RelatedI have a text box with the following statement:
Summary detail: Sum(IIf([dacthc]=0,Null,Fix(100*[dqty]*([dstdhc]*[drate]/[dacthc]-[drate]))/100))
My question is, if it meets the criteria, is it possible to make it default to a "0" in the field.
Could anyone please tell me what is wrong with this event procedure? I get an compile error always. What I want is, if the condition is not met, the message box would pop up otherwise close the form. Please help.
Private Sub (Field Name)_BeforeUpdate(Cancel As Integer)
If (Me.MyFieldName = condition) Then
MsgBox "My Message"
End If
Else
DoCmd.Close
End Sub
Im want to create a msgbox that pops up when a parameter is entered wrong.
Ive created a query to search for customers - When run a box pops up saying 'Please enter surname' - If correct then a record appears.
If the surname is incorrect i get a blank table. I want a msgbox to pop up saying something like 'No Records Found. Please Try Again'.
Ive also created a button on a form which runs the query, this works fine:
Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
Dim stDocName As String
stDocName = "Customer Search"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Command0_Click:
Exit Sub
Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click
End Sub
How can i change this so a msgbox appears if nothing is found?
Any suggestions welcome. Thanks in advance... :)
In MS Access,
MsgBox "Are you sure", vbOKCancel
and there is OK , and Cancel buttons.
I want to do that if click "OK", then run the action, if click "Cancel", then cancel the action.
eg.
MsgBox "Are you sure", vbYesNo
If (vbYesNo = 1) Then
// run the action
End If
So, how do I edit it?
Thanks.
hi all
i have an event procedure with a msgbox using vbOKCancel.
if the user clicks cancel, basically i want to cancel the event. If the user clicks OK, I want to resume the event and complete the bunch of commands. What statements do I need to do this. I assumed that cancel meant cancel.... but...
I appreciate any help
Damon
I am trying to popup a messge box that has multiple lines.
I have three textboxes on my form
When I click the button I want a messagebox to pop up and say
ON FOUR LINES:
"Are you sure you want to update:"
Textbox value 1 [The actual value]
Textbox value 2 [The actual value]
Textbox value 3 [The actual value]
I am starting with this but am a bit confused...Any help woudl be appreciated...
Code:If MsgBox("Are you sure you want to update this?" + "THIS:", vbYesNo + vbQuestion, _ "Save Record") = vbNo Then MsgBox "DOING NOTHING" Else MsgBox "DOING SOMETHING" End If
I've included the following code for when my report has no data.
Private Sub Report_NoData(Cancel As Integer)
MsgBox "No data for report"
Cancel = True
End Sub
but when you click OK on the MsgBox, the code falls over within the form, which originally opened the report on the calling line with an error message "The OpenReport action was cancelled".
This is the line of code in the form....
DoCmd.OpenReport "My report", acViewPreview, acEdit
Any ideas how I stop this happening. Thanks.
Can anyone tell me whats wrong with this code, its not working for me!!
If ((txtpassword = "") Or (combusername = "")) Then
MsgBox "Please Enter A Valid Access", vbOKOnly, "Error"
End If
Is it possible to use a msgbox to fill in a control on a form?
View 4 Replies View RelatedI have 2 fealds ( Id and date ) they are primery keys in the table , I want to prevent duplacte id to the same date . ( MSGBOX after update the date )
View 7 Replies View RelatedHi, I have a formcalled Register and this table contains Name-of-Employee, Username and some other fields. The form searches the Register table when someone wants the register, and if the username is already taken up by another user, it gives a message box saying that the username is already used, and also it will give some suggestions as well. I want the MsgBox to take the first letter of "Name of Employee" and then put it beside the username, and show it as a suggestion. Here is the code I already have:
Dim d As Database
Set d = CurrentDb
Dim r As Recordset
Set r = d.OpenRecordset("Staff Login")
Dim h As String
h = Me.Username
r.MoveFirst
Dim flag As Boolean
flag = False
Do While Not r.EOF
If h = r![Username] Then
flag = True
End If
r.MoveNext
Loop
If flag = True Then
MsgBox ("This Username already exists" & vbNewLine & vbNewLine & "Here are some suggestions:" & vbNewLine & (Me.Name_of_Employee) & (Me.Username) & vbNewLine & (Me.Username) & (Me.Name_of_Employee))
End If
The code works perfectly up to here, but the thing is that I want it to show the first letter of "Name of Employee" beside the "User Name" and maybe the other way around.
Please help me as soon as possible, I am really in a great hurry
Thanx in advance
I just wanted to ask how to change the msgbox style, for example, put a Critical or Information picture on the side of the message box
Thanx in advance
Hi Everyone,
I have a message box that says "Backup complete" but it has an Ok button. Is there a way for the user to see the message and then close without hitting the ok button?
here's my code
MsgBox "Backup was successful and saved", vbInformation, "Backup Completed"
Thank you
I have a select query to search for a client. A box pops up and you enter the name, if the name is there, then that record is displayed.
Now if i enter a name that isnt there, then i get a blank table - which is fair enough.
I want to create a msgbox that pops up to let a user know the name they typed isnt in the db.
For example, "This Client Doesn't Exist - Please Try Again..".
How do i do that? :confused:
This seems like a dumb question but for the life of me, I cannot figure out how to do it.
I want to display a message box when a form is opened and displayed based on some test done in the Form_Current Event. However all the code in the Form_Current event is fired off before the form is displayed. But I want the form to be displayed first.
The MsgBox is modal so the form isn't displayed until I click the OK Button on the msgbox.
How can I display the form first and then display the MsgBox?
Thanks in advance for your help! :cool:
Good morning,
This should be simple but I just can't get it to work.
I have a form which has different account numbers and a percentage is alotted to each account number. Trying to create an unbound calculation that if it exceeds 100% a message comes up. My current code is :
If (Me.PercentTotal > 100) Then
MsgBox "The total percentage cannot exceed 100%", vbCritical, "Check You Numbers"
End If
Can't seem to get this to fire.
Thanks for any help you can offer.
Jerry