vba - MS Access runtime error 2115 -

-

in ms access, have 2 unbound combo-boxes: statebox , dvpcbox. statebox list of u.s. states , dvpcbox contains employee names query based on value of statebox.

i'm trying set value of dvpcbox equal first item in list. since list of employees based on value of statebox, need value of dvpcbox update every time statebox changes. tried following:

private sub statebox_afterupdate()     me.dvpcbox.requery     if (me.dvpcbox.listcount = 1)         me.dvpcbox.setfocus         me.dvpcbox.listindex = 0 //<-error here     end if end sub

but got runtime error 2115 - macro or function set beforeupdate or validationrule property field preventing microsoft office access saving data in field.

the strangest thing me i'm not using beforeupdate event or validationrule (as far i'm aware.)

itemdata(0) first combo box value. set combo equal that.

private sub statebox_afterupdate()     me.dvpcbox.requery     if (me.dvpcbox.listcount >= 1)         me.dvpcbox.setfocus         'me.dvpcbox.listindex = 0 //<-error here         me.dvpcbox = me.dvpcbox.itemdata(0)     end if end sub

i changed listcount >= 1 because assumed wanted same thing when combo includes 2 or more rows.


Comments

Post a Comment

Popular posts from this blog

c++ - Creating new partition disk winapi -

-
i'am trying create new partition , mount volume new, thought createfile let me this, code : lpctstr lpfilename=l"\\\\.\\device\\harddisk0\\partition3"; handle handl=createfile( lpfilename, generic_read | generic_write, file_share_read | file_share_write, null, create_always, file_attribute_normal, null ); if (handl==invalid_handle_value) { qdebug()<<"handl invalid"<<" error"<<getlasterror();} bool success = definedosdevice(ddd_raw_target_path,l"i:",l"\\device\\harddisk0\\partition3"); if(!success) qdebug()<<" definedosdevice failed "<<getlasterror(); bflag = getvolumenameforvolumemountpoint( l"i:\\", // input volume mount point or directory /** u in dir
Read more

Android Prevent Bluetooth Pairing Dialog -

-
i'm developing internal application uses bluetooth printing. want bluetooth pairing occur without user input. have managed working trapping android.bluetooth.device.action.pairing_request broadcast. in broadcast receiver call setpin method, , pairing works ok, bluetoothpairingdialog displayed second or two, disappears - see link below. https://github.com/android/platform_packages_apps_settings/blob/master/src/com/android/settings/bluetooth/bluetoothpairingdialog.java since broadcast non-ordered, can't call abortbroadcast() , , wondering if there other way prevent pairing dialog appearing. can hook window manager in way? i haven't been able come way without modifying sdk. if you're oem, it's easy (i'm on 4.3): in packages/apps/settings/androidmanifest.xml, comment intent filter pairing dialog: <activity android:name=".bluetooth.bluetoothpairingdialog" android:label="@string/bluetooth_pairing_request"
Read more

VBA function to include CDATA -

-
i have following function include cdata: function cdatasection() dim objdom domdocument dim objkmlrootelement ikmldomelement dim objkmlelement ikmldomelement dim cdata ikmldomcdatasection set objdom = new domdocument set objkmlrootelement = objdom.createelement("balloonstyle") objdom.appendchild objkmlrootelement set objkmlelement = objdom.createelement("text") objkmlrootelement.appendchild objkmlelement set cdata = objdom.createcdatasection("text") cdata.data = "<![cdata[<b>latitude = $[latitude]</b>?]]>;" end function when run above, getting error "user defined data type not found" function. yes ripster says find library reference. vba window tools>references for list of relevant references see... http://msdn.microsoft.com/en-us/library/windows/desktop/ms763701%28v=vs.85%29.aspx however, if have hard time tracking down reference, replace dim sta
Read more