stored procedures - How do I group a few fields to one indicator to reference later in Access VBA? -

-

note: i'm pretty new vba. i'm trying create or feature our custom filter users can have option filter 1 or another. i'm thinking user needs select 3 field, comparison , criteria make 1 selection , when or button hit selection generated , on... until click on filter button. have code on filter work far.

enter image description here silly draft have far private sub cmdor_click()

    dim selector integer

here i'm not sure how set these 3 fields 1 indicator

    selector = field & comparison & criteria      if isnull(selector)         msgbox "all 3 fields, comparison , criteria must selected", vbokcancel, "filter"     else

here want increment selector users can select many or option can

        selector 1 end sub

i hope i'm being clear, if not please let me know! thanks!

here have in filter button far. note: there dictionaries, collections other modules used.

private sub cmdok_click()         dim filter ifilter, filterstring string, filtercomparison string, filtercriteria string, sanitizedfiltercriteria     string, primaryfilter string, primaryschema string,     primarytable string, primarykey string, targettable string,     targetfield string, target() string, filteritem     controldefinition_filter              me.dirty = false              'gather data primary filter active form              xformtofilter                 .resetfilter                 set .filterbuilder.formtofilter = formtofilter                  primaryfilter = iif(.basefilter = vbnullstring, _                                         .nullfilter, _                                         .basefilter)                 primarytable = .filtertable                 primarykey = .key             end              me.recordsetclone                 if .recordcount > 0                     .movefirst                     while not .eof                         'get schema, table/view, , control targetted filter                         target = split(.fields("field").value, ".")                         targettable = iif(left(target(0), 6) = "select", gettablename(target(0)), target(0))                         targetfield = target(1)                          filtercomparison = nz(.fields("comparison").value, vbnullstring)                         filtercriteria = nz(.fields("criteria").value, vbnullstring)                          set filteritem = filterdict.item(.fields("field").value)                         if filteritem.hascriteria 'get stored equivalent criterion if available                             sanitizedfiltercriteria = filteritem.getcriteriavalue(filtercriteria)                             if sanitizedfiltercriteria <> vbnullstring _                                 filtercriteria = sanitizedfiltercriteria                         end if                          filterstring = _                             createfilterstring(.fields("fieldtype"), targetfield, targettable, _                                                 filtercomparison, filtercriteria)                         filterstring = filterregexp(filterstring)                          if filter nothing                             set filter = xformtofilter.filterbuilder                             filter.setprimaryfilter primaryfilter, primarytable, primarykey                         end if                          filter.addsubfilter "filter" & .fields("id"), _                             filterstring, targettable, subformdict(targettable)                         .movenext                     loop                 end if             end              if not filter nothing                 dim finalfilter string                 filter.openfilteredrecordset                 xformtofilter.setfoundrecords                  docmd.close acform, "filter_create_popup", acsaveno             end if         'error handling here     end sub`

i have , feature search limited number of comboboxes (so not dynamically add them. see helps on way.

dim ctrl control dim search_string string search_string = "" each ctrl in me.controls     if ctrl.controltype = accombobox         if ctrl.value <> ""             if len(search_string) > 1                 search_string = search_string & " , "             end if             search_string = search_string & lcase(replace(ctrl.value, " ", "_"))             if ctrl.column(1) = "number"                 search_string = search_string & " '*" & cstr(me.controls("cval" & right(ctrl.name, 1)).value) & "*'"             elseif ctrl.column(1) = "date"                 search_string = search_string & "=#" & me.controls("cval" & right(ctrl.name, 1)).value & "#"             else                 search_string = search_string & " '*" & me.controls("cval" & right(ctrl.name, 1)).value & "*'"             end if         end if     end if next ctrl docmd.openform "frmsearchresults", acnormal, , search_string

it loops through controls , builds filter string openform event. mine contains additional code data types in case.


Comments

Post a Comment

Popular posts from this blog

c# - How Configure Devart dotConnect for SQLite Code First? -

-
can configure following sample code ? when run following code, error : no entity framework provider found ado.net provider invariant name 'devart.data.sqlite' setting in machine.config <system.data> <dbproviderfactories> <add name="dotconnect sqlite" invariant="devart.data.sqlite" description="devart dotconnect sqlite" type="devart.data.sqlite.sqliteproviderfactory, devart.data.sqlite, version=4.6.287.0, culture=neutral, publickeytoken=09af7300eec23701" /> </dbproviderfactories> </system.data> after add below block code in app.config <?xml version="1.0"?> <configuration>   <configsections> <!-- more information on entity framework configuration, visit http://go.microsoft.com/fwlink/?linkid=237468 --> <section name="entityframework" type="system.data.entity.internal.configfile.entityframeworksection, entit...
Read more

java - Copying object fields -

-
what best way of copying classes when need have 2 independent variables? have simple class: public class myclass { boolean = false; string b= "not empty"; } do need make method : assign(myclass data ) { a= data.a; b= data.b; } is there automatic method copy (duplicate) objects in java? do need make method : pretty close. instead of making method, should make constructor. such constructors called copy constructor , , create them this: myclass(myclass data) { = data.a; b = data.b; } and create copy of instance, use constructor this: myclass obj1 = new myclass(); myclass obj2 = new myclass(obj1); copy constructor can tedious : using copy constructor create deep-copy can tedious, when class has mutable fields. in case, assignment create copy of reference, , not object itself. have create copy of fields (if want deep copy). can go recursive. a better way create deep copy serialize , deserialize object. why not use clone()? ...
Read more

c++ - Clear the memory after returning a vector in a function -

-
i have function processes , stores lot of data in , returns results vector of class. amount of data stored in function tremendous , want clear storage memory of function after finished job. necessary (does function automatically clear memory) or should clear memory function? update: vector<customers> process(char* const *filename, vector<int> id) { vector<customers> list_of_customers; (perform actions) return list_of_customers; } variables defined locally within function automatically released @ end of function scope. destructors objects called, should free memory allocated objects (if objects coded correctly). example of such object std::vector . anything you've allocated new must have corresponding delete release storage. try avoid doing own allocation , use raii instead, i.e. containers or smart pointers.
Read more