How To Get Value From A Comboxbox And Link It To Print

Sep 7, 2012

What I need to be able to do is write vba to find the value inside the comboxbox and then either:-

1. Run a macro with the same value that is in the combobox
Or
2. Run a set of reports and print them off but are linked to the combobox value.

The combobox name is ODTyper
The combobox control source is ODType which is a field in TblType
The combobox row source is SELECT [TblType].Model FROM TblType;
The value inside the combobox are in the format of TE4700

The name of the macros are in the format of TE4700
The Main form is called FrmOrderDatabase.

Plus somehow i need to get the value of the combobox and link it to print off the correct reports.

View Replies


ADVERTISEMENT

General :: How To Get Value From Combobox And Link It To Print

Sep 6, 2012

What i need to be able to do is write vba to find the value inside the comboxbox and then either:-

1. Run a macro with the same value that is in the combobox
Or
2. Run a set of reports and print them off but are linked to the combobox value.

The combobox name is ODTyper
The combobox control source is ODType which is a field in TblType
The combobox row source is SELECT [TblType].Model FROM TblType;
The value inside the combobox are in the format of TE4700
The name of the macros are in the format of TE4700
The Main form is called FrmOrderDatabase.

Plus somehow i need to get the value of the combobox and link it to print off the correct reports.

View 9 Replies View Related

Only Show Values In Comboxbox That Pertain To Employee Record?

Sep 14, 2012

A query based form is used for tracking the different EVENTS, LODGING data, EMPLOYEE personal data and FAMILY members. I'd like to creat a combo box that shows only the events that the employee attended, not all the events in the EVENT_JUNCTION tbl.

View 3 Replies View Related

I Want To Print A Report And Programmatically Set The Printer Name And 'Print To File

Jul 16, 2007

How can I print a report and at the same time programatically set the printer name and 'Print to File' option and set the path of this option?

View 1 Replies View Related

How To Hide Or Disable Print Or Quick Print Options

Dec 4, 2014

I have a form which my company wanted that each single record should be printed from form. I made a print record button and put code to print single page or record. However as a natural habit people go to file > print to print which leads printing all records so 1000's records start printing. Is there any way i can hide print button. File >Print button.

View 1 Replies View Related

Reports :: Unbound Report - Print Preview OK But None Of Fields Print When Report Directly Send To Printer

May 25, 2013

I have an unbound form with an associated report. When the user hits the 'print' button on the form/screen, the report is launched in the background. In the On Load event of the report I populate the report fields from the forms field as so:

Code:
Me.txtAddrMainLine2 = "NAME " & UCase([Forms]![frm_OrderRx].[txtPatientName])

This works like a charm as long as I call the report in Print Preview mode (i.e. with acViewPreview). But if I send the report directly to the printer, none of the fields print.

I've read about using other report events to populate the fields (e.g., On Format and On Print) and also something about using TempVars to pass the data. But I haven't read anything that's clear and definitive about the full answer.

View 3 Replies View Related

Link Me Up.

Aug 8, 2005

Folks,
i have a small problem wizzing my nut. I copy two tables from mycurrent database to an external database,now i am trying to link these two tables in the external database to the ones in the currentdb. I get a run-time error 3012 telling me that an object 'tblLanguage' is already present.which iam failing to track. Any ideas Please??
Here is my linking code.
Sub LinkMeUp()
Dim tbl As DAO.TableDef
Dim sTableName As String
Dim sThatTblpath As String
Dim dbName As String
dbName = "my_ExternalDatabase"
sThatTblpath = ";Database=" & db_Path & "" & dbName

For Each tbl In CurrentDb.TableDefs
sTableName = tbl.Name
Set tbl = CurrentDb.CreateTableDef(sTableName)
tbl.Connect = sThatTblpath
tbl.SourceTableName = sTableName
CurrentDb.TableDefs.Append tbl
Next tbl
End Sub

View 3 Replies View Related

How Do I Get Rid Of This Link.

Aug 2, 2006

Hello,

The current database I am working on I made it by copying the one I was working on originally. I just realized on the VB window that there is still some relation between them. Because, if I look at the tree on the left of the code window I see it says "GCB (miniGCB)", being GCB the one I copied, and miniGCB the one I am working with.

How can I get rid of the link with GCB?? I want the tree to just say "miniGCB".

Thanks,

View 1 Replies View Related

Link Pdf

