Search results

Search this forum for Resolution keyword, and you'll find it. Or check the threadScreen Resolution out.

Try this. Application.SetOption "Show Hidden Objects", False

Try the code below. Private Function FolderCreatedDate() Dim objFS As Object, objFolder As Object Dim strFolderPath As String strFolderPath = "i:\test\" Set objFS = CreateObject("Scripting.FileSystemObject") Set objFolder = objFS.GetFolder(strFolderPath) Debug.Print...

What about Echo Off/On like this ... Application.Echo False . . ' do sthg here. . Application.Echo True ...

Does the hyperlink work when you save the report to Word or Excel? You may check the link at Export Report To HTML With Live Hyperlink Enabled out. I think if you can have the hyperlink work out in the Word format, then you can convert to the PDF with live hyperlink as well. If not, you may...

Do you want to update all the records in tbl2 where the Date > the dt? If so, you may consider the Update query to update the records on each loop. It's no doubt why only the first record in tbl2 is changed, you don't use Loop the second recordset and use MoveNext. I prefer the Update query to...

You have to make sure that DAO is loaded in the Reference. Then explicitly declare the variable. Dim rst As DAO.Recordset ... I don't think RecordsetClone is available in ADO, you may use workaround by using DCount(), if you don't want to use DAO.

Try the function below. Function fIsBlank(strField As String, I As Integer, _ Optional strString2 As String) As String Dim strR As String If strField <> "" Or Not IsNull(strField) Then Select Case I Case Is = 1 strR = "Instrument Description : -" & " " & strField &...

Check the link http://board.quicktechusa.com/cgi-bin/ultimatebb.cgi?ubb=get_topic;f=1;t=001944#000004 out.

You have to make sure that DAO 3.6 is set in the Reference. When you are in VB Editor, go to Tools menu>References>look for if the Microsoft DAO Object Lib. 3.6 is selected. If not, scroll down and find it. If the DAO is set, then you have to explicitly dim your variables. ... Dim dbs As...

If you don't remove the ADO from the References, you'll get the error. There are 2 ways to correct this. First move the DAO Ref above the ADO in the References. or explicitly define the dim like this. Dim MyDB As DAO.Database Dim MyQDef As DAO.QueryDef Dim MyDyna As DAO.Recordset ...

First, you created 2 functions with the same name (ChangeResolutionNEW)in the 2 modules. Delete one out or rename one of it. Second, modify the code in the new form to. Option Compare Database Option Explicit Dim I As Long Private Sub bChangeResolution800x600_Click() I =...

Check the link http://www.utteraccess.com/forums/showflat.php?Cat=&Board=access_2000&Number=110320 out.

What do you mean to lock the subform? You don't want the records in the subform to be modified or don't what anyone to modify and delete records in the subform? If you set Locked property to Yes, a user still can delete the record. Tre code below. Private Sub Check23_AfterUpdate() Dim ctl As...

No. Sorry, I happened to have only this message in the whole thread. They have cut the link out as well as the search.

Check the this link Determine Windows versions out.

Try the code below and see how it works for you. Private Function fGetFiles2() Dim objFS As Object, objFolder As Object Dim objFiles As Object, objF1 As Object Dim strFolderPath As String, strDoc As String Dim I As Integer, J As Integer strFolderPath = "i:/test/"...

Try this way. Set rst = dbs.OpenRecordset("SELECT [tblBuildings].[LocNo], [tblBuildings].[BldgNo] FROM tblBuildings WHERE [tblBuildings].[LocNo]=" & [forms]![frmaddbldg]![locno] & ";")

You can find how to do it in Sample db came with Access, called Orders.mdb. Look in the Module tab and find RefreshTableLinks module name.

Use DateAdd() as shown below. Private Sub Warranty_Expires_AfterUpdate() Me.Warranty_Expires = DateAdd("YYYY",2,Me.Date_Purchase) End Sub