General :: Lotus Approach To Access
Jan 22, 2013Is there an easy way to import a Lotus Approach DB back end and front end to Access 2010?
View RepliesIs there an easy way to import a Lotus Approach DB back end and front end to Access 2010?
View RepliesIs it possible to convert a database set up in Lotus Approach to an Access Database. If so, how can I do it?
Any help would be greatly appreciated.
Edit:I just realised i had accidently writted the title as (to do with importing access data) it should read (to do with importing excel data)This is going to be a trick hard to understand question but I will try my best to explain itI have a database set out in the following wayhttp://img524.imageshack.us/img524/1350/databasetableli1.pngThe way it works is; Let's pretend Access Programmers is a company and working on different forums is a different jobSo on one record it would readJames.90| Access Programmers|Tables Forum| Wed=3= Mon=2Then the record below might readJames.90| Access programmers | Forms Forum| mon=5 tue=6So each record is one unique company,Project and CTR which the person has worked for that week meaning if you only work on one forum you would only write one record out each weekNow the data i am receiving is in an excel file where it's set out in a daily basis Where One Day Date|Name|Company|CTR|etcSo if a person works 5 days a week on 2 companies each day that is 10 records when it should only be 2 recordsSo to sum it up. My database is set out weekly and the excel data is set out dailyMy questionWhat would be the best way to convert this data into the database. Changing the database structure around is not an option and i can't change the format we recieve the excel data in. I can change it once i have the file thorough a converter but i can't change the raw source of the dataWhat would be a way to solve this problem because i am completly stummted and am open to any option of converting or anythingThankyou for your time. Also if you have trouble understanding what i mean Please say so and i will upload a copy of the database and a copy of the excel sheet!
View 10 Replies View RelatedI need to create an email with an Access report attached as a PDF. I am using Access 2007 and Lotus Notes.If I use SendObject with acSendReport and acFormatPDF, it opens an email just fine but the attachment is created with some random letters and numbers and .tmp as the file name.
If I use Adobe Reader to open the attachment it displays correctly as a PDF, but I need the attachment name to be .pdf so it will automatically open with Adobe for the users.Is there a way to accomplish this with Lotus Notes? I have searched this forum and found some options for Outlook users, but not for Lotus Notes.
Noob needs guidance.
I've worked with Access before but I've never had to setup mass mailing using Lotus Notes retrieving the data from Access.
I'm basically working with Access 2003 with a database containing all the clients information with email and personalised messages and it needs to be sent out through Lotus Notes R5 Release 5.0.11
I've done searches on this site and I've found many codes but I was wondering if there was a beginner's guide to this.
If anyone has links to where I can read up on it that would be great too.
Your help is much appreciated. Thanks in advance for your help.
Hi all,
I have a list box which has several columns. What i'm trying to do is have a button that when clicked takes the values of the selected list box item and put them into a new lotus notes email. It doesn't need the address or any other detail, just the info into a new mail. I have seen some post's here but not sure i understand them (bit of a noob to access/vba).
Is this possible to do and can someone please point me in the right direction?
Thanks,
Spinkung.
I currently use the Lotus package for word processing, spreadsheets etc so I do not have any of the microsoft office programs installed on my computer. Can I load just Microsoft Access as a standalone program or do i need to load the full office suite?
View 1 Replies View RelatedI wish to attach to an email a specified "Shortcut" such that recipients will be able to simply click the "attachment and the Access application will open.
I have searched the forum quite extensively but the perspiration has overtaken the inspiration so any assistance would be appreciated.
Below is the complete code that I am using
Private Sub Combo206_Click()
Maint_Sup_Close = Now()' Update a field
Dim Attachment As String
Dim MailDoc As Object
Dim AttachME As Object
Dim EmbedObj As Object
Dim s As Object
Dim db As Object
Dim doc As Object
Dim rtItem As Object
Dim Server As String, Database As String
Dim strError As String
Dim PI As String
Dim Description As String
Dim Work As String
Dim Email As String
Dim Docket As String
PI = Me.PI_No_1
Description = Me.Desc
Email = Me.Created_Email
Docket = Me.Docket_ID
Work = Me.Work_Required
Set s = CreateObject("Notes.notesSession")
Server = s.GETENVIRONMENTSTRING("MailServer", True)
Database = s.GETENVIRONMENTSTRING("MailFile", True)
Set db = s.GETDATABASE(Server, Database)
On Error GoTo ErrorLogon
'see if user is logged on
Set doc = db.CREATEDOCUMENT
On Error GoTo 0
doc.Form = "Memo"
doc.importance = "1" '(Where 1=Urgent, 2= Normal, 3= FYI)
'Send an e-mail to
doc.SENDTO = Email
doc.RETURNRECEIPT = "1"
doc.Subject = "Maintenance Request Closure"
Set rtItem = doc.CreateRichTextItem("Body")
Call rtItem.APPENDTEXT("Maintenance Request " & Docket & " for " & PI & " " & Description & " This request was created by yourself and has been Completed. Please confirm Completion")
Call rtItem.ADDNEWLINE(1)
Call rtItem.APPENDTEXT("")
Call rtItem.ADDNEWLINE(1)
Call rtItem.ADDNEWLINE(2)
Call rtItem.APPENDTEXT("Request Details were")
Call rtItem.ADDNEWLINE(2)
Call rtItem.ADDNEWLINE(3)
Call rtItem.APPENDTEXT(Work)
Call rtItem.ADDNEWLINE(3)
Works fine down to here
next line gives error 13 Type Mismatch
Set AttachME = doc.CreateRichTextItem.Add("file:\absmanuf_serverabsmanuvMaintManagReposit oryEmail_Cell_Mcs_Maint.mdb.lnk")
SetEmbedObj = AttachME.EmbedObject(1454, "", "\absmanuf_serverabsmanuvMaintManagRepositoryE mail_Cell_Mcs_Maint.mdb.lnk")
doc.SaveMessageOnSend = True
Call doc.Send(False)
Set doc = Nothing
Set db = Nothing
Set s = Nothing
Set rtItem = Nothing
MsgBox "Message Sent"
ErrorLogon:
If Err.Number = 7063 Then
MsgBox " You must first logon to Lotus Notes"
Set doc = Nothing
Set db = Nothing
Set s = Nothing
Set rtItem = Nothing
End If
End Sub
I am a bit out of my depth and would appreciate a guru correcting the error of my ways
Regards
Len
does anyone know what's Simplest way to send an email from Access using Lotus Notes
(no attachment required)
Reading all mails from a Lotus Notes database, a view, a collection is not that difficult.
What I Need, but no where found is HOW TO Import the actual marked or opened mail, so only ONE mail, the current mail.
I've got a form which emails out a report when a new record is added to my database but I'm stuck when it comes to making it send it to more than one recipient.
I came across this on the web... which suggests I should be using an array but I don't know anything about arrays.
For multiple email addresses you just set MailDoc.sendto to an array of variants each of which will receive the message. So
Code:
Dim recip(25) as variant
recip(0) = "emailaddress1"
recip(1) = "emailaddress2" e.t.c
maildoc.sendto = recip
My problem is I'm not sure how to implement it? My 'recipients' are being pulled from a query... how do I get that into the array of variants?
I have a VBA code to import mail from Lotus Notes into Access. The database user is able to read his email inside Access, similar to any email program.
Unfortunately, when I use the GetItemValue (lotusscript) method to read the body of the email message, Notes will render the Rich Text information as Plain Text, and I end up with no formatting information (bold letters, underline, text color, etc.)
How to import messages from Notes to Access and keep the text formatting? I am storing the data in a Rich Text Memo field in a table. I have found code to write HTML (MIME) messages, but not to import them into Access.
Say I have a piece of lumber in inventory that's 20 ft. long. I cut it into 2 pieces, one 13 ft. and the other 7 ft. Now I need to remove the 20 ft piece from inventory and replace it with the 2 pieces I just cut. Is there any way to automate this in Access? I'm have trouble visualizing and approach to this problem.
TIA
I've been tasked with modifying an Access97 query. Currently the query has a single contraint on the field titled jobtitle. We are interested in maintaining this constraint but in the event of null values defaulting a new contstraint to field called contacttype. Thus if there are no results returned for positiontitle = 'dtbc' return all rows where contacttype = 'prim'. It would seem an if then is the only option and I'm not sure how to approach this in access.
Thank you,
Josh
:confused:
Currently here is the query with the constraint only on contacttype = 'prim'
SELECT [Edition Header File].edition, [Edition Header File].instant, [Edition Header File].[page_#], [Edition Header File].franchise_page, [Edition Header File].subedition, [Edition Header File].subedition_page, [Edition Header File].supplier_name, [Edition Header File].supplier_line, [Edition Header File].sup_page, [Edition Lines File].product, [Edition Lines File].sup_style, [Edition Lines File].imp_style, [Edition Lines File].discount_code, [Edition Lines File].sup_disc_code, dbo_DistSup.Company, dbo_DistSup.LineName, dbo_DistSup.AD1, dbo_DistSup.AD2, RTrim$([CITY])+", "+RTrim$([ST])+" "+RTrim$([ZIP])+IIf(([St]) In ('LB','NT','AB','YK','PQ','BC','MB','NF','NB','PE' ,'ON','NS','SK'),"CANADA",IIf(Len(RTrim([St]))<3," USA")) AS city_to_zip, Trim([emailaddr]) AS tEmail, Trim([webaddr]) AS tWeb, [FName] & " " & [LName] AS contact, dbo_DistSup.Phone, dbo_DistSup.TollFreePhone, dbo_DistSup.Fax, dbo_DistSup.TollFreeFax, dbo_Alternate_ID_1.IDNumber AS asi, dbo_Person.ContactType, dbo_Person.ContactType
FROM ((dbo_Person INNER JOIN dbo_Jobs ON (dbo_Jobs.PerNbr = dbo_Person.PerNbr) AND (dbo_Person.EntNbr = dbo_Jobs.EntNbr) AND (dbo_Jobs.OrgNbr = dbo_Person.OrgNbr) AND (dbo_Person.USTOID = dbo_Jobs.USTOID)) INNER JOIN (((([Edition Header File] LEFT JOIN [Edition Lines File] ON ([Edition Header File].[page_#] = [Edition Lines File].page_no) AND ([Edition Header File].instant = [Edition Lines File].instant) AND ([Edition Header File].edition = [Edition Lines File].edition)) LEFT JOIN dbo_DistSup ON [Edition Header File].instant = dbo_DistSup.Instant) INNER JOIN dbo_Alternate_ID ON [Edition Header File].instant = dbo_Alternate_ID.IDNumber) INNER JOIN dbo_Alternate_ID AS dbo_Alternate_ID_1 ON (dbo_Alternate_ID.EntNbr = dbo_Alternate_ID_1.EntNbr) AND (dbo_Alternate_ID.OrgNbr = dbo_Alternate_ID_1.OrgNbr)) ON (dbo_Person.USTOID = dbo_Alternate_ID.USTOID) AND (dbo_Alternate_ID.EntNbr = dbo_Person.EntNbr) AND (dbo_Person.OrgNbr = dbo_Alternate_ID.OrgNbr)) INNER JOIN dbo_PositionTitle ON dbo_Jobs.PositionTitle = dbo_PositionTitle.PositionTitle
WHERE (((dbo_Alternate_ID.IDType)="inst") AND ((dbo_Alternate_ID_1.IDType)="asi"))
GROUP BY [Edition Header File].edition, [Edition Header File].instant, [Edition Header File].[page_#], [Edition Header File].franchise_page, [Edition Header File].subedition, [Edition Header File].subedition_page, [Edition Header File].supplier_name, [Edition Header File].supplier_line, [Edition Header File].sup_page, [Edition Lines File].product, [Edition Lines File].sup_style, [Edition Lines File].imp_style, [Edition Lines File].discount_code, [Edition Lines File].sup_disc_code, dbo_DistSup.Company, dbo_DistSup.LineName, dbo_DistSup.AD1, dbo_DistSup.AD2, RTrim$([CITY])+", "+RTrim$([ST])+" "+RTrim$([ZIP])+IIf(([St]) In ('LB','NT','AB','YK','PQ','BC','MB','NF','NB','PE' ,'ON','NS','SK'),"CANADA",IIf(Len(RTrim([St]))<3," USA")), Trim([emailaddr]), Trim([webaddr]), [FName] & " " & [LName], dbo_DistSup.Phone, dbo_DistSup.TollFreePhone, dbo_DistSup.Fax, dbo_DistSup.TollFreeFax, dbo_Alternate_ID_1.IDNumber, dbo_Person.ContactType, dbo_Person.ContactType, dbo_Alternate_ID.USTOID
HAVING ((([Edition Header File].edition)=[forms]![data entry header file].[form]![edition]) AND (([Edition Header File].instant)=[forms]![data entry header file].[form]![instant]) AND (([Edition Header File].[page_#])=[forms]![data entry header file].[form]![page_#]) AND ((dbo_Person.ContactType)="prim") AND ((dbo_Alternate_ID.USTOID)=1))
ORDER BY [Edition Header File].edition, [Edition Header File].instant, [Edition Header File].[page_#]
WITH OWNERACCESS OPTION;
Hi, ive been asked to provide a solution, for an electronic spreadsheet be sent out via email then returned by customers, once filled in for all the data to be collected onto one sheet that looks like the attached sheet. the easiset way i can see is to not use a spreadsheet but to use a datbase instead and just put it in the desired format, how easy is it to import mutliple spreasheets into correct fields on a dbtable thanks for any input or ideas
Al
hi..
I have tried to do a search on this but i cant seem to find something similiar. And I did a post of what i wanted to do here:
Click Me (http://www.access-programmers.co.uk/forums/showthread.php?t=74845)
This is my table structure:
http://www.geocities.com/gerald20000/Alpha/table.jpg
** I have keep this structure the simple. In actual of what i want to do, its more section under the 3rd lvl. as in more section under tblNAMe and tblRELATIONSHIP.
-> My structure:
tblQNA
CategoryNAME
CategoryMOOD
CategoryRELATIONSHIP
tblNAME
CategoryMALE
CategoryFEMALE
tblRELATIONSHIP
CategoryNEAR
CategoryFAR
tblMALE (Question related to Name - Male will be here)
MaleQuestion
MaleAnswer
tblFEMALE (Question related to Name - Female will be here)
FemaleQuestion
FemaleAnswer
tblMOOD (Question related to Mood will be here)
MoodQuestion
MoodAnswer
tblNEAR (Question related to Near Relation will be here)
NearQuestion
NearAnswer
tblFAR (Question related to Far Relation will be here)
FarQuestion
FarAnswer
So what am i trying to do? People would put in a question and an answer into a box. After that, the person can choose which category does the inputed question belongs to which category(male? female? .. ).This is actually a FAQ search engine.
So ppl will have an option to search for keywords and match questions. There should also be an option weather it should search from tblQNA or tblName or tblGOOD. So it has different level of searching. This is why it has such tree. So after searching, it will display the possible matched question (display question only). then the user can click which question to view the answer (together with the question).
Hope to get some advise. Is this how the best way to implement? OR is there a better method? pls advise and thanks in advance. ill be trying to do the access now. ill post as i goes along.
cheers
I'm trying to build a table structure for this database. Heres some background information about the business:
The business is a service business. We visit the customer's location and run tests on whatever water systems they have. Each customer is unique in that they could have any combination of systems at their site. They can also have more than one of the same type of system. The test results are the data that I need to record and store for future access. Each customer is visited on average once or twice a once a month. So there should not be more than 1-2 entries of data for each system for each customer per month.
For example
customer RUTGERS might have two systems labeled HWS and CHWS.
customer BMSQUIB might have three systems labeled HWS1, HWS2, and CHWS.
What I need to do with this information is go into the records of service visits, and retrieve for example, the last 4 visits of a specific system and prepare that information to be printed in a report along with their contact information.
I have come up with three tables to do this:
Customers Table contains:
Customer ID (pk), contact information data.
Systems Table contains:
System ID (pk), Customer ID, System Name
Service Records Table contains:
Record ID(pk), Date, System ID, Data
My thoughts were to have a table to contain customer information(each customer with a unique ID), a table to contain system information for each customer (each system has a unique ID), and a table to store the results of every service visit for each system(each individual visit has a unique ID)
Please critique this table design. If you think its sufficient, perhaps you could lead me in a direction pertaining to how to retrieve data on the most recent 4 visits (last 4 entries) for a specific SINGLE system from the Service Records table. I would assume that you would need to use a query and then get the data from that and put it into a form.
Can anyone help me send an email with an attachment from within Access using Lotus Notes as the mail client?
Huge round of drinks to anyone who can crack this for me!!
bottoms up!
Hi guys, here is my problem.
I am sending emails when the user press a button, but the problem is:
1 - How to check is LNotes is open
2- How to know if the user needs to enter the password.
With the following code an email is sent ONLY if notes is open AND the psw is not required.
Public Sub Sendmailf(Task As String)
Dim nSession As Object
Dim CurrentUser As String
Dim DataBaseName As String
Dim nDatabase As Object
Dim nMailDoc As Object
Dim nSendTo(60) As String 'array for 60 e-mail address
Dim EmbeddedObj As Object
Set nSession = CreateObject("Notes.NotesSession")
CurrentUser = nSession.username
DataBaseName = Left$(CurrentUser, 1) & Right$(CurrentUser, _
(Len(CurrentUser) - InStr(1, CurrentUser, " "))) & ".nsf"
Set nDatabase = nSession.GETDATABASE("", DataBaseName)
Call nDatabase.OPENMAIL
Set nMailDoc = nDatabase.CREATEDOCUMENT
With nMailDoc
nSendTo(0) = vemail
.Form = "Memo"
.Body = Chr(13) & Chr(13) & Chr(13) & Chr(13) & _
"Status: " & Me.status & Chr(13) & _
"Creation Date: " & Me.Open_dt & Chr(13) & _
"Effective Date: " & Me.effective_dt & Chr(13) & _
"Completion Date: " & Me.completion_dt & Chr(13) & _
"Requester: " & vreq & Chr(13) & _
"Actioned By: " & Me.Assignee & Chr(13) & _
"Description: " & Chr(13) & Me.description & Chr(13) & _
Chr(13) & Chr(13) & Chr(13) & Chr(13) & _
Chr(13) & Chr(13) & Chr(13) & Chr(13) & _
"Validation Signature: ................................." & vreq
.sendto = nSendTo
.Subject = "Task: " & Task_Num & " is Ready to be Validated"
.Importance = "0"
.SEND (False)
End With
Set nDatabase = Nothing
Set nMailDoc = Nothing
Set nSession = Nothing
Set EmbeddedObj = Nothing
End Sub
thx for your help
hi,
i'm using access 2000 to create an application. i need to get the information of Staff, but the Staff informationis in Lotus Notes 6.
my problem is how to link table from Lotus notes document?
an for your information exporting from Lotus Notes then access 2000 link table to that exported file is not an option.
anyone help?
regards,
askaccess :confused:
Does anybody know how I can change the default mail client from Outlook to Lotus notes? I'd like to use the sendObject utility to create a macro which sends data I enter into my form.
Thank you to all ahead of time :rolleyes:
Hi ,
In MS Access,
I used sendobject to send the object via Lotus Notes, but I want to skip to click the Send button from the Lotus Notes, everytime, when I sent, it goes to the Lotus Notes, then I need to click the send button again on the Lotus Notes for confirmation to send the mail. How can I skip it?
sendobject ........................, False
I used False or True, it still cannot be solved.
Please let me know, thanks.
Thanks.
I want to send an email thru Lotus Notes by clicking on a command button and need some help.
I have a tabular form which displays info from a make-table query. I would like to have a command button next to each record, which when clicked will send an notice(email) to the corresponding email address.
The following are displayed for each record:
the user opens a certain mail and THIS mail should be either saved as PDF (for example by CutePDF - as it works with a word-doc) to disk or be imported to my Access datebase in a certain field (the Body of the mail).
But I could not find code to catch just the OPENED Mail, there are a lot of examples how to loop through a Folder or a view reading all mails in it, but no one for just the ONE.
There should be something like "uidoc", but I cannot manage it.
So in real, my problem will be to "detect" the opened (or at least the marked) mail in the Notes GUI. In Outlook I do this with ActiveInspector.CurrentItem, but in Notes?
I am looking to see if i could possibly get code that would allow me to send a calendar invite from Access to Lotus Notes?
View 2 Replies View RelatedHello everyone,
I am having some issues getting past primary keys. A little background on what I am doing:
I am a Lotus Notes Programmer by design. We have decided to move away from Lotus and Access seems to be the choice to replace some of our applications. I have created a DB in access 2003. I have my tables created. I have my forms created. I was able to export from notes about 70,000 documents. In notes I had one main form and from that one could create any number of children documents(the parent doc generates the key and its passed to all the children documents...so some records in a ccess in the same table will have the same key. I set to DUP's OK for those tables). The documents are link by their unique document ID's. Well I needed to maintain that relationship when importing the documents to access. Which is working without a hitch. BUT where I am stuck is on new records. I need the same field that is linking all of the imported documents to autogenerate a primary key for new records..and I need that key to be passed to all the other tables in which I am storing all of the other children documents(records). Not sure how to get this done...
I hope I explained enough if not please me know what other information you need to try and help me out.
Thanks,
Tom