Search results

@arnelgp stupid question... set lst = VisibleList(me.name) set lst = VisibleList me.name set lst = VisibleList (popUsedBy) set lst = VisibleList ("popUsedBy") Seriously! nothing compiles

Thank you so much!!!

way overcomplicating my question. All I'm trying to do is figure which listbox is visible and then grab that for other events. What I'm struggling with is calling the above function. I've figured out I need to make it a string Public Function VisibleList(frm As Form) a string If...

The reason I need to specify a specific listbox is because I requery it from another form, I do multiple selections from them, I move items in it. I thought this was the "smart" code, to make one function work for multiple places. Function GetList() On Error GoTo Err_GetList Dim i...

"codpiece"? Way more than I needed....

Thanks, Doc. I got it. Me.txtAmount = DSum("Amount", "qryAllPurpose", "AccountID = " & ID & strRange) I was trying to do a date range from the table "in" the query and not the actual query.

I have a form that has 2 listboxes. Only 1 visible at a time. Since both share many routines I need to know which one is visible. Hence a little public routing that checks it. Public Function VisibleList(frm As Form) Dim ListView As ListBox If frm.lstName.Visible = True...

Well you can't throw a field in there without telling it where it comes from.. Even I know that much. The table is not part of my list box. I went back and removed all my brackets and it's working a charm. Thank you all.

using the string "tblTransaction.Ckdate" has worked for a long time but I need it for a combination of tables so I pulled together a generic query. I guess I've been away from it for awhile and it is not cooperating with my logic.

Function GetDateRange(DateField As String, RangeType As Integer) As String 'Last Month Dim firstmonth As Date Dim lastmonth As Date firstmonth = DateSerial(Year(Date), Month(Date), 0) lastmonth = DateSerial(Year(firstmonth), Month(firstmonth) - 12, 0) 'Quarterly Dim begMo As Integer Dim...

a vba call. It goes in a where string for a listbox row source.

I have a function that requires a field name as a string variable. Function GetDateRange(DateField As String, RangeType As Integer) As String I created an allpurpose query that contains a field ckDate. If I create a variable string "qryAllPurpose.CkDate" it returns [qryAllPurpose.CkDate]...

Nevermind! figured it out. I was using the wrong function. :confused:

ok ok I'll fix the dates. Not the problem I'm having though. My question is about the GetSql_filter and the dates are not run through that.

@MajP I'm struggling with the GetSQL_Filter. Everything was working well until I added in the filter combos. I've tried to work through the function but everytime I edit it I create a mess. I get this with the below code: (fAmount and fMemo are filter combos) I want this: If Nz(Me.SAmount...

Public Sub SQLString() Dim tfFiltered As Boolean Dim tfOrderBy As Boolean Dim sql2 As String Dim sFilter As String Dim sOrderBy As String Dim i As Integer Dim v As Variant...

It's all black. no color at all

@arnelgp Why doesn't this text show the colors in the richtext text box? This code is in the inport/export form. Me.txtSQL = sql2 & IIf(tfFiltered, "<font color=""#2F5496""> WHERE </font>" & sFilter, "") & _ IIf(tfOrderBy, "<font color=""#2F5496""> ORDER BY </font>" &...

Thanks for all your help.

Ok ok okokok.. I'm rethinking the whole thing. I forgot that the popup is only for the custom selection (didn't read to the bottom!) and was trying to use it for complete date grab. I'm messing with something that worked well.