Search results for query: *

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...

...will works. ---------------------------------- Dim sqlF As String If IsNull(Me!Formula) = True Then sqlF = &quot;((Formula) Like '*')&quot; Else sqlF = StringLogic(Me!Formula, &quot;Formula&quot;) End If DoCmd.OpenForm &quot;AdditiveView&quot;,,,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!)

Hi Marko, try this, DoCmd.OutputTo acOutputTable, &quot;mytest&quot;, acFormatXLS, CurrentProject.Path & &quot;\mytestfile.xls&quot; Hope this helps... :-) Hasu (Trust on someone, someone will trust you!)

I tried your code as well. It's working fine. make sure you create adfterupdate event from comboRegion properties event box. -Hasu

Hey guys, First of all create Macro1 in Book1.xla excel file and save it and then close that file. Now, create a button on access form and paste below code in button click event, this code will run macro of excel and after you can open excel fiel to verify. Private Sub cmdCallMacro_Click()...

Sorry! I made a mistake. use school in place of region after distinct keyword. Private Sub Combo73_AfterUpdate() Combo35.RowSource = &quot; select distinct School from school where region ='&quot; & Combo73 & &quot;'&quot; Combo35.Requery End Sub Hope this helps... :-) Hasu (Trust on...

You might be get some idea from this FAQ faq702-3924 Hope this helps... :-) Hasu (Trust on someone, someone will trust you!)