Search results

Hi again Ken.. ;) Dim stDocName As String Dim strSQL As String Dim trz as string trz= InputBox("country??") stDocName = "company_find_bareboat_operators_spain" strSQL = "SELECT * FROM company INNER JOIN areas ON company.[record#] = areas.[areas#] " _ & "WHERE areas.country= '" & trz & "'"...

Hi.. ;) Try this..: SELECT * FROM company INNER JOIN areas ON company.[record#] = areas.[areas#] WHERE areas.country= 'Spain'

Hi yammers4 ;) Compare these two players to the query..: select MatchDate ,Team ,PlayerFirstName ,PlayerLastName ,OurScore ,OppositionScore from test where PlayerFirstName=[Enter 1 Player Name] or PlayerFirstName=[Enter 2 Player Name] order by PlayerLastName

Hi again.. ;) See the image ..:

Hi.. ;) Put onopen part of the form..: Sendkeys "{pgup}" .

Hi.. ;) Try this..: Dim ctrl As Control For Each ctrl In Me.Controls If ctrl.ControlType = acTextBox and ctrl.name <> "SFSID" Then If IsNull(ctrl) Then MsgBox ctrl.Name & " Cannot Be Left Empty!" Cancel = True ctrl.SetFocus Exit Sub End If End If Next MsgBox "Record...

Hi Calucho.. ;) this way try..: =DLookUp("[VL100]","Value_t", "[E-Date] = #04/06/2012# ") or this way try..: =DLookUp("[VL100]","Value_t", "cdbl([E-Date]) = cdbl(#04/06/2012#)") ...

you're welcome ;) if one boxes or both are empty, empty the box ignores.. greetings.. :)

Hi.. ;) Try this..: SELECT StationName, HighMax, HighMaxDate FROM tblRecords WHERE Month(HighMaxDate)=[forms]![frmqry]![txtMonthNum] and day(HighMaxDate)=[forms]![frmqry]![cboDay] or more advanced..: SELECT StationName, HighMax, HighMaxDate FROM tblRecords WHERE...

Hi.. ;) Delete field in this way.. put below in code ..: Currentdb.tabledefs("tblAppraisal").Fields.Delete "BU" .

Hi..: for OverlappingDates..: select surName , commDate , ceaseDate , ID from tablename where ID<>(select last(ID) from tablename) and ID<>(select first(ID) from tablename) this for nonOverlappigDates: select surName , commDate , ceaseDate , ID from tablename where ID =(select...

Hi..: Use the joker for the domain..: DCount("*", "querySear.....

Hi.. ;) try this way..: userRole = DLookup("[Role]", "LoginTable", _ "username ='" & usernamecombo & "' ")

Hi.. ;) Change the relevant part of this ...: DoCmd.OpenForm "Detallesfrm", acNormal, , stLinkCriteria ..

Simple but effective.. ;) Particularly useful when cancel shortcut menu.. and the multi-column forms..

Hi..: try it..: =DLookUp("BON001","Sheet1","Reference_Number=" & [Combo100] & " And [Price Breaks] = 'Smalls' ")

Hi Austin.. ;) This link gives some answers for you..: http://www.access-programmers.co.uk/forums/showpost.php?p=1113440&postcount=2 select ConcatRelated("CommitteeName","table_name","ID=" & [ID] ) from table_name

Hi.. Try this..: SELECT [SmartAdvisor Infrastructure Request List].[% Complete] FROM [SmartAdvisor Infrastructure Request List] WHERE ((([SmartAdvisor Infrastructure Request List].[% Complete])<>1)); for 7% ..: ......uest List].[% Complete])<>7/100

Hi.. ;) this for your the combobox..: Private Sub Combo367_AfterUpdate() Me!CallRef.SetFocus DoCmd.FindRecord Me![Combo367], acAnywhere End Sub this is to go other records..: Screen.PreviousControl.SetFocus DoCmd.FindNext you can write a button ..

You know TextToSpeech service offered by Google.. I wanted to use it with Access. With this application we use our work as a voice communicate our messages to the user at the same time.. I added an additional feature that meets the user saluting opening.. e.g "Good evening 'UserName', welcome...