Search results

Hi, assuming you added the column to the Files table, you just need to add the date modified property to the SQL text in the highlighted sections in this fashion: strSQL = "INSERT INTO Files " _ & " (FName, FModified, FPath) " _ & " SELECT """ & strTemp & """" _ & ", & ", """ &...

Hi gsty..., I have tried to append the data to the table using the Access import data facility (on the External Data tab). It could not match some column headings and complained about invalid field names. It's actually quite easy to append Excel data to an existing table but you have to...

Interesting, an almost identical OP was run here two years ago. CJ London gave the most obvious reply. https://access-programmers.co.uk/forums/showpost.php?p=1509685&postcount=2 Another way to gain access to forms in another database is to create within them a general reference to the local...

Hi, this looks like an ambitious project, especially since the ActiveX controls like TreeView are often upgraded by Microsoft and can't be relied on. Did you look into the use of FileDialog? https://analystcave.com/vba-application-filedialog-select-file/ Best, Jiri

Hi drazen, this is easy to do. Put this as the the click event of the button. Me.RecordsetClone.FindFirst "AssocID = " & Me!MyReferenceField If Not Me.RecordsetClone.Nomatch Then ' record found Me.Undo Me.Bookmark = Me.RecordsetClone.Bookmark 'jump to it Else MsgBox...

Hi, you might consider little advanced organization in your programming. The code that arnold sent has a great potential: it can be used as a general utility library and called by any program that needs this function. The advantage of putting this type of code into a general class module which...

Hi, this is what I use for automated backup. It automatically copies the database file to a directory above the where the app sits. It has a date stamp to distinguish between files. You can write your dialog code around it if you want or put it on a timer to execute every so often. Public Sub...

At the risk of appearing cynical, why has no-one asked about the relationship between the "main forms" and the "re-used" subforms? If the OP author was copying something from some website, it may very well be that he applied the method of cascading cbos for a subform (where in the model it was...

bongbang, you should be aware that the reference notation changes depending on the position w. respect to main form/subform. For a very very good summary of the correct positional references see: http://access.mvps.org/access/forms/frm0031.htm Best, Jiri

Hi Ellen, has your user contacted whoever is in charge of that server? Can anyone check the path to the FE file? Is the file there physically ? If not, well, hope it is found or there is a backup. If the file is there, rename it and replace it with the FE backup in the path. Best, Jiri

Your problem is hilighted in red. You should do simply Set wbook = AppExcel.Workbooks.Open(strName) because the variable strName contains strPath. Best, Jiri

You are right, should be ctl.Visible = True Best, Jiri

The quickest way to fix your problem is to add the code in red above in the BEFORE UPDATE event. Best, Jiri

I am afraid this is not clear at all. The values held by the fields are not controlled by the presence of a decimal point but the data type of the field. If the field is defined as integer then, naturally, it will not accept decimal points or will round off the number when they are present. In...

no problem. Look at the second post I sent. You can change the file in the folder and it will be retrieved by a call to the Sub GetPic (from OnLoad event) Best, Jiri

I get it: Private Sub GetPic Dim Myfile as String 'will get the first file in the directory Myfile = Dir(c:\img\*.*) MyControl.Picture = myfile End Sub Jiri

To load the image file into the form control you simply do Me.MyControl.Picture = "c:\img\myfile.gif" where MyControl is the name of the form control and myfile is is the name of your image file. You will need to set the picture property to "" before you zap the file if the form is still open...

It's really hard to make a call here without seeing the database and the proposed style of interactions between the offices. If your business model is truly distributed, i.e. almost all transactions happen within the area of local office, then you may be better off keeping the database in the...

Doc, how do you understand the term "complication from a previous episode" and would this mumbo-jumbo include complications that are by nature iatrogenic ? Does "a new admission" mean "next visit" or are we actually talking about successive hospitalizations ? How does complication "become"...

Hi you should use "GetObject" first which will refer to an existing instance of Excel and create the object only if none is found. Like this: On Error Resume Next Set objXL = GetObject(, "Excel.Application") If Err.Number <> 0 Then Err.Clear 'MsgBox "creating new...