Thanks ADezii, That should work its just I have 30 diff words to count so Iwill have to write a massive bitof code, I was hoping you would suggest setting it as a string to count. Thanks though ADezii I will give this a try.
Tony...
jambonjamasb
Last Activity: Mar 26 '08, 04:42 PM
Joined: Jan 8 '08
Location: Barnsley
-
I dont need to put date as this is a dynamic parameter I set, does this mean where u put birthdate I would put "[System_Change] "POLFS""UNIX""N WB" or could i put a wildcard symbol? As these are the words that populate the field that i wish to count....Leave a comment:
-
I have designed the report but i do not understand what u mean. I use the send to function to send the report to lotus notes. the problem I have is with how the report outputs itself it doesnt recognise DOC command and sends it a RTF which gets rid of all the actual true formating. Could u explain further what u mean?
Does it matter if the report doesn't open before it outputs it, I run a query to return the report, which it then saves...Leave a comment:
-
output report in word format not rtf
Hi I have written code to output a report and add to lotus notes and send.
The only problem is that when the report output rich text, so i lose all the details like checkboxes, field boxes, logo etc.
I have used the following code.
Code: ( vb )
Public Function SendNotesMail()
...Code:Dim strDocName As String strDocName = mailing_list DoCmd.OpenQuery "query1" -
Report to count number of objects in a date range.
I am wanting to create a report that summarises the number of items within a date range.
For example I have a FIELD called System_Change.
This is a drop down COMBOBOX that uses words like unix, polfs etc.
I know how to query a date range, but not how to count number of fields within this date range.
I would like the report to show date range filtered then list all changes and number of times they... -
jambonjamasb replied to HELP QUERY to return email add in REPORT when combo box is selected in a FORMin Access[QUOTE=Stewart Ross Inverness]Hi. To refer to the control System_Change on form data_form you could use one of the following in your code:
[code=vb]Forms("Data_For m").Controls("S ystem_Change")
Forms![Data_Form]![System_Change][/code]
Hi Stewart, so are you saying I do not have to run a report I could just add a section to the code that say dependant on what is on the forms return anyh matches...Leave a comment:
-
jambonjamasb started a topic HELP QUERY to return email add in REPORT when combo box is selected in a FORMin AccessHELP QUERY to return email add in REPORT when combo box is selected in a FORM
Hi
I have two tables:
email_tbl
Data_table
Data table is is used to create a Form
Data_form
In the form I have a field
System_type.
This is a combobox which lists PAF, POLFS, UNIX for example.
I have created the following code which sends an email out direct using lotus note.
...Code:vb() Code: ( vb
-
This can be closed I changed the code and sorted it myself.Leave a comment:
-
well i have tried to have a go at this but feel i may have ovrely complicated it. Also I am not sure how to use a table to populate the email address as this will vary dependant on type of change. anyhow. please help me.
vb()
[CODE=vb]Sub SEND_EMAILS()
'open the session with the lotus notes server
'this sub will output a report as a file
'attach the file and add the predetermined subject and body
...Leave a comment:
-
I have been trying to use some peoples VBA, but I am not sure how to run a Public Sub rather than a PrivateLeave a comment:
-
Mailing report in lotus notes - can ollyb help? or anyone
After months of work I have finally finished my Change Control management database.
It looks flash all the filters work, all the reports work, importing from Xcel is automatic its lovely........b ut I am struggling with my final little detail.
I have absolutely no idea where to start. I excel I am able to use the following code:-
Sub Email()
Dim EmailAdd As String
Dim EmailSub... -
Please help I have googled this, yet none the wiser.Leave a comment:
-
A reference is missing. VBA script not working
Hi,
After some guidance from Minion, I have started again, but am unsure what I have done.
I have a form that gets its data from OCP_Base_Tables
On this form is subform POL_Actions
I want to filter all blank checkboxes in field POL_Change_Allo cated. This is on the subform. What I am looking to do is return all forms where this check box is empty.
Minion produced a VB script which... -
I bet you are sick I ever joined this site.Leave a comment:
-
Minion,
I changed part of the sub to
Private Sub Command56_Click ()
Dim strSQL As String
Dim dbs As DAO.Database
Set dbs = CurrentDb
If Not (Me.Command56) Then
As that is the name of the button.
I then get an error for the follwoing line _
Me.RecordSource
Help states
Type mismatch (Error 13)...Leave a comment:
-
I have also been on the microsoft website and again it was talking about binary updates as you are aware I only have a basic knowledge of access, but thanks to you guys it is growing.Leave a comment:
-
Thanks for all your help with this sorry to be such a pain.Leave a comment:
-
Hi Min,
I highlighted Change_Withdraw n
Selected after event and entered into the code builder
Private Sub Change_Withdraw n_AfterUpdate()
If IsNull(Me!Chang e_Withdrawn) Then
Me!Reason_for_W ithdrawal.Enabl ed = False
Else
Me!Reason_for_W ithdrawal.Enabl ed = True
End If
End Sub
I also tried to replace enabled with visable, both returned error code 438. I read through...Leave a comment:
-
Right.
I have spotted that I missed a "then" and had a couple of brackets that weren't needed. So my code now reads.
Private Sub POL_Actions_Ent er()
If IsNull(Me!Chang e_Withdrawn) Then
Me!Reason_for_W ithdrawal.Visib le = False
Else
Me!Reason_for_W ithdrawal.Visib le = True
End If
End Sub
End Sub
While this looks right to me it...Leave a comment:
-
I am doin something similar, but am having trouble getting the script working
Private Sub Pending_Changes _Click()
Dim strSQL As String
If IsNull(Me.{POL_ Change_Allocate d) Then
' If the combo is Null, use the whole table as the RecordSource.
Me.RecordSource = "OCP_Base_table s"
Else
strSQL = "SELECT DISTINCTROW tblOCP_Base_Tab les.* FROM tblOCP_Base_Tab les " &...Leave a comment:
No activity results to display
Leave a comment: