Search results for query: *

Hi, Sub Un_Lock() Dim sh As Worksheet For Each sh In Application.Worksheets sh.Unprotect Next End Sub Sub Re_Lock() Dim sh As Worksheet For Each sh In Application.Worksheets sh.Protect Next End Sub Jean-Paul Montreal To send me E-Mail, remove...

Hi, If you have access XP, I’m not sure with other version, just bring your mouse over the link table name and wait. An info window will pop up with the full information, including the source table or query name, on the SQL server, at the end. Regards. Jean-Paul Montreal To send me E-Mail...

Try: Update Account (Table Name) set Account_Key = Rtrim(Customer_Code) + ‘-‘ + rtrim( Loan_ID) + ‘-‘ + rtrim(Account_Key) Jean-Paul Montreal To send me E-Mail, remove “USELESSCODE”. jp@USELESSCODEsolutionsvba.com

Hi, It should be: rs.Fields("Bid Amount").value Not: rs.Fields.item("Bid Amount") Jean-Paul Montreal To send me E-Mail, remove “USELESSCODE”. jp@USELESSCODEsolutionsvba.com

Hi, When you had created the link to the AS400, did you select, in the list of fields that popup, a primary Key for update or edit? (If you could not edit a field directly in the Access table, it could be the case) Also, if you could edit a table using one of the AS400 screen, that doesn’t...

Sorry, there is an error in my first query SELECT RoomN, Month([From]) AS FromMonth, IIf(Month([From])=Month([To]),DateDiff("d",[From],[To]),DateDiff("d",DateSerial(Year([To]),Month([To]),1)-1,[To])) AS FromDay, Month([To]) AS ToMonth...

First, you will need a query like that (not tested), It assumes that customer doesn’t stay more then a month: SELECT RoomN, Month([From]) AS FromMonth, IIf(Month([From])=Month([To]),DateDiff("d",[From],[To]),DateDiff("d",DateSerial(Year([To]),Month([To]),1)-1,[To])) AS FromDay, Month([To])...

Thanks, glad I could help. Jean-Paul Montreal To send me E-Mail, remove “USELESSCODE”. jp@USELESSCODEsolutionsvba.com

Try something like that: [COLOR=BLUE] SELECT CUSTOMER, A,B,C,D,…,TOTAL_BY_PRODUCT FROM THE_TABLE UNION ALL SELECT CUSTOMER, “” AS A, “” AS B, “” AS C, “” AS D, …. , TOTAL_BY_CUST FROM ( SELECT CUSTOMER, SUM ( THE_FEILD) AS TOTAL BY_CUST FROM THE_TABLE GROUP BY CUSTOMER) AS w [/COLOR BLUE]...

Hi CautionMB, Thanks for the latest information. Regards. Jean-Paul Montreal To send me E-Mail, remove “USELESSCODE”. jp@USELESSCODEsolutionsvba.com

Yes CautionMP, very interesting, and when you put the value in the web form you use the innerText property of the element? I also found few things that could be interesting, just for everybody information: http://support.microsoft.com/kb/176792/EN-US/...

Thanks, It looks interesting, need to analyze more. Thanks again. Jean-Paul Montreal To send me E-Mail, remove “USELESSCODE”. jp@USELESSCODEsolutionsvba.com

Hi All, We use for reporting a web page with a lot of fields, I have no control on the web. Somebody have to type in the information submit it and do it again. I get all this info in a database. Is there a way from my database to make some VBA code to populate the fields of a webpage? Thanks...

Thank emozley, I look at it and the checks were there for the extension they have to download. On my laptop I could download for the web. I’m logged in both cases with the same user. It seems to me now, that laptops are member of a Window OU with restrictions, so I get in touch with our network...

Hi all, I have an asp web page (intranet) with a list of document that the users could download. It works well for desktop but not for laptop. On desktop a window open asking to open or save or cancel and for laptop the browser is working endlessly, no window popup. I could not find the...

Hi, 1) Make your second procedure a function that return false instead of exit sub. In your first procedure, look for the result of the function and if it’s false exit the sub. 2) Give a null value for that field in your insert query. Jean-Paul Montreal To send me E-Mail, remove...

Glad I could help. Jean-Paul Montreal To send me E-Mail, remove “USELESSCODE”. jp@USELESSCODEsolutionsvba.com

Hi, Try Switch: From Help file: Switch(CityName = "London", "English", CityName = "Rome", "Italian", CityName = "Paris", "French") Jean-Paul Montreal To send me E-Mail, remove “USELESSCODE”. jp@USELESSCODEsolutionsvba.com

Hi, You will have to use an ActiveX programming in a DTS that uses File system object: Dim objFSO, objFile, objFolder Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("D:\Data\LOG\SendLog\") … For Each objFile in objFolder.Files … objFile.move...

Then look how much space left on the drive. Also you could shrink the tempdb file ( Right click on the TemDB and in “all tasks” select “Shrink database”) Jean-Paul Montreal To send me E-Mail, remove “USELESSCODE”. jp@USELESSCODEsolutionsvba.com