Jan 17, 2006

Hello all,

I created a table and linked a pdf file to one of the fields, but when I created a form to display the table contacts, I could not see the attachment or icon or any reference to the linked object. The field in my access table is an OLE object.

Thanks for helping out.

View 7 Replies View Related

How To Link FE To BE Using VBA?

Aug 31, 2005

I have packaged an Access DB (Split) as a run time solution so I can distribute to users without Access.

When I install it on a PC it runs.

If I move the back end to a network, the solution can't find the back end because it has been moved.

Access run time does not include the linked table manager in the toolbar.

Is there code in VBA where I can refresh the link between front and back end.

Ideally I want to write an error handler that will call a sub to prompt the user for the new location of the back end if it has been moved. Then have the user browse to the network location and click on the back end and store that location as a string. Using that string refresh the links.

Any ideas on that?

View 5 Replies View Related

Print To PDF - Almost There....

Nov 9, 2005

The code below does not give me any error. I do get a file save dialog box and i put the file name and a message saying export is done. but in reality there is no pdf file saved under what ever directory i told the system to save...




Public Sub Print2PDF(strReportName As String, Optional strPath As String)

Dim stDocName As String, strFilter As String
Dim Distiller As ACRODISTXLib.PdfDistiller

'InputPSFile - path to existing PS file in c: emp
'OutputPDFFile - path of PDF file to be created in c: emp
'2 lines of code:
'ACRODISTXLib.PdfDistillerClass Distiller=new ACRODISTXLib.PdfDistillerClass();
'Distiller.FileToPDF(InputPSFile, OutputPDFFile,"");

Set Distiller = CreateObject("PdfDistiller.PdfDistiller.1")
Distiller.bSpoolJobs = False
Distiller.bShowWindow = False
ITransform_Transform = False

'Ask for the path if it is not provided
If Trim(strPath) = "" Then
strFilter = ahtAddFilterItem(strFilter, "Adobe PDF Files (*.pdf)", "*.pdf")
strPath = ahtCommonFileOpenSave( _
OpenFile:=False, _
Filter:=strFilter, _
flags:=ahtOFN_OVERWRITEPROMPT Or ahtOFN_READONLY)
End If

'If Distiller.FileToPDF(pFromFile, pToFile, "") Then

'If Distiller.FileToPDF("strReportName.ps", "", "") Then
Distiller.FileToPDF "strReportName.ps", "", ""

'Distiller.FileToPDF OutputDir & "" & ps, OutputDir & "" & pdf, ""
' ITransform_Transform = True
'End If

Set Distiller = Nothing

End Sub

View 1 Replies View Related

Print To PDF

Nov 10, 2005

I used to be able to create PDFs, automatically save them to a file,
and mail them out to people. This was on Access 97 with Windows NT.
We've changed to Windows XP and Access 2003. Doesn't work anymore.
Part of the problem is that the users have no access to the registry
and can only save files on the C: drive to their My Documents folder.
I found this code on the web, but it doesn't work either. The files
continue to print out of my printer instead of making a PDF. I put the
entire code at the bottom, but here is the part I'm calling:

Public Sub SaveReportAsPDF(strReportName As String, Optional strPath As String)

Dim strOldDefault As String
Dim strFilter As String

'Ask for the path if it is not provided
If Trim(strPath) = "" Then
strFilter = ahtAddFilterItem(strFilter, "Adobe PDF Files (*.pdf)", "*.pdf")
strPath = ahtCommonFileOpenSave( _
OpenFile:=False, _
Filter:=strFilter, _
flags:=ahtOFN_OVERWRITEPROMPT Or ahtOFN_READONLY)
End If

'remember old printer
strOldDefault = QueryKey("SoftwareMicrosoftWindowsCurrentVersionWindows", "Device")

'changes to pdf writer
SetKeyValue "SoftwareMicrosoftWindowsCurrentVersionWindows", "Device", "Adobe PDF", REG_SZ

SetKeyValue "SoftwareAdobeAcrobat Distiller", "PDFFilename", strPath, REG_SZ

SetKeyValue "SoftwareAdobeAcrobat Distiller", "bExecViewer", 0, REG_SZ

'Distiller.FileToPDF strReportName
DoCmd.OpenReport strReportName

'put the old printer back to default
SetKeyValue "SoftwareMicrosoftWindowsCurrentVersionWindows", "Device", strOldDefault, REG_SZ

