I'm trying to view a pdf in a form if the file exists. My search has brought me to trying the WebBrowser control. I have it loading the file but it launches Adobe instead of just showing the PDF in the window on the form.
View RepliesHow to search for a file using the dir function, however, i need to search for a file from a main folder which may have several sub folders.
I am having no luck so far - i understand there is a recursive search facility but im not sure how i can get this to work with what i am trying to achieve.
This is the code i have for the dir function:
If Len(Dir("as-tamworth-50midlands.qa$TamworthLaminate C of CsCircuit Foil" & CofC & ".")) = 0 Then
MsgBox "This file does not exist"
Else
MsgBox "Yippee"
End If
I have code working for some workers here ,who used to save excel files in a folder and my databse upload those files into database and then do the rest.I am looking for a code in vba which,on upload button matches the file in table and if the file already exists ,it should not upload again in the table and if it does not exists it should upload . I have attached my code below :
Private Sub Command0_Click()
Dim strcPath As String
strcPath = "O:QA FilesQC ReportingPending Review"
Dim strcNewPath As String
strcNewPath = "O:QA FilesQC ReportingMovedFiles" & Format(Now, "yyyy-mm-dd h-mm-ss") _
& " Excel Files" & ""
[Code] .....
Actually what I am looking to do is have an Access application check some Web site for the presence of a number. This number could be the Serial number of the application and if this number exists to maybe show a message in the aplication or even terminate the application.
A quick and dirty way is for User Serial number 254, to put on a specific page of a Web site say arbitrary file 254.jpg (invisible on the Web site). The application would check for the existence of this file and if it is there, it could take some action. Everything would have to be done in stealth mode.
The following code can tell me if a specific URL exists, in this case [URL]
Code:
Private Sub cmdArbitray_Click()
Dim blnDum As Boolean
blnDum = blnCheckURL("http://www.VisualDentist.com")
' If blnDum = True then it exists
End Sub
Public Function blnCheckURL(ByVal strURL As String) As Boolean
Const FLAG_ICC_FORCE_CONNECTION As Long = &H1
blnCheckURL = (InternetCheckConnection(strURL, FLAG_ICC_FORCE_CONNECTION, 0&) <> 0&)
End Function
1) How can I check for file 254.jpg?
hi all. i am creating a form by the name of ISSUES. i will have a field by the name of ISSUE# where user will be able to type the issue#. i was wondering if it is possible for the user to add an attachment of the issue file. in other ways to make it easier i am asking if it is possible to attach a file in a form and to view it also. any help will be really great.
Thanks
I have a table with 4 Fields:
Drawing Number
File Link
Attachments
Description
I basically want to have a live preview window of the "File Link" attachment in that current record. I have heard it's best to use a Web Browser Control when doing this, but I cannot get it to display the currently attached pdf file in that field of that record.
Is there a way to edit the link properties of the Web Browser Control so that it dynamically detects. The file location of the attached file in that field? There will only ever be one attachment in that field, as this will be a live pdf view of the drawing to which that drawing number was assigned
VB useses the FileExists funcion as follows:
object.FileExists(filespec)
Which returns true or faulse and where filespec is the file name and object is the name of a FileSystemObject.
What I need to know is what exactly a FileSystemObject is and if anyone could possibly give an example piece of code working?
I have a table with several thousand records. Each record as a path field that indicates a specific file that is associated with a given record (not just a directory, it identifies a specific file). I'm pretty sure that most of them are correct but I've seen and been cleaning up paths that have had typos in them or were otherwise not setup correctly. Is there a way that I can generate a report or a list of some sort that would tell me exactly which file paths exist and which ones don't? or even just the ones that don't.
View 4 Replies View RelatedI am working with my back end on dropbox. and the frontends on other peoples Pcs, Is there away to run an if statement stating,
If (the back end Locked* file exists), then
msgbox "Someone Is in the Database"
Else
docmd.OpenForm and so on.....(I know how to do this part
The reasoning is that it creates conflicting copies when you edit data from more then one Front End. and it is difficult to copy the conflicting data into the actual DB.
hey guys
i'm trying to do something that i thought would be pretty simple. what happens is i have 2 files that get used, one by access and one by excel. they are both the same, except if one gets modified then the other doesnt obviously. (theres reasons for having the 2 files).
anyway. in access i want it to pick the newer of the two files (i assume this is using a fso system object?), if the one it normally doesnt use is newer, it should copy the new one over the old one and continue using the one it normally uses.
i cant simply use the other file as another user always has that file open.
any sample code on how to check if things are modifyed at a later date? and copy/pasting using those fso objects?
cheers guys
aaron
When I press a label, The following code is run: -
Code:
With Me
DoCmd.GoToControl "cmdQuit"
.lblPassword.Visible = Not .lblPassword.Visible
.txtPassword.Visible = Not .txtPassword.Visible
.cmdPassword.Visible = Not .cmdPassword.Visible
[Code] .....
The code excutes OK, however the top left corner of the form shows a square based on the forms background grid. See attachment.
How do I get rid of this? When the form opens then there is no such box showing.
I have a mainform. When I click on a command button, it opens up another form. That form is designed to be as a continuous form, yet it does not display the header. The header is present in the form view. I have attached the screenprints to show the header in my form and the corresponding properties window.
View 4 Replies View RelatedI have created a form which enbles users to enter data into the fields which will add a new record to my table. What I am trying to do now is to create some kind of validation rule that will check whether the record already exists.
I need it to work this way; there are four input fields- 3 text and 1 is a date filed. When the user enters a new record they are not allowed to create a record that conatins the same combination of values. So if one record has for example filed 1 = 1 field 2 = abc field 3 = def; then no other record can have the same combination of values.
If the user enters an already existing combination there would be an error message saying which field is incorrect. If the combination doesn't exist it would add the record and display a message that the record was successfully added.
How can I do this?
I have a main form which employees use to report their bi-weekly time. The main form is automatically assigned a [RecordID] and the employee must select their [Profile] from a combo box. This main form contains (2) sub-forms. Both sub-forms use the same data source table.The first sub-form is visible in the body of the main form and linked by the [RecordID] and employee [Profile]. The employee enters each date worked and hours for the reporting period.
The second sub-form is hidden and linked to the main form by the employee [Profile], basically keeping a running ledger of all the dates and hours reported by the employee. What I would like to do is have a message box appear if the employee mistakenly enters date that has already been reported.
I have an application that I have automatically checking to see if tables are valid and connected, etc. If the app finds that the tables aren't connected or aren't working, it automatically tries to re-connect those tables in the background without the user's knowledge. The time I'm having trouble is if the SQL Server doesn't exists (the back-end tables are on a SQL Server). I would like to check to see if the SQL Server exists before I try to re-connect tables so that no SQL Errors pop up but I'm not sure how to figure that out with VBA.
View 3 Replies View RelatedI have a form, which has a combo box which a user can select an employee - the combo has three columns (Employee_Number, Surname, Initials) although the Employee_Number column is set at a 0 width, so not visible.
The form is bound to a query which only shows records that are 'Active'
When a user selects and employee in the combo box, I want the AfterUpdate event to check and see if there is already an active record - if there is, throw up an error message and then reveal a couple of buttons giving choices what to do next; if there isn't an active record, reveal three textboxes and then populate those textboxes with the values from the three columns from the combo.
The bit that is sticking me is the search - - I have tried DCount, but can't seem to get it to work
Here is the section of code that I am battling with:
Code:
Dim EmpNo As String
EmpNo = cboEmp_Check.column(0)
If DCount("Employee_Number", "Incomplete_Training", "Employee_Number=" & EmpNo) > 0 Then
MsgBox "Existing", vbOKOnly
I've got this form called mainmenu and inside this form I've got this code to prevent it from being closed.
Code:
Private Sub Form_Unload(Cancel As Integer)
Cancel = True
End Sub
Now then, when I try to switch to design view in this form it doesn't let me because of this code. Is there anyway to tweak this code so that I can get into design view without having to keep disabling it?
I currently need a way to check to see if a a field already exists. To be exact I have an access application that imports data from multiple sources and saves the file name of these imports into an import tracker table. The table has four fields, file name, Date Imported, Import Type, and Number of Records. I am writing some code that checks a Boolean given by a form. If the Boolean is true It skips over checking.
If it is false It needs to check my import tracker file names to see if the file was already imported. If it was then it will skip over the file and the algorithm will check the next file given by an array. So I was wondering..How would I go about making it check if the file already exists in the table. I was thinking of turning the File Name Field into a primary key, since there will only ever be one File Name of every type.
I can already send emails out as PDF files when an email address exists, however, I'm trying to validate whether or not an email address does actually exist. My problem is, there are four possible locations where an email address could be: MainEmail or Contact1Email or Contact2Email or Email (the last one - Email - is in a separate table).
Four text boxes exist on the form that is being actioned (the form is based on a query to extract the relevant information) and are available to test for an email address being present. What I'm struggling with is ensuring that the 'To' box in Outlook always gets populated or Outlook chucks a hissy fit. I have been trying various IF Then Else and Do Loop plus a myriad of other ways but none are reliable, especially if no email address is present which can be the case.
I am trying to check if a record exists, but I keep getting a error!!!
Private Sub Command10_Click()
If DCount("*", "tbl", "[ID] = "") <> 0 Then
MsgBox "This record already exists.
Else
stDocName1 = "McrAddNewRecord"
DoCmd.RunMacro stDocName1
End If
End Sub
After reading many of the posts here, I decided that one of the problems with the tables in the db I was working on was in the primary keys. I had used the same field name as the primary key in all of my tables. This was RecipID, which was a user entered textbox with an example in a label beside it showing the format to use.
After reading stuff here, I decided this wasn't a good idea. So I changed RecipId to be an autonumber in the parent table (Household_Info) and a long integer foreign key in the children. Also, I added some fields to the parent table to identify the head of household (lastname, firstname)
I already had a continuous form made with a subform and a pop-up form associated with it based on my previous tables. Reran the query underlying the form, and the new fields showed up in the field list box for the form. The fields are all still present in design view, but I get a totally blank form in form view. I checked the forms recordsource and made sure that it was set to the new query.
Can anyone give me an idea about what I'm overlooking? Do I have to recreate the form?
(Sorry if this is a repeat of a question someone has already addressed, but I couldn't turn up any relevant threads after several hours of searching.)
Thanks, Charlotte
I 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 RelatedIs there way a to get this audit trail module to work with a form in Datasheet view? It works fine with a form in Single Form view; I can open the table where the audits are saved and everything looks good. But when implemented on a form in datasheet view, nothing happens. I don't get any errors and nothing is saved to the audit table.
Link : [URL] ....
Here's the vba code:
Sub AuditChanges(IDField As String, UserAction As String)
On Error GoTo AuditChanges_Err
Dim db As DAO.Database
Dim rsT As DAO.Recordset
Dim ctl As Control
Dim datTimeCheck As Date
Dim strUserID As String
[Code] ...
You call it in the BeforeUpdate event like so:
Code:
Private Sub Form_BeforeUpdate(Cancel As Integer)
'Track all changes made to the record
If Me.NewRecord Then
Call AuditChanges("Asset_ID", "NEW")
Else
Call AuditChanges("Asset_ID", "EDIT")
End If
End Sub
I have a module that I am using to verify that file paths in my table point to valid jpg files. The table has grown quite a bit since I first created the module and it has gotten to the point where it's taking too long for the module to execute. I'm in the process of trying to change the record set for the module from the table to a stored query procedure but it's turning out to be a little tricky for me. When I execute the following module, I'm not getting any error code, it just doesn't seem to do anything at all. The bits in red are the parts I've changed. Before that the module executed as I expected it would.
Code:
Sub TestIt2()
Dim strFileName As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("QryUpdateRevisionHistory")
[code]....
I am storing values of pictures and the location of them in a table, this works fine!... using OpenRecordset. The problem is that when the function is called to store the information, it just keeps adding the same values of each file in the folder over and over again in a word "Duplicating" the information.
I have tried various methods using the OpenRecordset, but cannot seem to find the correct manor of applying the code.
Below is the function I have for storing the data...
Code:
Public Sub GetFilesNamesFromFolder(strFolderPath As String)
On Error GoTo ErrorHandler
Dim objFSO As Scripting.FileSystemObject
Dim objFolder As Scripting.folder
Dim objFile As Scripting.File
[Code] .....
I am using the following code to check for duplicate tickets when importing multiple records into a datasheet view form by using the paste append function.
Code:
Private Sub Ticket_Number_BeforeUpdate(Cancel As Integer)
DoCmd.SetWarnings False
If DLookup("Ticket_Number", "Record_Store", "Ticket_Number= '" & Me.Ticket_Number.Value & "'") > 0 Then
Cancel = True
MsgBox "There were import errors, please open View Import Errors above."
End If
End Sub
The form is used to insert multiple records into the database at a single time.
That codes works to check for duplicates. And if there are none there are no popup messages.
If there are duplicates though it gives a popup for every single Ticket_Number that is a duplicate.
I am wondering if there is a way for it to give only a single popup once it completes checking all the records to be imported for duplicates.