I am using VBA in Access 2013 to make a PowerPoint presentation using data from the access database. know if it is possible to use Access VBA to create a button in the presentation that runs a procedure itself?
View RepliesI am using access 2013 to make a PowerPoint presentation based on the data in a query. I know how to do that much using VBA but I am also trying to make a slide with a picture on it from a saved location.
Dim db As Database, rs As Recordset
Dim ppObj As PowerPoint.Application
Dim ppPres As PowerPoint.Presentation
On Error GoTo err_cmdOLEPowerPoint
[code]....
At the moment I am not worrying about adding the data as I know how to do this and had it working before - its just adding the picture to the slide.
I have an Access 2013 database file with many fields. One of them, I'll call it Field 3, is a box which I would like to either leave blank or put a check mark in it. I would like to be able to create an Iif field for Field 3 where a check mark is automatically inserted in Field 3 IF Field 1 - Field 2 <or= 0, otherwise I'd like Field 3 to remain empty.
View 9 Replies View RelatedI've got a continuous form, with a button (cmd1) on each record. Each record has a unique primary key, RecordID. cmd1 is clicked to open a form (frm1) based on the RecordID using the following code:
Code:
DoCmd.OpenForm "frm1", , , "RecordID = " & Me.RecordID
I want frm1 to open, ONLY when a user clicks on cmd1 while it's already in focus ON that specific record.
So I have finished a database and split it which is great. Only issue now is how do I turn the front end into an executable so no access to any parts of the access program or system can happen? I have done this before in a very old version of access but how to do it in Access 2013.
View 2 Replies View Relatedi want that if any powerpoint application is open after closing my access app all of these powerpoint files will be closed. i found this code for excel file and i changed it for powerpoint application. but i have an error message in this pink line?
error 438: object doesn't support this property or method
Code:
Public Function test()
Dim oApp As Object
Dim workbook1 As Object
[Code].....
I have problem to create Stock query in Access 2013..I want to sum Purchasing numbers base ItemName in Purchasing table by query .. but i found error in summing?
View 4 Replies View RelatedI would like to know if there is any code to view existing Powerpoint presentations in an Access 2010 form . I am creating a library and would like to set this up. I would need step by step info as I am a beginner. I have seen code for 2007 and tried it but it didn't work for me. I'm working with Access & Powerpoint 2010. I've seen VBA, Automation, etc. I do not want to build ppt presentations in access.
View 5 Replies View Relatedhow to disable the main close button so the user is forced to click the Quit Application button on my main switchboard?
View 8 Replies View RelatedWe have an access database which has a form that has a list box that details particular records. See attach "list box".
What I would like to do is double click on the record and this would look in a powerpoint folder (see attach "path") and open the presentation if there is a match to the value in Listbox Column 5 i.e. Tool Number.
I can get it to open the presentation if I include the tool number in the path but I cannot seem to be able to get it to compare the values and only open if there is a match.
I want to do multiple regression in Access 2013. with the VB code?
View 3 Replies View RelatedI'm currently working on a project which requires integration of sms feature in ms access 2013.
The sms provider which i use for sending sms is smsglobal.
how to write a vba msgbox with two lines i access 2013
i try to put chr(13) and alse i used & vbCrLf& but nothing is worked
they seems to be for an earlier version ...
I have a program.mdb with a customized menu bar from Database Creations.When I open program.mdb in 2007 & 2010 the ribbon is disabled and the custom bar is displayed as it should be and all is OK.When I open the same program.mdb in 2013 the ribbon is displayed and the custom bar is missing
I have a clean compile and get no error messages.How do I disable the ribbon and get the custom EZ Menu Bar to display in 2013?.Following are the Options, Current Database, Ribbon and Tool Bar Option settings that is used in all Access 2007, 2010 & 2013 versions
Ribbon Name:
Menu Bar:EZ Menu Bar
Shortcut Menu Bar:(default)
CheckedAllow Full Menus
CheckedAllow Default Shortcut Menus
UncheckedAllow Built-in Toolbars
The following code works fine until it gets to last record, then it give me Error # 94 Invalid use of null. I have searched all of my code and null is not in the code.
Code:
'--------------------------------------------------------
' Goes to next record
'---------------------------------------------------------
Private Sub cmdNext_Click()
On Error GoTo err_handler
' DoCmd.GoToControl (txtNameL)
' DoCmd.GoToRecord , , acNext
[Code] .....
I need to save a single record (preferably the current record) as a PDF. I have created a form for my boss to calculate bids. He wants to save each record individually as a PDF to upload into our service software program to attach to client files. I can save a selected record as a PDF if I print the selected record first. We need to eliminate having to print it first as it is just a waste of paper and an unnecessary step. I am kind of thinking that VBA and attaching that to a control button on the form is the way to go, but I am new to writing code and I am completely confused!
View 7 Replies View RelatedI need to make a copy of a pdf document that the user identifies in a "hidden" folder that is associated with my backend database. how to code this. I am using Access 2013.
View 6 Replies View RelatedI have Access 2013, Win 7, Outlook 2010 (32-bit).I want to send an email from Access, but not through Outlook. Instead I want to connect to an external SMTP server. I've found a few examples that doesn't work for me. With code including for example
Code:
Set ObjMessage = CreateObject("CDO.Message")
I get an "Error 429: Object can't be created in Active X-component" (My translation from Swedish).With code including this:
Code:
Dim oEMail As New CDONTS.EMail
I get "user defined type has not been defined" (my translation again).I have working code for sending email through Outlook, which works fine. But, Outlook adds a lot of span tags, making it impossible to read for certain screen readers used by visually impaired people, therefore I can't use Outlook.
I've tried to read up on the matter (CDO), and think that maybe the CDO library etc is not included on my computer?can I download it?
I have a listbox set to Multiselect property of Simple. The listbox is populated by using a table. There are 4 columns in the listbox
Code:
1 3/23/2014 4/5/2014 2014
2 4/6/2014 4/19/2014 2014
3 4/20/2014 5/3/2014 2014
The columns are PayPeriod, StartDate, EndDate, FiscalYear
What I want to be able to do is highlight a chunk of dates and have the first selected StartDate and the last selected EndDate populate two hidden text boxes so I can use them for my queries/reports.
I've tried a couple different ways. Each time what happens is it only uses the last item I have selected in it's calculations.
Code:
Dim ItemIndex As Variant
For Each ItemIndex In Me.lstPayPeriods.ItemsSelected
If Me.lstPayPeriods.Selected(ItemIndex) And Me.lstPayPeriods.Selected(ItemIndex - 1) = False Then
Date1.SetFocus
Date1.Text = Me.lstPayPeriods.Column(2, Me.lstPayPeriods.ListIndex)
End If
Next
In this example I tried to have it go through each Item of the listbox. I wanted to check to see if the current row was selected and the row before it wasn't. That way I could determine it was the first item selected in the group of selected items. It would always only use the last item I had selected.
Code:
Dim CurrentRow As Integer
Dim FirstDate As Date
For CurrentRow = 0 To Me.lstPayPeriods.ListCount - 1
If Me.lstPayPeriods.Selected(CurrentRow) Then
Date2.SetFocus
[Code] ....
I tried to do something similar with this code. Again, it only uses the last item I have selected.
I'm about to connect my DB to word. So I made a form where the user has to choose what entry to export. The data is inserted in a word file in different bookmarks. But there is one special task to insert the rich text so in this case the html formatted text is displayed like this:
Code:
<html><div>asdf</div></html>
My Text is inserted like this:
Code:
wdApp.ActiveDocument.Bookmarks("-Bookmarkname-").Range.Text = Lrs("-ColumnName-")
Lrs is a Recordset.
So how is it possible to display the html code right in the Word doc?
I'm getting error 2391 field 'f1' doesn't exist in destination table
Code:
Dim FileBrowse As Office.FileDialog
Dim varFile As Variant
Dim sFile As String
Set FileBrowse = Application.FileDialog(msoFileDialogFilePicker)
[Code] ....
Hello, we have just installed a PC screen in our employee break area and this displays things that are going on in our plant using PowerPoint. Things are working well but we have a slide that needs updated daily and would like it to update automatically. What the slide shows is how many safe work days have gone by since our last accident. I have no clue on how to do this :confused: I know a little about access so if I can use access to run the PowerPoint sides then how would I do it? We also display birthdays and anniversary dates on other slides so I would like to display these things as well but on separate slides. Thanks!
View 6 Replies View RelatedWhat I need to do is press a button on a form. When the button is pressed, I want to create a new record in a table not already open and populate some fields with data from the form I am looking at. Then call up a new form with the record I just created on it.
Basically it is a work-order entry issue, the user scrolls through to find the correct piece of equipment when they do they click on "Create work-order" a work order is created and populated and the user can then fine tune the new work-order as required.
Ive been following the code on the Microsoft support site for automatically creating a PowerPoint presentation using data from Access.
The sample code takes one field from the sample table and displays this on the PowerPoint slide - it then assumes the user can apply this knowledge and add more fields to the slides themselves. I have tried to do this but am getting nowhere.
Please can somebody advise how I add additional fields to the slides via the code. I am afraid Im not very confident with VBA so am stumbling a bit blindly here. Here is a sample of the code that I think I need to add to:
With ppPres
While Not rs.EOF
With .Slides.Add(rs.AbsolutePosition + 1, ppLayoutTitle)
.Shapes(1).TextFrame.TextRange.Text = "Hi! Page " & rs.AbsolutePosition + 1
.SlideShowTransition.EntryEffect = ppEffectFade
With .Shapes(2).TextFrame.TextRange
.Text = CStr(rs.Fields("LastName").Value)
.Characters.Font.Color.RGB = RGB(255, 0, 255)
.Characters.Font.Shadow = True
I tried to replicate the last bit here by adding Shapes(3) and the new field name, but I must be doing something wrong because Access throws up an error message.
If anybody can give me some pointers I would be grateful. Also, if anyone can advise how I can determine the position of the fields on the slide I would be grateful (they seem to be centering at the moment).
The link for the full code is here: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dno2k3ta/html/officeaccess2powerpoint.asp
Many thanks,
Adam.
I have created a pivot chart using the Autoform and now i want to export this charts to powerpoint, i cannot copy that chart which i have created in in autoform, i can export the pivot table to excel sheet and draw again the chats but i cant copy or export the pivot charts directly, Is there any option for that. can anybody help me in this case?
View 2 Replies View RelatedI have a database that multiple users open and enter data in on a weekly basis.
I have a powerpoint presentation that shows instructions on how to use the database for the users.
I would like to insert the powerpoint users guide into the main form so the user can click on it and read the instructions.
I am working in access 2010...