End Sub



The entire code:

' ################################################## #######
Option Compare Database
Option Explicit

Public Const REG_SZ As Long = 1
Public Const REG_DWORD As Long = 4

Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003

Public Const ERROR_NONE = 0
Public Const ERROR_BADDB = 1
Public Const ERROR_BADKEY = 2
Public Const ERROR_CANTOPEN = 3
Public Const ERROR_CANTREAD = 4
Public Const ERROR_CANTWRITE = 5
Public Const ERROR_OUTOFMEMORY = 6
Public Const ERROR_ARENA_TRASHED = 7
Public Const ERROR_ACCESS_DENIED = 8
Public Const ERROR_INVALID_PARAMETERS = 87
Public Const ERROR_NO_MORE_ITEMS = 259

Public Const KEY_QUERY_VALUE = &H1
Public Const KEY_SET_VALUE = &H2
Public Const KEY_ALL_ACCESS = &H3F

Public Const REG_OPTION_NON_VOLATILE = 0

Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long
Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias _
"RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, _
ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions _
As Long, ByVal samDesired As Long, ByVal lpSecurityAttributes _
As Long, phkResult As Long, lpdwDisposition As Long) As Long
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias _
"RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, _
ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As _
Long) As Long
Declare Function RegQueryValueExString Lib "advapi32.dll" Alias _
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As _
String, ByVal lpReserved As Long, lpType As Long, ByVal lpData _
As String, lpcbData As Long) As Long
Declare Function RegQueryValueExLong Lib "advapi32.dll" Alias _
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As _
String, ByVal lpReserved As Long, lpType As Long, lpData As _
Long, lpcbData As Long) As Long
Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias _
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As _
String, ByVal lpReserved As Long, lpType As Long, ByVal lpData _
As Long, lpcbData As Long) As Long
Declare Function RegSetValueExString Lib "advapi32.dll" Alias _
"RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _
ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As _
String, ByVal cbData As Long) As Long
Declare Function RegSetValueExLong Lib "advapi32.dll" Alias _
"RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _
ByVal Reserved As Long, ByVal dwType As Long, lpValue As Long, _
ByVal cbData As Long) As Long
Public Function SetValueEx(ByVal hKey As Long, sValueName As String, _
lType As Long, vValue As Variant) As Long
Dim lValue As Long
Dim sValue As String
Select Case lType
Case REG_SZ
sValue = vValue & Chr$(0)
SetValueEx = RegSetValueExString(hKey, sValueName, 0&, _
lType, sValue, Len(sValue))
Case REG_DWORD
lValue = vValue
SetValueEx = RegSetValueExLong(hKey, sValueName, 0&, _
lType, lValue, 4)
End Select
End Function
Function QueryValueEx(ByVal lhKey As Long, ByVal szValueName As _
String, vValue As Variant) As Long
Dim cch As Long
Dim lrc As Long
Dim lType As Long
Dim lValue As Long
Dim sValue As String

On Error GoTo QueryValueExError

' Determine the size and type of data to be read
lrc = RegQueryValueExNULL(lhKey, szValueName, 0&, lType, 0&, cch)
If lrc <> ERROR_NONE Then Error 5

Select Case lType
' For strings
Case REG_SZ:
sValue = String(cch, 0)

lrc = RegQueryValueExString(lhKey, szValueName, 0&, lType, _
sValue, cch)
If lrc = ERROR_NONE Then
vValue = Left$(sValue, cch - 1)
Else
vValue = Empty
End If
' For DWORDS
Case REG_DWORD:
lrc = RegQueryValueExLong(lhKey, szValueName, 0&, lType, _
lValue, cch)
If lrc = ERROR_NONE Then vValue = lValue
Case Else
'all other data types not supported
lrc = -1
End Select

QueryValueExExit:
QueryValueEx = lrc
Exit Function

QueryValueExError:
Resume QueryValueExExit
End Function
Public Function CreateNewKey(sNewKeyName As String, lPredefinedKey As Long)

Dim hNewKey As Long ' Handle to the new key
Dim lRetVal As Long ' Result of the RegCreateKeyEx function

lRetVal = RegCreateKeyEx(lPredefinedKey, sNewKeyName, 0&, vbNullString, REG_OPTION_NON_VOLATILE, _
KEY_ALL_ACCESS, 0&, hNewKey, lRetVal)

