Recent content by Notedop

Thanks for your response! This might be a solution however would require rebuild of our logic. So i'd rather explore if there is a possiblity to edit the recent files of Access. Any further input is appreciated!

Hi, Is it possible to edit the recent files of a access database? We have a main database (version control database) from where you can open a database which is located on a network drive. By selecting the datbase you need from a dropdown menu, access will check which version you have...

You will also need to add the following function: Private Function GetApplication(ByVal AppClass As String) As Object Const vbErr_AppNotRun = 429 On Error Resume Next Set GetApplication = GetObject(Class:=AppClass) If Err.Number = vbErr_AppNotRun _ Then Set...

can you post the database or a part of it? I can take a look at it when I finish work in an hour or so.

and did you try the second ?

My objective is: help LookingForK :-P

btw, what I find easier is adjusting the recordsource of the form. You can create sql queries based on user input. This way you can customize your searches and only show those results matching the search values. below example I use in a db: Me.RecordSource = "SELECT Table_Orders.* FROM...

try this: Me.Recordset.FindFirst "[asset]= " & Nz(Me![Text73], 0) & " or [contact name]='" & Nz(Me![Text73], 0) & "'"

well, I wasn't closing yet. First wanted to check if I was able to loop through all open excel files. If your statement is true, then everything will be closed anyhow. Not the prettiest code, but works closing all open files. Leave out the msgbox if you want it to be done silently. Saves...

Not sure if this would work, change [contact names] to appriate field to search. Me.Recordset.FindFirst "[asset]= " & Nz(Me![Text73], 0) & " or [contact names]=" & Nz(Me![Text73], 0) Else you could do the same search whenever no records have been found: Private Sub Command75_Click()...

Hi, I was thinking to check all workbooks that are open, then check if it is the correct one and then close it. I got the following however it will not loop through all workbooks, only one. Anyone an idea how to solve that? Public Function test() Dim oApp As Object Dim intCount...

Not sure if I get it, but you could use a dlookup to retreive the mail in case it stored in a table: dlookup("[e mail"], "clients", "Clients.ClientID ='" & Form![formname].[ClientID] & "'" call it as following: dim clientid as string dlookup("[e mail"], "clients", "Clients.ClientID ='" &...

I found this functioncode which enables me to copy the text from the control, however now the table formatting is lost. there should be a way to select everything in the browser control, however I'm not sure how... 'call of the code ClipBoard_SetText...

Hi, I have a database which handles urgent shipments. Based on the status of the shipment a standard answer is generated in HTML. I have used HTML as this enables me to use table formatting instead of using tab's in a textcontrol window. The HTML page is shown in a webbrowser control...

Okay, did some little research, this seems to work: *edit, adjusted code a bit Public Function aSendTQ2ExcelSheet(strTQName As String, strSheetName As String, Optional strFilePath As String, Optional strRange As String, Optional blnIncludeHeaders As Boolean) ' strTQName is the name of the...