Search results

HiAnauz, I also would like a copy of this code as well. Thank You Very Much. Skip skip.sbb@verizon.net

Hi Alexandre, Change this line: .FindFirst "[Variable]= 'ReferenciaContratoLast'" To : .FindFirst "[Variable] = '" & ReferenciaContratoLast & "'" after equal sign singl quote, double quote at end double quote, single quote, double quote That should do it. Skip [This message has been...

Hi, I have seen a number of requests for info on geting Table names, and Field Names into combo boxes. I have recently created a small app in A2k. Part of it, could be what some are asking for. There are two combo boxes on the form. The first box is filled with all the tables names in the...

Hi Duckman, Here is a query I got from this site a while ago which is what you are looking for. Use this query as the recordsource for your combo box. ======================================= SELECT [MSysObjects].[Name] FROM MsysObjects WHERE (Left$([Name],1)<>"~") And...

Hi, I have recently created a small app in A2k. Part of it, is probably what you are looking for. There are two combo boxes on the form. The first box is filled with all the tables names in the database. when you click on the table name you want the second combo box fills with that tables...

Try comboboxname.Requery HTH SKIP

Try this: In your query field "Notify Date" in the Criteria field put >= Date()-7 And <= Date() Should give you all records between those dates. Skip

Change Resume Exit_Preview_Report_Click to: Resume Exit_PackingSlipButton_click Your trying to go to a label not defined in this sub. Skip

Maury, I think the problem is that you are trying to create a file with an extension of .s02062001 Most operating systems usually use an extension of of 3 characters. try str_filename = "MMR" & temp & ".s" MMR02062001.s I dont think "/" is accepted in extensions. Skip PS:If I'm...

Hi ntp, Thanks a lot. Your reply was exactly what I needed. Thanks Again Skip

Keith, Thanks for the reply. The real problem, ( I guess I really didn't explain well enough is ) The arguments passed to the function are 1 - the table to search 2 thru 6 - are fields values to compare to. These 6 fields are all option, by placing a value for one of these I know the field...

Hi EveryOne, I am using A2k. I have written a function called x_lookup, to return certain fields in a table or query based on user input. Lets say one of the variables passed to the function is rtn_fld as string This variable containes the field name of what the user wants passed...

try this ----------------------------------------- Private Const SPI_SETWHEELSCROLLLINES = 105 Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long Private...

chemram, Sorry I don't have a fix for your problem, but I found Microsoft's kb article Q192008. Don't know if you have A97 or A2K, this article is for A97. Hope it helps Skip

Hi, Go in your control pannel and select the mouse, then de-select turn the weel on. That should do it. Skip

Leigh, Give this a try, I think I found it here, some time ago. ============================================ Private Function ClearForm(frmName As String) ' Resets / Clears controls on the specified form Dim F As Form, ctl As Control Set F = Forms(frmName) On Error Resume Next For Each ctl In...