RegCloseKey (hNewKey)

End Function
Public Function SetKeyValue(sKeyName As String, sValueName As String, vValueSetting As Variant, lValueType As Long)

Dim lRetVal As Long ' Result of the SetValueEx function
Dim hKey As Long ' Handle of open key

' Open the specified key
lRetVal = RegOpenKeyEx(HKEY_CURRENT_USER, sKeyName, 0, KEY_SET_VALUE, hKey)

lRetVal = SetValueEx(hKey, sValueName, lValueType, vValueSetting)

RegCloseKey (hKey)

End Function
Public Function QueryKey(sKeyName As String, sValueName As String)

Dim lRetVal As Long ' Result of the API functions
Dim hKey As Long ' Handle of opened key
Dim vValue As Variant ' Setting of queried value

lRetVal = RegOpenKeyEx(HKEY_CURRENT_USER, sKeyName, 0, KEY_QUERY_VALUE, hKey)

lRetVal = QueryValueEx(hKey, sValueName, vValue)

QueryKey = vValue

RegCloseKey (hKey)

End Function
Public Sub SaveReportAsPDF(strReportName As String, Optional strPath As String)

Dim strOldDefault As String
Dim strFilter As String

'Ask for the path if it is not provided
If Trim(strPath) = "" Then
strFilter = ahtAddFilterItem(strFilter, "Adobe PDF Files (*.pdf)", "*.pdf")
strPath = ahtCommonFileOpenSave( _
OpenFile:=False, _
Filter:=strFilter, _
flags:=ahtOFN_OVERWRITEPROMPT Or ahtOFN_READONLY)
End If

'remember old printer
strOldDefault = QueryKey("SoftwareMicrosoftWindowsCurrentVersionWindows", "Device")

'changes to pdf writer
SetKeyValue "SoftwareMicrosoftWindowsCurrentVersionWindows", "Device", "Adobe PDF", REG_SZ

SetKeyValue "SoftwareAdobeAcrobat Distiller", "PDFFilename", strPath, REG_SZ

SetKeyValue "SoftwareAdobeAcrobat Distiller", "bExecViewer", 0, REG_SZ

'Distiller.FileToPDF strReportName
DoCmd.OpenReport strReportName

'put the old printer back to default
SetKeyValue "SoftwareMicrosoftWindowsCurrentVersionWindows", "Device", strOldDefault, REG_SZ

End Sub

View 1 Replies View Related

Excel Link

Nov 3, 2005

Hi all,

I have added about 15 links on a form, linking to word and excel documents. The word documents open fine but all of my excel documents pop up with a messae saying the file cannot be open, yet when i just go to the document on my hard drive they all open fine...does anyone have any ideas please. Thanks

View 6 Replies View Related

Link To Excel Doc

Apr 11, 2006

Hi,

I'm new to this so please go easy!

I have an excel document which automatically refreshes data gathered from an access db.
I need to put a button on the switchboard on the same db to open the excel document, basically to make it easy for others to find.
I have tried hyperlinks but it doesn't want to play. It locks the db and then won't refresh the information.
I know i'm missing something blindingly obvious, can someone help?!
:confused:
Thanks
elsiegee

View 1 Replies View Related

Link Tbl Keys...which Way To Go?

May 13, 2006

Hi Forum,
I'm building a db to track computer and user problems for work, where I double as a Client Support Administrator (IT Guy).
I have these tables: (simplified list)

tblComputers
tblPeople
tblCompAssignment
tblProblems

I'm at a loss as to how to link the 'Problems' table. This is where I'll record trouble tickets reported by users.
Incoming trouble tickets could relate to the Computer or to the User's Network Login.
I thought I might have a field in the problems table for UserName and also one for ComputerID, but this seems problematic. Anyone got any ideas?

View 12 Replies View Related

Link To Url From Messge Box

Jun 29, 2006

I am trying to link to a url from a message box with difficulty.
eg the user opens the form and a message box appears asking have the latest datasets been downloaded? If answered yes the form opens, if no links to web address.

has anybody any examples.
Thanks

View 2 Replies View Related

Link One Field To 3

Apr 12, 2008

I have a database which works as an information system for the upcomming olympics.

In tblAthletes is...

AthleteID (Primary Key)
FirstName
Surname
And Various other fields not needed in this problem

In tblResults is...

Gold
Silver
Bronze
Also other field in this table


