Recent content by Hasu

Try this, OnUpdate, 1st box: Dim sSecIDSource As String sSecIDSource = "SELECT SecID, MgrID, tckr, Description " & _ "FROM tblSecurities " & _ "WHERE MgrID = " & Me.combo18.Value Me.combo4.RowSource = sSecIDSource Me.combo4.Requery Hope this helps... :-) Hasu

Hi Simon, Your code should work fine, there is no coding error. Could you explore more how did you code first combobox? Hope this helps... :-) Hasu

Hi cyberbob, sorry for delay! Que. 1 : could you please explain why your code worked and mine doesn't? Answer 1: in your code, option-1: Me.Filter = "[performer] like" & filname that should be Me.Filter = "[performer] like '" & filname & "'" text type always...

Hi drewaman, place below code inside new button click event to open database window. DoCmd.SelectObject acTable, , True Hope this helps... :-) Hasu (Trust on someone, someone will trust you!)

Hi cyberbob, try this: Private Sub FilPerformer_AfterUpdate() filname = DLookup("[performer]", "List of Surveillance_ Performers", "[IDnumber] = " & [FilPerformer]) MsgBox filname Me.Filter = "[performer] = '" & filname & "'" Me.FilterOn =...

Hi, Just one line of code will work perfect for you. Just open form in readonly mode like: DoCmd.OpenForm "Form1", , , , acFormReadOnly Hope this helps... :-) Hasu (Trust on someone, someone will trust you!)

Hi, Following code will work for you, ------------------- Dim frm As Form For Each frm In Forms If frm.Name <> Me.Name Then MsgBox &quot;close other forms&quot;, vbInformation Exit Sub End If Next frm ------------------- Hope this helps... :-) Hasu (Trust on someone...

Hi You can get message when searches hits no records. Just changes/add couples of places and it will works. ---------------------------------- Dim sqlF As String If IsNull(Me!Formula) = True Then sqlF = &quot;((Formula) Like '*')&quot; Else sqlF =...

Hi Donna, I think you are looking for same as I written in this FAQ faq702-3924 Please go through this FAQ and if you needs more help I will help you by posting on Forum. Hope this helps... :-) Hasu (Trust on someone, someone will trust you!)

Hi, Better to use Text as data type that will allow you to do any kinds of masking on your database. You can use Number data type with Double, but thats not goos way to store masking value into nnumber format. Hope this helps... :-) Hasu (Trust on someone, someone will trust you!)

Hi, set form properties: &quot;Data entry= No&quot; Hope this helps... :-) Hasu (Trust on someone, someone will trust you!)

set userfield of Required is no in your table. Hope this helps... :-) Hasu (Trust on someone, someone will trust you!)

Hi, use following code in Form Dirty event: Private Sub Form_Dirty(Cancel As Integer) dateField = Date() userField = strUser End Sub Hope this helps... :-) Hasu (Trust on someone, someone will trust you!)

Hey Marko, You can create a Make-Table query to move selected records, this will create temp table and you can specify nos of fields, criteria in where clause. after creating query use below code to run and export into excel. DoCmd.SetWarnings (False) DoCmd.OpenQuery...

File has to be zipped and less than 2MB. mail me on mistry.hasmukh@syncrude.com Hope this helps... :-) Hasu (Trust on someone, someone will trust you!)