Use a list box to show your events instead of a textbox.
Create a SQL string to capture your events and loop through each listbox to set the rowsource to your SQL string.
Mike
Try this in your command button on click event using your report name and your id fields.
Dim stDocName As String
Dim strCriteria As String
stDocName = "myreport"
strCriteria = "myid = " & [myID]
DoCmd.OpenReport stDocName, acPreview, , strCriteria
Mike
I created a calendar based on gol4's faq(thankyou) and put a listbox under each textbox. The listbox recordsouce is a sql string which pulls the companyname by date from my appointments table. I set an on click event on the listbox to open a form to show all details regarding the appointments by...
In my access handbook (Access 2000 VBA )there is some code to send info from the text boxes on your form to OutLook.
I created a form called frmemail and 3 text boxes, txtemail to hold the email address and 2 to hold test info so I could test it.
Create command button
On Click Event
Dim...
Create an unbound combo box on the form you want the data filled in and in the After Update event put in the following
' Find the record that matches the control.
If CboClient <> "" Then
Me.RecordsetClone.FindFirst " [Clientid] = " & Me![CboClient] '
Me.Bookmark...
Set enabled to no on your text box and use a check box to enable them. If the text box is not enabled then all records will return. Use a msgbox to warn user if the check box is yes and the text box is null.
Mike
I have a form where I choose the parameters and pass them to another form in the form open where condition.
Dim strcriteria As String
If chklengthID Then
strcriteria = strcriteria & " AND lengthID = " &_ cbolengthID
End If
If chksupplierID Then
strcriteria = strcriteria &...
I am trying to export customer info from a form to bookmarks in a word doc. The first time it works fine, the next time I
get run-time error 462 the remote server machine does not exist or is unavailable and the template opens with no info in the bookmarks. After I close the document and end out...
Not sure if this it what you are looking for but I have a form with several checkboxes and comboboxes. If the checkbox = true then I pass the value in the combobox to the report using the where condition.
Dim sWHERE As String
If chklengthID Then
sWHERE = sWHERE & " AND lengthvalue =...
I have a main customer form with buttons to open related forms
which the users go up and down like a ladder. I thought it would be better to hide the forms as they go up the ladder, then make them visible as they go back down rather than open and close the same forms constantly. Hope this makes...
I am drilling down through forms and only want the current form to be visible. In the command button on each form I am trying to call the following routine and I get a type mismatch.
What am I doing wrong.
Thanks
Mike
Public Sub formhide()
Dim frmcurrent As Form
Set frmcurrent =...
We have a peer to peer network with the backend mdb file on a computer running windows xp home edition and access 2000.
After doing a compact and repair I get an error microsoft access can't find the file. I can open the file on the computer where the back end is stored. Did not have this...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.