Could someone give me a few pointers on how to create a 'Browse' button on a form with the intent to search for an image in an bound-image to record and assign it and store the bmp selected by the user from the user's machine?
'This code was originally written by Ken Getz. 'It is not to be altered or distributed, 'except as part of an application. 'You are free to use it in any application, 'provided the copyright notice is left unchanged. ' ' Code courtesy of: ' Microsoft Access 95 How-To ' Ken Getz and Paul Litwin ' Waite Group Press, 1996
Type tagOPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long strFilter As String strCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long strFile As String nMaxFile As Long strFileTitle As String nMaxFileTitle As Long strInitialDir As String strTitle As String Flags As Long nFileOffset As Integer nFileExtension As Integer strDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As String End Type
Declare Function aht_apiGetOpenFileName Lib "comdlg32.dll" _ Alias "GetOpenFileNameA" (OFN As tagOPENFILENAME) As Boolean
Declare Function aht_apiGetSaveFileName Lib "comdlg32.dll" _ Alias "GetSaveFileNameA" (OFN As tagOPENFILENAME) As Boolean Declare Function CommDlgExtendedError Lib "comdlg32.dll" () As Long
Global Const ahtOFN_READONLY = &H1 Global Const ahtOFN_OVERWRITEPROMPT = &H2 Global Const ahtOFN_HIDEREADONLY = &H4 Global Const ahtOFN_NOCHANGEDIR = &H8 Global Const ahtOFN_SHOWHELP = &H10 ' You won't use these. 'Global Const ahtOFN_ENABLEHOOK = &H20 'Global Const ahtOFN_ENABLETEMPLATE = &H40 'Global Const ahtOFN_ENABLETEMPLATEHANDLE = &H80 Global Const ahtOFN_NOVALIDATE = &H100 Global Const ahtOFN_ALLOWMULTISELECT = &H200 Global Const ahtOFN_EXTENSIONDIFFERENT = &H400 Global Const ahtOFN_PATHMUSTEXIST = &H800 Global Const ahtOFN_FILEMUSTEXIST = &H1000 Global Const ahtOFN_CREATEPROMPT = &H2000 Global Const ahtOFN_SHAREAWARE = &H4000 Global Const ahtOFN_NOREADONLYRETURN = &H8000 Global Const ahtOFN_NOTESTFILECREATE = &H10000 Global Const ahtOFN_NONETWORKBUTTON = &H20000 Global Const ahtOFN_NOLONGNAMES = &H40000 ' New for Windows 95 Global Const ahtOFN_EXPLORER = &H80000 Global Const ahtOFN_NODEREFERENCELINKS = &H100000 Global Const ahtOFN_LONGNAMES = &H200000
Function TestIt() Dim strFilter As String Dim lngFlags As Long strFilter = ahtAddFilterItem(strFilter, "Access Files (*.mda, *.mdb)", _ "*.MDA;*.MDB") strFilter = ahtAddFilterItem(strFilter, "dBASE Files (*.dbf)", "*.DBF") strFilter = ahtAddFilterItem(strFilter, "Text Files (*.txt)", "*.TXT") strFilter = ahtAddFilterItem(strFilter, "All Files (*.*)", "*.*") MsgBox "You selected: " & ahtCommonFileOpenSave(InitialDir:="C:", _ Filter:=strFilter, FilterIndex:=3, Flags:=lngFlags, _ DialogTitle:="Hello! Open Me!") ' Since you passed in a variable for lngFlags, ' the function places the output flags value in the variable. Debug.Print Hex(lngFlags) End Function
Function GetOpenFile(Optional varDirectory As Variant, _ Optional varTitleForDialog As Variant) As Variant ' Here's an example that gets an Access database name. Dim strFilter As String Dim lngFlags As Long Dim varFileName As Variant ' Specify that the chosen file must already exist, ' don't change directories when you're done ' Also, don't bother displaying ' the read-only box. It'll only confuse people. lngFlags = ahtOFN_FILEMUSTEXIST Or _ ahtOFN_HIDEREADONLY Or ahtOFN_NOCHANGEDIR If IsMissing(varDirectory) Then varDirectory = "" End If If IsMissing(varTitleForDialog) Then varTitleForDialog = "" End If
' Define the filter string and allocate space in the "c" ' string Duplicate this line with changes as necessary for ' more file templates. strFilter = ahtAddFilterItem(strFilter, _ "Access (*.mdb)", "*.MDB;*.MDA") ' Now actually call to get the file name. varFileName = ahtCommonFileOpenSave( _ OpenFile:=True, _ InitialDir:=varDirectory, _ Filter:=strFilter, _ Flags:=lngFlags, _ DialogTitle:=varTitleForDialog) If Not IsNull(varFileName) Then varFileName = TrimNull(varFileName) End If GetOpenFile = varFileName End Function
Function ahtCommonFileOpenSave( _ Optional ByRef Flags As Variant, _ Optional ByVal InitialDir As Variant, _ Optional ByVal Filter As Variant, _ Optional ByVal FilterIndex As Variant, _ Optional ByVal DefaultExt As Variant, _ Optional ByVal FileName As Variant, _ Optional ByVal DialogTitle As Variant, _ Optional ByVal hwnd As Variant, _ Optional ByVal OpenFile As Variant) As Variant ' This is the entry point you'll use to call the common ' file open/save dialog. The parameters are listed ' below, and all are optional. ' ' In: ' Flags: one or more of the ahtOFN_* constants, OR'd together. ' InitialDir: the directory in which to first look ' Filter: a set of file filters, set up by calling ' AddFilterItem. See examples. ' FilterIndex: 1-based integer indicating which filter ' set to use, by default (1 if unspecified) ' DefaultExt: Extension to use if the user doesn't enter one. ' Only useful on file saves. ' FileName: Default value for the file name text box. ' DialogTitle: Title for the dialog. ' hWnd: parent window handle ' OpenFile: Boolean(True=Open File/False=Save As) ' Out: ' Return Value: Either Null or the selected filename Dim OFN As tagOPENFILENAME Dim strFileName As String Dim strFileTitle As String Dim fResult As Boolean ' Give the dialog a caption title. If IsMissing(InitialDir) Then InitialDir = CurDir If IsMissing(Filter) Then Filter = "" If IsMissing(FilterIndex) Then FilterIndex = 1 If IsMissing(Flags) Then Flags = 0& If IsMissing(DefaultExt) Then DefaultExt = "" If IsMissing(FileName) Then FileName = "" If IsMissing(DialogTitle) Then DialogTitle = "" If IsMissing(hwnd) Then hwnd = Application.hWndAccessApp If IsMissing(OpenFile) Then OpenFile = True ' Allocate string space for the returned strings. strFileName = Left(FileName & String(256, 0), 256) strFileTitle = String(256, 0) ' Set up the data structure before you call the function With OFN .lStructSize = Len(OFN) .hwndOwner = hwnd .strFilter = Filter .nFilterIndex = FilterIndex .strFile = strFileName .nMaxFile = Len(strFileName) .strFileTitle = strFileTitle .nMaxFileTitle = Len(strFileTitle) .strTitle = DialogTitle .Flags = Flags .strDefExt = DefaultExt .strInitialDir = InitialDir ' Didn't think most people would want to deal with ' these options. .hInstance = 0 '.strCustomFilter = "" '.nMaxCustFilter = 0 .lpfnHook = 0 'New for NT 4.0 .strCustomFilter = String(255, 0) .nMaxCustFilter = 255 End With ' This will pass the desired data structure to the ' Windows API, which will in turn it uses to display ' the Open/Save As Dialog. If OpenFile Then fResult = aht_apiGetOpenFileName(OFN) Else fResult = aht_apiGetSaveFileName(OFN) End If
' The function call filled in the strFileTitle member ' of the structure. You'll have to write special code ' to retrieve that if you're interested. If fResult Then ' You might care to check the Flags member of the ' structure to get information about the chosen file. ' In this example, if you bothered to pass in a ' value for Flags, we'll fill it in with the outgoing ' Flags value. If Not IsMissing(Flags) Then Flags = OFN.Flags ahtCommonFileOpenSave = TrimNull(OFN.strFile) Else ahtCommonFileOpenSave = vbNullString End If End Function
Function ahtAddFilterItem(strFilter As String, _ strDescription As String, Optional varItem As Variant) As String ' Tack a new chunk onto the file filter. ' That is, take the old value, stick onto it the description, ' (like "Databases"), a null character, the skeleton ' (like "*.mdb;*.mda") and a final null character.
If IsMissing(varItem) Then varItem = "*.*" ahtAddFilterItem = strFilter & _ strDescription & vbNullChar & _ varItem & vbNullChar End Function
Private Function TrimNull(ByVal strItem As String) As String Dim intPos As Integer intPos = InStr(strItem, vbNullChar) If intPos > 0 Then TrimNull = Left(strItem, intPos - 1) Else TrimNull = strItem End If End Function
well what to say... it works... the problem is: the browse window appears and i can select the picture that i what, etc... BUT i don't know how to my selection be inserted in a field already created (object OLE) in a table. so can you help me on this by changing this code or another option... my e-mail: email@example.com my Thanks
Hello all: I'm trying to create a browse button in MS Access. Here is the code I've used so far:
Private Sub ImgBrowse_Click()
Dim OFN As OPENFILENAME On Error GoTo Err_cmdInsertPic_Click
' Set options for dialog box. With OFN .lpstrTitle = "Images" If Not IsNull([ImageFullPath]) Then .lpstrFile = [ImageFullPath] .flags = &H1804 ' OFN_FileMustExist + OFN_PathMustExist + OFN_HideReadOnly .lpstrFilter = MakeFilterString("Image files (*.bmp;*.gif;*.jpg;*.wmf)", "*.bmp;*.gif;*.jpg;*.wmf", _ "All files (*.*)", "*.*") End With
If OpenDialog(OFN) Then [ImageFullPath] = OFN.lpstrFile [ImagePicture].Picture = [ImageFullPath] SysCmd acSysCmdSetStatus, "Afbeelding: '" & [ImageFullPath] & "'." End If Form.Refresh Exit Sub Err_cmdInsertPic_Click: MsgBox Err.Description, vbExclamation End Sub
and here is what is in my module:
Option Compare Database
Public Type OPENFILENAME lpstrTitle As String lpstrFile As String flags As Long lpstrFilter As String
When I attempt to compile it says Sub or function not defined and highlights MakeFilterString. Why is this and how can I fix it? An ideas? Thank you
i would like to create an browse button on my form so i can find the pictures i would like and then to been shown on the picture field on my form. i tried the northwood code from help but i could manage nothing woth it. do you have any idea to help ,me please??
I am designing a form and I need to add a Browse button to it. I need the Browse Button to point to the "My Computer". Once that file is selected I need it to fill in the hyperlink box. I have the hyperlink text box on the form and it works if you manually type a link in. I would like it to auto fill-in with the selected file.
Below is a pic of the form I'm having trouble with. the poject is a database of golf courses. there is a form for entering/viewing information for each hole for each course. basically each record has a thumbnail pic of the hole.
That browse button needs to do something. It needs to open a browse dialog box, similar to the browse dialog box you get on many other programs. The idea is that the user selects the picture from the browse dialog box and the file name of this picture is put in the PhotoFile field.
I have no idea where to start on this, but I did check out the Northwind database that comes with Access - its similar but has loads of other functions bundled with it that I don't need and doesn't work without these functions.
I'm no programming genius either! so any help is greatly appreciated. Thanks
I have a data access page that is used for entering a new record into my database. I would like to add a hyperlink field that gets its data from this page.
My problem is I need to add a way to easily add local file links (\useretcfile.htm for example) to a text box that will have a control source that is the hyperlink field. How do I create a "Browse" button to do this?
I can create a browse button using "File Field" in MS Script Editor but I don't know how to tie the result to a control source.
I am new to the forums, so if i posted this in the wrong section...please accept my apologies...
I am creating a database for recording some information about various customers. There is a date field involved, and if a certain number of days pass from that date, i want to create a button that when it is pressed it will check all the dates to see if this condition is true.
Current Date is 10/21/2006, when i press the button, the database will check to see if 10 days have passed from the date recorded.
User 1 - 10/05/2006 - True User 2 - 10/10/2006 - True User 3 - 10/15/2006 - False
Then it would just display the records which are listed as true only. I was thinking of using a query, but i am not sure how to quite do so...please give your recommendations as to what i can do.
I'm trying to create a button with caption "How to use" or simply "?". When the user clicks it, a label ( I don't want a message box or dialog box to pop up) appears with my explanation. When the user clicks the button again, the label vanishes.
Is it possible to do something like this without writing codes? I think this is kind of simple but I just can't figure it out...
Im very new to access .. Im trying to create a button to search a certain field for data ... I have a field named invoice where i store the number and i want to be able to search for a invoice if needed .. and other feilds as well ..
I have created a form and housed in the form is a combo box that pulls info from managers I work with. I want to create a command button that I can click to send them an email. I have their information tabled and then have also converted that table into a form. I have their email address I just need to know how to properly code the command. I have no visual basic experience. I have had classes where I've coded in C++ and HTML but very limited.
I've never used Access much...i was able to use it OK at one point but ive forgotten all about it now. I need to create something very simple for the reception at my work...
When a customer phones we want to be able to keep track of how they heard of us - so we want a very simple access/VB program.
The best way would be to have buttons of each of the magazines our company is listed in..then when someone phones and says "ahhh magazine 3" the receptionist can press a button and the button will add 1 to a field in a table?/report? next to that magazine.
Hope that makes sense :s
Any help would be very appreciated! - It seems very simple to do ?
I just want to run a code to display print dialog in my report, right now I"m using macro to run that vba code and create button on toolbar base on that macro, is there any way to create button on toolbar to run my code directly, so i dont have to create a macro again? just want to try avoid using macro.... " some say its dangerous he.he.."
Hi Please help me, I have the form, in this form there is list of value which run query and resulting the report. For example if I have 5 item in list, i have to choose one of then and the query running and the report is print preview.
My question is, How to export all 5 report to 5 sheet in one excel file. I know may be the problem in format if I send to excel, but I will fix it in the excel. The most important is, I export the report to excel, each of the report in each of sheet of excel.
Hi, I was wondering if anyone could help me out. I would like to create 2 command buttons on my DAP, 'Filter OPEN' and 'Filter CLOSED'. Right now when the page loads, it displays all records. I would like for it to filter only records with Status="OPEN" when the 'Filter OPEN' button is pressed, and Status="CLOSED" when the 'Filter CLOSED' button is pressed. 'Status' is simply a field on my page.
If anyone could guide me in the right direction, that'd be great. Thanks.
Hello. I would like to be able to create a new table and fields in by current database by clicking on a command button or by using a macro. I would also like to add fields to an existing table. Are either of these possible, and if so, please can somebody help me with the coding? I am a beginner with coding so do not really know where to start.
I have a dataabse that many users connect to and work on. It's a simple survey app. However, I would like to create a toggle switch that when clicked locks that particular record, so that it cannot be edited by the other users.
I have tried to create something by usin the Form_beforeupdate event, and having a toggle switch called lockbool.
Only thing is once i lock the records, all records are locked, and i can't untoggle the switch because it's locked.
i'm trying to put a button on my form to browse throw the files and when select a file loads the path and name of the file into a variable on my form, but i cant find the button "Browse". anybody knows were the hell is that thing... THKS.
I have a form where I want to browse for the directory path and display in a text box.I have done something similar to browse for file and display, but this time round I need only the directory path to be displayed .Need help on this.
Hello Freinds, I would like to ask about how to create a print button in MS Access Page. I have created a database made by Access for Employees and I'm using "page" to view the information and photo for each Employee .... so I want you to help me creating a button to print the current page I need thank you