sql - combobox.column property returns invalid use of null in vba -


i database//access noob, bear me. have database set keep track of consultants , vendors tech consulting company. consultants own vendors, , have third-party vendors handle contracting. in case consultant own vendor, contact information same both. contact info stored in separate table, primary key contactid , foreign key fields consultantid (primary key in consultantt) , vendorid (primary key in vendort).

in case relevant contact info has been entered on 1 of forms, want able select existing contact info record , tell database add other foreign key id field existing record based on record on main form. so, example, if have entered contact info consultant via consultant form, when open vendor form add consultant a's vendor want option select "consultant a" combo box , have info populate vendorsf's contact info form while adding vendorid existing contact info record consultant a.

i think i've worked out, stuck on 1 last thing. right have popup form (chooseconsultantinfof) selecting existing contactinfo record. on form have search combobox (selectconsultantcombo) select existing record, , command button (saveconsultantbtn) i've tried code update contactinfot , add vendorid current record on vendorsf existing record in contactinfot. here of code popup form:

option compare database option explicit  private sub saveconsultantbtn_click() dim stupid long stupid = selectconsultantcombo.column(0) docmd.runsql "update contactinfot set vendorid = (forms!vendorsf!vendorid) contactinfoid = " & stupid & ";" end sub  private sub selectconsultantcombo_afterupdate() dim rst dao.recordset set rst = me.recordsetclone rst.findfirst "contactinfoid = " & me!selectconsultantcombo me.bookmark = rst.bookmark leave: me!selectconsultantcombo = null if not rst nothing set rst = nothing exit sub  end sub

when try put action, error 94: invalid use of null , pulls up

stupid = selectconsultantcombo.column(0)

i know code block works apart that--i tried click event once numeric value instead of variable:

 private sub saveconsultantbtn_click()     docmd.runsql "update contactinfot set vendorid = (forms!vendorsf!vendorid) contactinfoid = 1 ;"     end sub

without trouble, issue must in calling combobox's column.

i tried defining variable nz allow null:

stupid = nz(me.selectconsultantcombo.column(0), 0)

and gets code working also, still doesn't save vendorid record in contactinfot. none of columns in combobox contain null values (none can find, anyway). dunno if useful, row source of combobox is:

select contactinfot.contactinfoid, consultantt.consultantid, consultantt.firstname, consultantt.lastname consultantt inner join contactinfot on consultantt.consultantid = contactinfot.consultantid order consultantt.[lastname], consultantt.[firstname];

does know why access doesn't recognize combobox.column property? or there way write in vba avoid error?

first try stupid = me.selectconsultantcombo.column(0) (you missing me. part).

but should make sure bound column on combo box set correctly , use stupid = me.selectconsultantcombo


-

Popular posts from this blog

php - How should I create my API for mobile applications (Needs Authentication) -

background so i've been researching quite bit past week api's , have been reading concepts , programming one. currently have website programmed in php using popular framework called laravel. website has user database , users able log dashboard on website, works want website side. now next project of business i'm focusing on creating mobile applications (ios & andriod).what need these mobile applications being able login through application ui (not being redirected site callback url) able view , manage dashboard. the method of authentication , authorization want use application go like client asks user login through ui user enters credentials client sends request login api the api checks if credentials correct api creates token stored in token database linked user id api returns 200 ok json response or this { "token" : "ols25usjiay81hdy81", "expiry" : 3/06/2016 14:00} client remembers token , expiry whenever user/c...
Read more

python 3.x - PyQt5 - Signal : pyqtSignal no method connect -

following example in doc found on sourceforge faced error. from pyqt5.qtcore import pyqtsignal, pyqtslot def setsignal(): signal = pyqtsignal() signal.connect(self.myaction) @qtcore.pyqtslot() def myaction(): print("signal triggered") results in attributeerror: 'pyqt5.qtcore.pyqtsignal' object has no attribute 'connect' as mentioned in docs linked, signal needs defined on class level: class foo(qobject): signal = pyqtsignal() def connectsignal(): self.signal.connect(self.myaction) @qtcore.pyqtslot() def myaction(): print("signal triggered")
Read more

5 Reasons to Blog Anonymously (and 5 Reasons Not To)

Image
This guest post is by Phil (not his real name) of somehighschoolblog . It used to be impossible to run a business anonymously. Sure, some authors could pull it off, but if you worked at an office, what were you supposed to do? Go to work with a bag over your head? But today anyone can accomplish this, because anyone can author a blog (and you thought I was going to tell you to work with a mask on, or something). Copyright Ovidiu Iordachi - Fotolia.com Depending on your motives, you may or may not have considered blogging anonymously. You probably didn’t contemplate blogging anonymously if: • your only motivation is to become “famous” • your blog connects to another part of your life • you are blogging to build more connections with your friends or boss. You should consider blogging anonymously if: • you’re planning on touching on a sensitive or taboo subject • you don’t want to be identified with your blog • you are worried about negative real-world consequences that could arise from y...
Read more