Search results

Hi.. Try adding a space.. iQuery = iQuerySelect & " " & iQueryFrom & " " & iQueryWhere or...: iQueryFrom = " FROM HD_GL..........BAL_ID" iQueryWhere = " WHERE ............ATE) In (" & getDateFilter & "))))"

Hi.. :) Use this procedure..: Private Declare Function URLDownloadToFile Lib "urlmon" Alias _ "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _ szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Sub Downloadfile(URLFile As String...

Hi again.. ;) Replace this section..: .... ...... Else 'RAvg = Null RAvg = 0 End If ...... .............. and this..: GPA: ( Val(RAvg( [1a],[1b],[1c],[2a],[2b],[2c],[3a],[3b],[3c],[4a],[4b],[4c], [5a],[5b],[5c],[6a],[6b],[6c],[7a],[7b],[7c],[8a],[8b],[8c] )) + Val(RAvg(...

Hi again.. ;) update table_name set field_name=field_name+ [forms]![form_name]![textbox_name]

the above query, If you pass criterion, then it field gives the null records. you according to the above instance, the first two criteria are entered, then the result is what should be?

Hi.. This is the most simple way..: dim trz as integer trz =me.textbox_name currentdb.execute "update table_name set field_name =field_name +" & trz

Hi.. Try this query.. ;) select atype, adsgn, aport, MGT from ( select nz([AircraftType],"") as atype, nz([AirlineDesignator],"") as adsgn, nz([Airport],"") as aport...

You do to trick.. ;) GPA: ( Val(RAvg( [1a],[1b],[1c],[2a],[2b],[2c],[3a],[3b],[3c],[4a],[4b],[4c], [5a],[5b],[5c],[6a],[6b],[6c],[7a],[7b],[7c],[8a],[8b],[8c] )) + Val(RAvg( [9a],[9b],[9c],[10a],[10b],[10c],[11a],[11b],[11c],[12a],[12b],[12c]...

Hi.. This code could work..: Dim trz, ct As Integer Private Sub Report_Open(Cancel As Integer) trz = 1 ct = 6 'repeat label count End Sub Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) If ct <> trz Then Me.NextRecord = False trz = trz + 1 Exit Sub End...

Hi.. This way, you can get the previous record total by using.. select date_field, record_ID, field1, field2, ( select sum(field1-field2) from table_name as b where...

Try this..: Report / Properties / Other / Modal and PopUp = Yes and... open event code..: docmd.maximize

Hi.. docmd.openform "frmserlist", , , "[seriesyear]='" & me.seriesyear & "' "

a little bit of this, your purpose is related. If you say every record, on current..

Hi.. ;) Try this..: Me.frmHomeSub.Form.Filter = "[seropen] = -1" Me.frmHomeSub.Form.FilterOn = True or..: docmd.applyfilter ,"[seropen] = -1 ","frmHomeSub" I hope that helps..

I understood your question mistake :( The first proposal, I have looked at the list record. If you have, we have opened the form.. but I think you want..: if from the list recording not chosen, form is not opened.. Private Sub CmdOK_Click() Dim i, trz As Integer For i = 1 To...

Hi.. Two different proposals..: This is the you want..: Private Sub CmdOK_Click() If ListCompany.ListCount - 1 <= 0 Then MsgBox "You must choose a company.." Else Call OpenCompanyForm End If End Sub This a different approach..: ;) Private Sub txtSearch_Change() Me.ListCompany.Requery If...

Name and last name, separated by a space assuming, is in this way.: Dim trz As String trz = Environ("Username") MsgBox Left(Mid(trz, _ InStr(1, trz, " ") + 1), 3)

Hi Brad.. In this structure, by entering year, grouped receive monthly summaries..: select format([The Date],"mm\/yyyy"), [MLSS (mg/L)] from [Aeration Data] where year([The Date])=[Choose a Year - Format: yyyy] group by format([The Date],"mm\/yyyy"), [MLSS (mg/L)]

Hello everybody.. ;) I participated actively in the new but long-time follower of this forum.. I love Access.. :o

Hi.. in operator, would not be this way I think vba.. ;) Use select case.. select case MyVar case Not String1, String2, String3, etc Test = True case else 'else code end select