vba - Access Public Function for Maintain Combo Lists -


i have on 40 combo controls in application. working on developing public function, put in not in list event of every combo. goal have 1 continuous pop form, open, if user says want add new value combo. open form command pass open args

  1. record source
  2. the control source 1 text box on continuous form (generically type)
  3. the label control source.

i'm having trouble getting pass open args. debug.print parts of args, can split them, when passed (inconsistent results getting open args pass correctly, try debug), , cannot seem set record source pop form correctly. i've tried doing 1 @ time, , still can't seem it.

this public function: option explicit

public function typenotinlist(ctl control, arg1 string, arg2 variant, arg3 string)     on error goto err_typenotinlist     dim msg, style, title     'arg1 row source of combo, passed recordsource frmaddtypeval form     'arg2 control source of combo, passed control source text box in frmaddtypeval form     'arg3 label of combo, used messages, , label of text box in frmaddtypeval form      msg = "the " & arg3 & " entered not in " & arg3 & " list, add now?"     style = vbyesno     title = "type or listing must maintained"     response = msgbox(msg, style, title)      if response = vbyes          ctl.undo          docmd.openform "frmaddtypeval", acnormal, , , , acdialog, arg1 & "|" & arg2 & "|" & arg3          ctl.requery      end if  exit_typenotinlist:         exit function  err_typenotinlist:         msgbox err.description         resume exit_typenotinlist end function

this how calling it, in 1 combo's not in list event: option explicit private sub fkaudittype_notinlist(newdata string, response integer) dim a1 string dim a2 string dim a3 string

    a1 = me.fktypexyz.rowsource     a2 = "txtxyztype"     a3 = me.lbltypexyz.caption      typenotinlist me.fktypexyz, a1, a2, a3      response = acdataerrcontinue  end sub

that should calling public function, , passing 4 parameters.

this form load of generic continuous pop-up form, called frmaddtypeval: option explicit

private sub form_load()     dim varargs() string      varargs = split(me.openargs, "|")      me.form.recordsource = varargs(0)     me.txttype.controlsource = varargs(1)     me.lbltype.caption = varargs(2)  end sub

when run is, debug.print (s) give me following:

ctl = fkfktypexyz arg1 = select tblxyztype.id, tblxyztype.txtxyztype tblxyztype order tblxyztype.txtxyztype;  arg2 = fkxyztype arg3 = xyz type openargs =

i each value, open args null. heck, beck?

can guide clueless coder? lol

thanks!

i edited update code, changes made. it's working! @ least first part of process. openargs passed , pop-up form works correctly. when click close on form, i'm on form notinlist combo. resumes it's process , message: text entered isn't item in list.

it know that's default notinlist message. thing is, public function supposed handle this. has, in if response = vbyes then

ctl.undo 'undo trying add value not in list yet

and after open form (which involve close of form, think)

ctl.requery 'requery combo, added value(s) can seen

anyone know how can adjust prevent message, not disable warnings?

thanks!

got it! in not in list, after call public function, have add:

response = acdataerrcontinue

this let's default error message take seat lol.

thanks help! going make setting every darn combo easier!!!!


Comments

Post a Comment

Popular posts from this blog

Is there a better way to structure post methods in Class Based Views -

i'm using class based views in django , never specify url in ajax calls , omit action parameter in form because know these requests go through post method of class based view. notice view - profile page make many requests depending on user updating on page - post method become convoluted , if/else mess example: def post(self, request, *args, **kwargs): # handle user changing available date if request.post.get('availabledate') != none: self.updateavailabledate(request) return jsonresponse({'result':'success'}) if request.post.get('newprojectname') != none: creative_user = creativeuserprofile.objects.get(id = request.user.id) project = project.create_project(creative_user, request.post['newprojectname']) project.save() return jsonresponse({'projectid': project.id }) if request.post.get('projectimage') != none , request.files['file']: proj
Read more

performance - Why is XCHG reg, reg a 3 micro-op instruction on modern Intel architectures? -

i'm doing micro-optimization on performance critical part of code , came across sequence of instructions (in at&t syntax): add %rax, %rbx mov %rdx, %rax mov %rbx, %rdx i thought had use case xchg allow me shave instruction , write: add %rbx, %rax xchg %rax, %rdx however, dimay found agner fog's instruction tables , xchg 3 micro-op instruction 2 cycle latency on sandy bridge, ivy bridge, broadwell, haswell , skylake. 3 whole micro-ops , 2 cycles of latency! 3 micro-ops throws off 4-1-1-1 cadence , 2 cycle latency makes worse original in best case since last 2 instructions in original might execute in parallel. now... cpu might breaking instruction micro-ops equivalent to: mov %rax, %tmp mov %rdx, %rax mov %tmp, %rdx where tmp anonymous internal register , suppose last 2 micro-ops run in parallel latency 2 cycles. given register renaming occurs on these micro-architectures, though, doesn't make sense me done way. why wouldn't register renamer
Read more

jquery - Responsive Navbar with Sub Navbar -

good day, forgive me nav vocabulary not best. if question confusing apologize. i'm working on navigation bar needs centered on page @ 768px , above. items in nav open (or perhaps toggle) subnav lives directly below. these nav should appear centered on page. i have been able work through responsive portion of nav bar, having main items align vertically , sub nav menu of each item roll out below, , gave them indent separation. working well. however, issue not responsive side, behavior @ width greater 768px. happens toggling menu's sub navigation pushes other main items down page below sub nav. here's code: $(document).ready(function () { //stick in fixed 100% height behind navbar don't wrap $('#slide-nav.navbar-inverse').after($('<div class="inverse" id="navbar-height-col"></div>')); $('#slide-nav.navbar-default').after($('<div id="navbar-height-col"></d
Read more