I have 2 files with linking tables. Both are posted on the same network drive for the office to access. However some users have their drive link to drive E: and some to G:, etc. How do I get the file to automatically find what drive the user has and update the correct link in Linked Table Manager?
Thanks for your helps,
Penguin
I have a front end and a back end access files.My user save the back end on a shared network folder like:a.b.comfolderName$..I wish to simulate this path in my local pc in order to set the linked table links.My problem is that I can not modify my pc name to be "a.b.com".How can I simulate this in my windows 7 pc ..so I can set the linked table values to "a.b.comfolderName$" ?
View 8 Replies View RelatedI have this report that needs to be export - 1 report per record
The report exports out but its the same record export out each time ( the name changes - but the data doesn't)
Code:
Private Sub Command0_Click()
Dim MyDb As DAO.Database
Dim rsemail As DAO.Recordset
Dim RefernceNumber As String
Dim FilenameZ As String
Set MyDb = CurrentDb()
[Code] ....
I have a button that adds pictures/files to a network location. So people from all over the company can do this and all pictures/files are stored in one location.
I also have a delete button, but a waning pops up and the file remains on the network.
PHP Code:
Run-time error '424': object requiredÂ
Code:
My.Computer.FileSystem.DeleteFile (Path)
where Path is a string, files location on network.
I have a vba code export a error message if the current date of a file is not correct.. I have tested the code it worked to send a error message to a error.txt file but he it doesn't look to the modified date
So instead of:
file1.txt (13-02-14)
Then
Send error message ("file not updated") to: Error.txt
IF NOT
no action requeried
This code does the following :
file1.txt (Modified date: 13-02-14)
Then
Send error message ("file not updated") to: Error.txt
file2.txt (Modified date: 14-02-14)
Then
Send error message ("file not updated") to: Error.txt
Code:
Sub CheckD()
Dim FSO As Object: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim objFile As Object: Set objFile = FSO.GetFile("C:Users
ameDocumentsShow5621.txt")
If objFile.DateLastModified <> Date - 1 Then
[Code] .....
So also if it is the current date he send the error message to the error.txt file, it could be possible that i did something wrong.
I am running a small access database over a wireless network which all worked fine (still does on 1 wired/3 wireless) with not too many problems total of 6 machines (5 wireless/1 wired). I have just replaced two machine as they were getting a bit old 3years. But these two new machines do not seem to have full rights to the access database, in that I can open the database and view records but when you add data you get a Disk Error message. I can open and share word documents etc but not the database – if I reverse this set-up I get the same problem the wired computer can open and save word documents but again not the database - what am I missing!!!
SET-UP = All machines have Windows XP Pro and Office 2003 with all windows/office updates done, all connected to the same workgroup etc. Two new machines are Dell with Dell Wireless adapter. No server just workgroup and database in a shared folder on one computer which is hard wired to the Netgear wireless router. I have not run any network wizards and I don’t think I need to, just sharing the folder should be enough? Windows is managing the dell wireless adapters, file and print sharing is enabled, other computers can print to this computer, but I just can’t get the database to share correctly – I have also checked “References” and all looks fine.
I have created the time booking application in access. (Application will alow autherised user to enter daily work done) My Idea was to put this file on the server and ask each employee to log in and enter information. But whenever I try to run application from other than my pc(On which file is created) it flashes error and can't run some of the form. It works absolutely fine when run from my pc. Why this hapens? What is the solution for this? Can access application is sharebale over network?
View 10 Replies View RelatedI'm trying to pass some dates from an excel userform into access.
The date is chosen using the DTPicker tool ( basically a drop down calender). I have set the property of this to custom format dd/MM/yyyy, however dates get passed to the appropriate field in access in the American format.
In access the date fields are set to Short Date and the example shown for this format is in the UK format. I assign the date to a variable before passing that variable to the update SQL string:
Code:
s1 = Nz(DTPicker1.Value, #1/1/2000#)
I have dimmed s1 as date and then added:
Code:
s1 = Format(Date, "dd/MM/yyyy")
My update string is:
Code:
"SET [Stage 1] = " & "#" & s1 & "#" & " "
I suspect that the nozero function may be the issue but am at a bit of loss atm.
I think the damage to my database is not recoverable, but i'm still hoping.
My computer crashed when I was working on my dtabase and after restart the db is not working anymore :( If I try to do something, anything (!!!) all I got is an error message: "Error accessing file. Network connection may have been lost." But the db is on my computer, I don't use it over the network.
What can I do to make it working again?
Thanx!
Attila
I have created multi user access application. I have kept it on server and all users access that application from there desktop pc. Can I set time out for application? Means, Session of each user must be note more than 10 minutes. I want to add this functionality for avoiding the application blocking.
View 2 Replies View RelatedI have a picture stored on a network file share that populates each time a particular form is opened. Every so often we lose our connection (which is a different issue altogether). Right now the error I get after much grinding away, is "Bad file name or number"
Is there a quicker way to check for the connection before it spends 45 seconds trying to find the whole path?
Code:
Dim vFolderPath As String, dirFile As String, strFile As String
vFolderPath = Nz(DLookup("FolderName", "tblCodes-FolderControl", "FolderKey = '" & "Profile" & "'"))
dirFile = vFolderPath & Dir(vFolderPath & ctrl_people_id & " *", vbDirectory)
strFile = dirFile & "profile_pic.*"
'Debug.Print dirFile
On Error Resume Next
If Dir(strFile) <> vbNullString Then
Me.[ctrl_ImageFrame].Picture = dirFile & "" & Dir(strFile)
Else
Me!ctrl_ImageFrame.Picture = "X:~stuffprofile_icon.png"
End If
Here are some background . My company got a access file in a network drive.The data entry simply open the file in the network drive.But once the data has increased (~400mb) sudddendly,all process slow down. Like search , using report etc.Is there any method to imporive the situation?Some guys suggest me to copy the data file to the desktop and sync them.Can it it work?IF works,how to do that?
thanks gratefully for any ans
what is the correct syntax to write a command line able to UPDATE more than one field in the table records having multiple WHERE criteria.
Here is my challenge:My TableI has the columns A, B, C and D which are populated, for example, as follows:
TableI
A B C D
1 2
2 6 4 3
1 7 5 9
1 2
2 5 8 5
etc.
I also have a FormII which updates TableII. Among the existing fields of TableII there are the fields C and D (same as above). When saving data entry thru the save button of the FormII, fields C and D will be naturally saved on the TableII. Well, I also want C and D info updated into Table I as well, but only when field A=1 and B=2.So what I need (for the click event of the button save in the FormII) is to open TableI and either insert or update it with the values of the fields C and D in every record WHERE A=1 AND B=2.For instance, assuming C=& and D=%, the desired result should be as follows:
TableI
A B C D
1 2 & %
2 6 4 3
1 7 5 9
1 2 & %
2 5 8 5
I did not find any examples in the net including multiple criteria..Here is what I wrote unsuccesfully:
Private Sub BtSalvarFrmII_Click()
CurrentDb.execute "UPDATE TableI"
Set FieldC = Forms!FrmII!FieldC.value AND Set FieldD = Forms!FrmII!FieldD.value WHERE FieldA = 1 AND FieldB = 2
Docmd.save
Docmd.close
End Sub
What would be the correct syntax?
Does a (the) .ldb file have to be closed for another user on a network (separate FE linked to network drive BE) to read/write info to a table? Or even select info from a table?
View 6 Replies View RelatedThe code I have is.
Code:
Private Sub Command26_Click()
If Forms![test site]![prp test].Form.[A Right Answer] = -1 Then
Forms![test site]![number correct] = Forms![test site]![number correct] + 1
End If
DoCmd.FindNext
End Sub
Then when clicked it checks a yes/no box to see if "A right Answer" is the correct yes. Then it should pop to the main form and take the number correct cell and add one to it. I am trying to get the record to go to the next record inside the sub-form but docmd.findnext seems to be wrong too.
Hi everyone.
I am considering adding a new feature to our customer database. Let's say we recieve a letter from a customer, I'd like to be able to scan the letter into the computer, saved as a PDF (for example) and then, on the customer form, provide a 'browse' button so that we could browse to the file and then the address of the file gets saved as a text field in the relevant table.
Next time someone brings up the details for that customer, the letter would be accessible via a hyperlink to the file.
It sounds relatively straight-forward, but is it?
Thanks
Martin
How do I link to a file in the switchboard so the word document comes up when the user clicks to print his data. Thanks.
If you have any other better way of making an identical letter for all the contacts, please let me know.
Hi there,
In an access db, I want to add a field called 'FileName' and simply add a link to a file. In tabular view, would I simply put 'filesmynotes.txt' into the database? Also, when I asp this to a web page, should it (or can it) show as a hyperlink?
Thanks,
Greg
Is it possible to link external file again when database is ready and the source file has been moved to other location?
And going farther -> is it possible to create some kind of dialog wich prompts user to point the external file as linked?
Thanks!
What I have is a bunch of files located in another Drive (PDF). I would like to link to them by id number from access.
Is this possible?
Hello..
Here is what I would like to do. I have a folder say with 100 pdf's. What I would like to do is from an access folder be able to point to the specific pdf and have it create a link within the access form to the pdf they point to... Does this make sense?
Is there a way from within an access form that you can have a button that lets the end user look in a folder and select the pdf... and then create and store the link in an access form???
Thanks
R~
I have a module which reads a CSV transaction file line by line and adds the correct transactions to an access table and places the wrong ones in a logfile.Now some transactions are rejected twice there is even one rejected six times. Whereas one wrong transaction is processed only once. I am certainly overlooking something obvious in the logic but what. Here is the relevant code.
Code:
Function ImportCSVForConfederation(inputCSV, ORG)
Dim TNO As Integer, TACT As Integer, TABLE As String, TLINE As String, I As Integer, J As Integer, K As Integer
Dim FLD1 As String, FLD2 As String, FLD3 As String, FLD4 As String, LogFile As String, LogPath As String
Dim Lim As String, ITNO As Integer
[code]....
i have a pc which doesn't have sql server installed. is it possible to link tables from .mdf file sitting on the pc into access database?
View 1 Replies View Relatedlook for the best method. I have another software to work with my access. End of each month, ProgramA will generate an excel file with the monthly data. I want to import/link it with my access. I first try to import it everytime I generate the new excel file. However, there are one line at the end of the excel file with does not match the feild requirment, and generate an error table in access saying a number field cannot have string.
Then I try the link method instead. This time, it would work at all. The first time is OK, but the next time, I guess more lines are generate than the orginal in the excel file, it could not open up. Number of columns is the same.
The best method right now is to delete the last line of the new generated excel file, however, because I am not the one using it, I want to have a better method for my co-workers.
Are there ways to import excel data except the last line;
or
Are there ways to import excel file without an error table generate
Thanks :)
http://www.access-programmers.co.uk/...ad.php?t=97787
I am attempting to add a command button on a form that will allow user to browse files, then select a MS Project file to import, then have it linked to the current record (by a hyperlink or icon of some sort) so that clicking on it will open that MS Project file.
I found the above thread and have imported the modules and the fFindOpenImportFile in order to test in my database. I have made only slight alterations to the code, as I am still a novice w/ VB, but may not have done so correctly. In the Private Sub bImport_Click, I inserted 'tbFile' where sample "C:WindowsWin.ini" had previously been, so that it will import the file already selected from the bBrowse_Click. (If there is a cleaner/better way to do this, I would appreciate any help.)
Here is an exceprt from the code:
Private Sub bImport_Click()
On Error GoTo Err_bImport_Click
Me.tbHidden.SetFocus
If IsNull(tbFile) Or tbFile = "" Then
MsgBox "Please browse and select a valid file to import.", vbCritical, "Invalid File"
Else
If Dir(tbFile) <> "" Then
CurrentDb().Execute "DELETE * FROM tImport"
'FileCopy "C:WINNTWin.ini", "C:WINNTWin.txt"
DoCmd.TransferText acImportDelim, , "tImport", "tbFile", False
MsgBox "Your file has been imported into the Database."
Else
MsgBox "Your computer does not have a C:WindowsWin.ini file so the import example will not work.", vbInformation
End If
End If
Exit_bImport_Click:
Exit Sub
Err_bImport_Click:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_bImport_Click
End Sub
The imported form works great for 'Browse' or 'Open', but when I try 'Import', I get the following error:
2391- Field 'F1' doesn't exist in destination table 'tImport'
I even went back to the sample database and tested the form within the sample, using "win.ini" file and get the same error????:eek:
Of course, when I try it with an actual *.mpp file, I get this error:
31519- You cannot import this file.
...which leads me to believe that even if I fix the first error, I might be on the totally wrong path b/c it's an *.mpp file???:confused:
Any help would be greatly appreciated.
Thanks in advance for any help!
Hi there,
Am hoping someone can shine a light on my problem as this has me ripping my hair out.
first off I've set up a subform in my main form to display a query using a linked table as the data(a excel exported csv file). nothing special.
however, I have had to use a link specification to determine how the table is linked. i.e. what fields should be defined as double (as access treats them as integers for some reason even though the numbers are too big!) and which fields need renaming.
without this link specification, the data will not be handled correctly.
ok no problem. I've had this working. The table links fine.
When i came to roll out the database, I set up the security in order that multiple resources can use it at the same time.
Now when I log in and use the form I get the following error.
'Text file specification <filename> does not exist. You cannot import, export or link using the specification'
Arrgh. :confused: I used the specificition to link the table in the first place! I've tried refreshing the link using the Link Manager, I've tried re-linking it and I've also tried linking the table and creating new specifications, all with no luck. I get the same message each time.
My next step is to import the data instead(again I'd need to use a link specification). But I'd really like to solve this as I can see no reason why it shouldnt work.
Can anybody help?