Forms :: Adding Sound (WAV) To Event?
Nov 16, 2014I want to add a sound (not beep but a small wav) to an event in a form.
View RepliesI want to add a sound (not beep but a small wav) to an event in a form.
View RepliesHow can I play a sound with event On Open Form.
View 13 Replies View RelatedHello,
I'm working on a splash screen to spruce up the opening of one of several databases I've created. I hate for them to appear boring so I like to add a bit of color at the beginning, a la Northwind's.
I haven't found anthing on this yet so I thougt I'd ask...
How can I have a sound I've downloaded from clipart or somewhere, PLAY when the form opens or loads or whatever...
Thanks in advance!
Goh
how can i automatically play sound files in forms i still use access 2.0
View 1 Replies View RelatedI have to tables:
Table 1 contains "cases picked"
Table 2 contains "cases required"
i have a query with info populated from those 2 tables:field "results" shows the results of this calculation: "cases required"-"cases picked"="results".In this query I have a conditional format stating: If true, displays text "ok" and the field will be green, if false, displays text "alert" and the field will be red.
Then I have this query in a subform (a form within another form),I would like to have a code or a formula for this query, where it would play a sound if (and only in this case) the value of "cases picked" is bigger than the value in "cases required"
This is how it works, you open the main form, start using a barcode scanner to scan cases, everytime you scan each case, the subform is refreshed and adds cases, and shows results, and shows how many cases you are missing or how many cases you are over, but this is only in the screen, i would like to have a sound in this subform, so in case you pick more cases than required, a loud sound is played as an alert, i still can't figure out where to put the solution, if as a formula in the query, or a code in the subform.
Nothing else to explain really. How can I get my database to make a beep sound when something is trying to be typed into a locked textbox control?
This is so that my users can know that it's locked (much like when the delete button is pressed on a new record).
What is the form event for adding of new records?
I want to make some fields disappear to prevent user input when the user enter a new record.
Im sorry that i am a noob.
I want to ask how do i add a sound after I have timer to display countdown time. When the timer reaches 00.00, the sound will appear. How do i do that?
Is there a way to attach a wav file or mp3 file to a command button?
View 2 Replies View RelatedLadies and Gents
I am wondering if when i run my report is there anyway that the detail of the report can become objects that say i could drag and drop into a Word Doc for example. I am trying to create a tool that will allow me to see all jobs from our maintenance mangement system at work, i have managed to achieve this but i was wanting to be able to view the jobs on a report and then basically just drag them into something else and wahey i have built my plan for the week.
Maybe i am hoping for to much but i though i would ask anyway.
paul
i probably want to create a upddate querry or maybe some code but...
i have a light bulb and i keep 300 on hand i just ordered 300 more when i check the box that the order is complete i need the "bulb on hand" feild to update to 600....please help
Is it possible to have a set sound play when a form is opened? And if so does anyone no how it is done?
Thanks in advance for any help
Hi All,
I have been trying to improve a form used to add/edit names in a mailing list. What I want to do is check the database for possible duplicate names and alert the user to the fact that their new person may already be in the db.
I used the following VBA code in the After Update event as follows:
Private Sub txtLastName_AfterUpdate()
On Error Resume Next
Dim strLastName As String
Dim NbrNames As Variant
Dim strNameSQL As String
txtLastName = Trim(txtLastName)
If Not Mid(txtLastName, 1, 1) = "=" Then
txtLastName = StrConv(txtLastName, vbProperCase)
Else
txtLastName = Mid(txtLastName, 2, 999)
End If
' Test for duplicate last name in data base
NbrNames = DCount("[tblMemberListings].[mlLastName]", "tblMemberListings", "[tblMemberListings].[mlLastName]= '" & txtLastName & " '")
If NbrNames > 0 Then
strNameSQL = "SELECT ALL tblMemberListings.mlID, tblMemberListings.mlLastName, tblMemberListings.mlFirstName, tblMemberListings.mlSpouseSO, tblMemberListings.mlAddress " & _
"FROM tblMemberListings " & _
"WHERE ((tblMemberListings.mlLastName) LIKE '" & txtLastName & "*') " & _
"ORDER BY tblMemberListings.mlLastName, tblMemberListings.mlFirstName, tblMemberListings.mlSpouseSO;"
lstDuplicateNames.RowSource = strNameSQL
Beep
lstDuplicateNames.Visible = True
End If
End Sub
This generates a useful list of potential persons already in the db. The user then has the choice of continuing to add the new name and address or they should be able to select one of the names in the listbox and refresh the form with that person's data for possible modification.
I currently have these two Event Procedures in place:
Private Sub lstDuplicateNames_AfterUpdate()
On Error Resume Next
'MsgBox "Sub lstDuplicateNames_Click value = " & lstDuplicateNames.Column(0)
If Not IsNull(lstDuplicateNames.Column(0)) Then
' User chooses and existing record
Me.RecordsetClone.FindFirst "[mlID] = " & lstDuplicateNames.Column(0)
If Not Me.RecordsetClone.NoMatch Then
Me.Bookmark = Me.RecordsetClone.Bookmark
End If
Me.lstDuplicateNames.Visible = False
Me.Refresh
End If
End Sub
and
Private Sub lstDuplicateNames_Click()
Me.txtHidden.SetFocus
Me.lstDuplicateNames.Visible = False
End Sub
The problem is that when one clicks on one of the listed names just two things happen:
1 - a fine dotted box outline appears around the *first* record in the listbox
2 - the MS Exclamation wav sound is generated each time the mouse button is clicked. :confused:
Short of enrolling in a local junior college that offers Access 101 what can I do to get this addition working? I'm also not sure that my code to refresh the form is going to work, but right now I don't ever get there. ;)
Oh, this problem is occurring in MS Access 2000.
Any help would be greatly appreciated by this NOOB.
Divit11
I'd like to make noise to another computer, or start same sound file or simply to call another computer on lan or through vpn connected computer using vba...
That will be nice if I can press button on access form and user on another computer hear some noise or to loo like it is call
Is it possible to play any kind of sound file from Access?
View 1 Replies View RelatedI have a listbox on a subform (or a subform within a subform).
When it is clicked I want all other listboxes to unselect.
There may be listboxes on the mainform, on other subforms, on other subforms of subforms.
I imagine I'm looking at a recursive function of some sort, but I'm not entirely sure of syntax to identify parent and children forms...
pseudocode so far:
loop all controls
if control = listbox, unselect all
if control = subform - recurse: loop all subform controls
if control = parent... err... Fail.
Making a small database, Got 1 Table.
1. ContactDetailTable
Got 3 forms.
1. ContactIDForm
2. ContactInfoForm
3. NewContactFrom
In ContactIDForm it contain 1 textbox name 'TextBox' with Button Name 'Btn'
In ContactIDForm there is only 1 Text Box ContactIDTextBox and 1 Button. User Enters ID in TextBox and On Button Click Event it should check data from TextBox in Table name (ContactDetailTable) in field ContactID and if there is record matching, ContactInfoForm should Open else NewContactForm should open with ContactIDTextBox value in it.
I have a main form that holds a tab control with a number of sub forms. One of these subforms has a pop up form for adding new records to it. After closing this pop up form I would like to initate code on the sub form where the new record now will appear. One of the things I like to do is simply to set focus to the record the user just added.
My problem is that I cannot seem to get any event to trigger in this setting (bben trying more or less all). If I understand things right the fact that I am using a pop up form and the fact that I am using a tab control both seem to interfer with the Activate event and making it passive.
How I can trigger code on the sub form (after closing the "Add New" pop up form)?
On my form i have a control called WeekDate (this is always the start of the week (monday), below i have a subform (sbfrmWorksheetDetails) contained in a tab control (tabWeek) with 5 pages for each day of the week, i have written a select case statement in the onchange event for tabWeek which selects records based on the day of the week (so = WeekDate for Monday, +1 for Tuesday, +2 for Wednesday etc), this works great, i have also put a bit of code in the same onchange event that makes the default value for a new record for the field WorkDayDate in the subform +1 and +2 etc. this works great for existing records, each new line in the subform puts the right date in, however this seems to cock up when clicking on a new tab that doesn't have a record in..Here's the code.
Private Sub tabWeek_Change()
Select Case tabWeek
Case 0 'Monday
Forms!WeeklyWorksheet!sbfrmWorksheetDetails.Form.R ecordSource = "SELECT * FROM tblWorksheetDetails WHERE (((tblWorksheetDetails.WorkDayDate) = [Forms]![WeeklyWorksheet]![WorksheetDate]))"
Forms!WeeklyWorksheet!sbfrmWorksheetDetails.Form!W orkDayDate.DefaultValue = SQLDate(Me.WorksheetDate)
Case 1 'Tuesday
Same as above but WorksheetDate+ 1 for both select and default value.
Case 2 'Wednesday
Same but +2 etc.
End Select
End Sub
the SQLDate is some code that converts the american US date formatting to UK formatting. i'm not sure if that's the problem, but i'll post that anyway:
Function SQLDate(vDate As Variant) As String
If IsDate(vDate) Then
SQLDate = "#" & Format$(vDate, "dd/mm/yyyy") & "#"
End If
End Function
I can't quite work out what screwing this up upon adding a new record.
I have an app that is browsing a survey. When the survey is in simple 'browse' mode, I want to be able to emulate the effect of a SkipResponse. (A SkipResponse is when selecting a particular value causes the normally sequential processing of survey questions to become non-linear. A sort of If Response = thisvalue then next question is something else) I can 'request' the SkipResponse by using Ctrl/Alt click, and then emulate returning from the target question by using Ctrl/Shift Click.
My problem is that I want to do the same thing (for a return) by allowing Ctrl/Shift on the Exit button. If I just use a regular mouseup evvent, it will complete, but will then go ahead and run the code for the Click event, to exit the survey. What I would like is to be able to cancel the processing of the Click event from within the handler of the MouseUp event.
I have a form which displays information in the footer until the use has accomplished some tasks. Once I verify that all is well I allow the user to change the fields in the footer. I want to verify that the proper changes were made but the BeforeUpdate event does not fire until the form is closed.
View 3 Replies View RelatedI have a form which consists of 20 similar subforms. The subform has only two fields.
When I want to go to the next subform, I use CTRL TAB
But I want to use only TAB.
I have tried a couple of things with the keypress event of that control, but cannot find a solution that works. What I would like:
- when the user is pressing TAB in the last field of a subform, that the program reacts like CTRL TAB and goes to the next subform.
I'm trying to change the name of the label in a form, upon opening the form in VBA... Which form event I should use for this?
View 2 Replies View RelatedGot a problem here:
Timer Interval = 5 Seconds
Private Sub Form_Timer()
My code here..
End Sub
The code repeats every 5 seconds, what I want to do is to execute it only once.
I have a database with three tables:
Participants (with name...), Events (with Event Name, date..., Event Attendance (Participant ID, Event ID, Date).
Relationships all work and reporting works. I now want to create a form for entering attendance into a single event as a batch. I only want to enter the event ID one time and then be able to enter participant ID's for all attendees. The event coordinator will have a tablet running the db at the door and each participant will use their ID card to be scanned into the event.
I don't want the coordinator to have to reselect the correct event between each participants scan but instead to enter the event once and have multiple participants ID's entered for the one event. The date field is defaulting to current date/time [Now()].
I have some code for the Key Down event for particular column in my subform
Private Sub Sample_ID_KeyDown(KeyCode As Integer, Shift As Integer)
Sample_ID = Nz(DMax("Sample_ID", "Sample_Sheets")) + 1
mTo = Nz(DMax("mTo", "Sample_Sheets")) + 1
mFrom = Nz(DMax("mFrom", "Sample_Sheets"))
End Sub
This works, however it also work when I press Key Up, changing what the key down previously did. I do not want it to do this. I have nothing entered in the Key up event for the form properties.