Search results for query: *

...dim d as string d = "TRANSFORM Sum(Round([avgEllErt],10)) AS [SumOfavgEllErt] " & _ " SELECT [TeruletSzam] FROM " & _ " (SELECT * FROM (SELECT *, ""VezEll"" as boolEllenorzoVizsg from qry_VezetoiEllenorzes_BevittEsHianyzoEllenorzes WHERE ((iHo = " & Me.cmbHo & ") AND...

MsgBox "In query2 is a record = " & fnHaveRecord("SELECT * FROM tblDBParam ") Private Function fnHaveRecord(strQry As String) As Boolean Dim rstTemp As DAO.Recordset fnHaveRecord = False Set rstTemp = CurrentDb.OpenRecordset(strQry) While Not rstTemp.EOF fnHaveRecord =...

Sub sbGetSelectedItemFileNames() Dim myItem1 As DocumentItem Dim mySelection As Selection Dim myOlApp0 As Object Set myOlApp0 = CreateObject("Outlook.Application") Set mySelection = Application.ActiveExplorer.Selection For Each myItem1 In mySelection...

...recordset (table)? (ADO). I have a read-only database. I want to insert some (120-100) records all at once from this into a table of the client. *************************************************************************** an option f. e. : getrows ... Set rst = cnn.Execute("SELECT...

fe: from environment variables Sub WhoAmI() MsgBox Environ$("USERDOMAIN") & "\" & Environ$("USERNAME") End Sub or wscript: Sub WhoAmi0() Dim WSHNetwork Dim colDrives, SharePoint Dim CRLF CRLF = Chr(13) & Chr(10) Set WSHNetwork =...

khmmm, khmmm... i use that code to compact (a currently open) database client on close ide

...code from the on close event procedure of your main form (or an invisible form what loads when the client starts). I use it on NT and 2000. '********************************************************************************** Sub sbCompactCurrentDatabase() Dim FS, a Dim strWrite As...

To create a folder named "D" in the temporary folder: Const TemporaryFolder = 2 Dim fs, d, s Dim myTmpPath As String Set fs = CreateObject("Scripting.FileSystemObject") myTmpPath = fs.GetSpecialFolder(TemporaryFolder) 'create directory if it does not exist If...

...code from the on close event procedure of your main form (or an invisible form what loads when the client starts). I use it on NT and 2000. '********************************************************************************** Sub sbCompactCurrentDatabase() Dim FS, a Dim strWrite As...

like above ... use a vbscript file (or an exe) to change the setting of security in the registry (post in a mail attachement, or insert into your document a link to the script file). If direct running from a mail attachement is disabled, zip this file and send that zip to users. you can run...

if you know the address of the range is hidden, you can insert the formula into a cell with the relative address. f. e.: you want the formula into b1. if the hidden range is c4:e9 then range("B1").formular1c1= "SUM(R[3]C[1]:R[8]C[3])" the example function (bellow) sums...

This line inserts a formula to the cell "C16" to sum the range above the cell C5:C15 Range("C16").FormulaR1C1 = "=SUM(R[-11]C:R[-1]C)" ide

Sub CreateAfile Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile("c:\testfile.xml", True) a.WriteLine("This is a test.") a.Close End Sub ide

...Call apAcc.OpenCurrentDatabase("D:\TEMP\dk.mdb", False) Set dbWrk = apAcc.CurrentDb 'fsql2.sql contains 3 rows; "DELETE * FROM Table2" ... strSql = ReadSQLString("d:\temp\", "fsql2.sql") apAcc.DoCmd.RunSQL strSql Set rstWrk...

part2: instead of using shell function use Sub RunAndCloseOutlookApp() Dim myOlApp As Object Dim myNameSpace As Object 'running new outlook app. Set myOlApp = CreateObject("Outlook.Application") Set myNameSpace = myOlApp.GetNamespace("MAPI")...

close outlook client, part1: Public Sub close_Outlook() Dim myOlApp As Object Set myOlApp = GetObject(, "Outlook.application") myOlApp.Quit End Sub [wiggle] ide

see on this site faq705-0 Access Modules (VBA Coding) [/b] forum FAQ Index and the faq181-0 Access - General discussion[/b] Forum FAQ or http://www.excel-vba-access.com/ http://www.vbapro.com/ http://vb.oreilly.com/ [wiggle] ide ide

acron, ohh, yees ! i didn' t read it.. [blush] ide ide

Ninash, ... but: you need to disable the ALT+F4 (close application) combination, too. ide

call the following routine with HideCloseButton <formObject> insert into a module: '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 'Find the Dialog's Window Private Declare Function FindWindow Lib &quot;user32&quot; Alias &quot;FindWindowA&quot; (ByVal lpClassName As String, ByVal lpWindowName As...