What I am aiming for is to have Gold AND Silver AND Bronze all as foreign keys of the AthleteID field.

Is there a way to do this or can another way be suggested. I am working on the 2000 version of access.

View 5 Replies View Related

Cannot Link Tables

Dec 24, 2005

Hi There

i am trying to link some more tables to my access front end from the sql server back end

when i select 'ODBC Databases' from the link pop up box, the pop up box just closes

any ideas why, or work arounds would be appreciated

Happy Christmas

View 4 Replies View Related

Link Tables

Jun 20, 2006

Does anyone know how to link tables automatically/VBA?

I'm trying to import files from our DB2 database in which one file is created monthly and instead of manually importing / linking the files manually, I'm looking to have access link to the new file automatically.

The file names are structured as so..

ITM01 (Jan)
ITM02 (Feb)
ITM03 (March)

Thanks

View 5 Replies View Related

Link Forms

Sep 14, 2006

Hello everybody,

I have one dbase with 3 tables wiht 3 forms. One is "custonmers" , "glass" and "lens".

Customers - CusID as primary Keys
Glass - GlasID and CusID primary keys
Lens - LensID and CusID Primary Keys

When I change a specific field (only) I am losing the records on the other tables of the specific customer.

Thanks in advance
xxx ΠΑΟ ΘΡΗΣΚΕΙΑ ΘΥΡΑ 13

View 2 Replies View Related

Link Between Tables

Mar 3, 2007

Hi All

I enter data in a form "WIP" that is based on a table named "WIP" in the form I have a command button. When I activate the command button it takes me into another form "Materials" which is based on a table named "Materials".

The data that I enter into "Materials" is not linked to the data ie Customer details which I have entered into "WIP".

My aim is to be able to report the materials used.

I have tried variations of relationships but am obviously missing something.

Thanks in Advance

Geoffk

View 2 Replies View Related

Table Link

Jun 5, 2007

Is it possible i create one master table and link few table together??
In the mdb that i attached there have 3 table - tblMaster, tblConfiguration1 and tblConfiguration2.
Using the relationship to link tblMaster's field Configuration to other 2 table Configuration field but there only showing 1 table data.
Is it allow in tblMaster able to show this 2 table together??

View 5 Replies View Related

Help With Link Code Please...

Dec 28, 2007

I have a FE database that on initial setup the user will enter the drive letter of the mapped location where the BE resides. The FE will then update all the linked tables to that path. This should work but for some reason the FE locks up (stops responding) when I test this. Any suggestions as to why. It doesn't stop responding until this part of the code:

tdf.Refreshlink

I have looked and it does change the link path, but it locks up.

Dim dbs As DAO.database
Dim dataPath As String
Dim tdf As DAO.TableDef
dataPath = Me.drive & ":IMP1_R2.2_be.mdb"
For Each tdf In dbs.TableDefs
'Not a MSys type table
'If the table has a connect string, it's a linked table.
If Len(tdf.Connect) > 0 Then
If InStr(tdf.name, "MSys") = 0 Then
tdf.Connect = ";DATABASE=" & dataPath
End If
err = 0
On Error Resume Next
tdf.RefreshLink
End If
Next tdf
DoCmd.Echo True, "Done"

View 1 Replies View Related

Link To A Query

Dec 7, 2005

Hi

i would like to link to a query. when i go to file | Get External Data | Link Tables, i don't see my queries. is this possible??? and if so how?

sam

View 1 Replies View Related

Link Between Two Fields

Feb 3, 2005

i have a button that open another form. the form should copy some filed from the form that the button in it.

Example. i have the from-A with field name- ID. in this form there is a button that open form-B.
this form had also the field ID and another fields of information on the specific person (with the same person form the form_A)
i want that the ID will automaticlly updated whrn i open the form so i can add another information. these are teo tables that are linked together and that is the reason that witohut the ID it cant be updated, and i dont want to update it manually.

View 6 Replies View Related

Link To A Web Image

Apr 14, 2005

i have a cars database
because it is difficult to add 4000 pictures i want to know
if is it possible to add a field that opens an ie page in google images to show results of images for that car?
ex :
model : Ferrari
foto link :http://images.google.com.gr/images?hl=el&lr=&q=Ferrari&btnG=%CE%91%CE%BD%CE%B1%CE%B6%CE%AE%CF%84%CE%B7%CF %83%CE%B7

View 6 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved