Search results for query: *

You can use Pivot Table to get the result you want - that way unique Col As go in the row heading and it can sum Col C for you.

I use the following code: to call simply use getdefaultprinter Private Declare Function GetProfileString Lib "kernel32" _ Alias "GetProfileStringA" _ (ByVal lpAppName As String, _ ByVal lpKeyName As String, _ ByVal lpDefault As String, _ ByVal...

Hello I use the below function; Function CurrentDBDir(strDBPath As String, strDBFile As String) As String CurrentDBDir = Left(strDBPath, Len(strDBPath) - Len(strDBFile)) ' WHERE 'strDBPath = CurrentDB.Name 'strDBFile = Dir (CurrentDB.Name) End Function Regards [afro2]

Hi all, I have some databases which I have inherited. There are a few tables with over 25,000,000 records (rows)in them. These tables work fine but are quite slow to access (probably more of a networking issue). I am in the process of cleansing them at the moment. Keep smiling [afro2]

Hello I know this is not exactly what you are after but give it a go... http://j-walk.com/ss/excel/tips/tip34.htm Have fun [Afro2]

from windows help: The window mode in which the form opens. Click Normal so the form is in the mode set by its properties, Hidden (the form is hidden), Icon (the form opens minimized as a small title bar at the bottom of the screen), or Dialog (the form's Modal and PopUp properties are set to...

You can try this - RowZ is the rowreference. =if(‘Sheet1’!rowZColumnB=X,’sheet2’!rowZColumnA=’c:\location\worksheetB.xls!rowZColumnA,””) =if(‘Sheet1’!rowZColumnC=”MON”,’sheet2’!rowZColumnC=”NS”,””) Hope this helps [Afro2]

Hello Try using the SQL DELETE A.* FROM A INNER JOIN B ON A.[Key] = B.[KEY]; DISTINCTROW (from MS HELP) Omits data based on entire duplicate records, not just duplicate fields. For example, you could create a query that joins the Customers and Orders tables on the CustomerID field. The...

Hello, you can use this as a basis for what you require. sub protecthide(Rowref as integer) 'unprotect - no effect if sheet is not protected activesheet.unprotect password:="Password" Rows(Rowref + 1).Select Selection.EntireRow.Hidden = False rows(rowref).select...

Sorry For hidden it should read: If ws.Visible=false Then If ws.Name Like "Sheet1*" Then ws.PrintOut End If [afro2]

Hello if the worksheets are hidden then you can try: For Each ws In Worksheets If ws.Visible Then If ws.Name Like "Sheet1*" Then ws.PrintOut End If Next ws if they are very hidden you can try: For Each ws In Worksheets If ws.Visible=xlVeryHidden Then If...

Hello try using the following - obvious you can adjust the Sheet1* to suit your needs: For Each ws In Worksheets If ws.Name Like "Sheet1*" Then ws.PrintOut Next ws Regards [afro2]

Hello try using the transfertext method - can be done from VBA or macros. eg, DoCmd.TransferText acImportDelim, "", "TABLENAME", "c:\name.csv", True, "" [afro2]

Hello, I am doing something similar in one of my databases and the syntax I have is as follows using your above example: IIf(IsNull([Form]![group_name].value),"Hello",[Form]![group_name].value) It works for me. Hope this helps. [Afro2]

Hello, I checked the help menu and it states that this property's setting doesn't take effect until the next time the application database opens. I was defining other properties in the code I was using for my Database. I would like to know the answer though. Good luck and sorry I could not...

Hello, Try opening an existing module or if there are no modules just insert module and from the module view you will have the references in the tool menu. [Afro2]

Sorry I forgot to say to : Set DB = DBEngine(0)(0) For some reason this works for me. [Afro2]

Hello, What I do to re-enable the shift key is: With DB.Properties .Delete "AllowBreakIntoCode" End With You do not need the with - I use it as I am deleting a number of user defined properties. Hope this helps. [Afro2]

Hello It appears you are only referencing one table so if you replace where you have (this references the table File): strSQL = strSQL & "WHERE ((Files.[Type of Work]) Like '" & txtSearchString & "*') " with (this references the table Supplier): strSQL = strSQL &...

rlee16, go into and place whatever macros you want to use as the workbook opens: Private Sub Workbook_Open() End Sub [Afro2]