Search results

you can either group by: Name Fund1 Fund2 or Fund1 Name

sub mySub() On error goto ErrBlock do stuff here exit sub ErrBlock: msgbox err.description,,err end sub

Never. Regular forms have everything needed and wont confuse folks.

docmd.transferspreadsheet... or docmd.transfertext....

why would you add blank records?

is the property not available in: forms!fMyForm.[objectProperty] or forms!fMyForm.controlname.[objectProperty]

then you want to run an update query: If Me.received.Value = True Then docmd.openquery "quUpdMyList End If sql like: update table set UnitsRecevied = UnitsOrdered where [Received]=true

Private Sub LBL1_AfterUpdate() LBL2.SetFocus TestBoth End Sub Private Sub LBL2_AfterUpdate() TestBoth End Sub sub TestBoth If LBL1 = LBL2 Then [Info] = "Labels identical!" Else [Info] = "Labels NOT identical!" End If end sub

why even use the message SCAN LABEL? they know to scan in box 1 , then scan in box 2. then you only need 1 message: correct or NOT correct.

paste the code into a module, usage: CopyFiles2Dir [sourceFolder], [TargetFolder] Public Sub CopyFiles2Dir(ByVal pvSrcDir, ByVal pvTargDir) Dim fs As Object Dim Folder As Object Dim oFile As Object Dim vName, vTargFile pvTargDir = FixDir(pvTargDir) 'make sure it has slash Set fs =...

put a button beside the combo box with Add New Code txt the event would be: public sub btnAdd_click() dim vRet vRet = inputbox("Enter new code to add","Add Code") if vRet = "" then exit sub sSql = "Insert into tTable (Code) values ('" & vRet & "'") docmd.runSql sSql cboBox.REquery 'to...

dont add the item to combo IN the combo remove the item from list make a popup INPUTBOX to ask for the new entryh, default it to the item run the apd query refresh combo

select field ,getMsgOnLen([field]) from table. public function getMsgOnLen(pvFld) select case true case IsNull(pvFld) getMsgOnLen= "Not Enough" case Len(pvFld)< 6 getMsgOnLen= "Not Enough" case Len(pvFld)> 6 getMsgOnLen= "Too many digits case else...

=format(date(),"ddd") or =format(date(),"w") = vbWednesday

My advice it so stop using tree view. It must be programmed. instead, use the SWITCHBOARD, you only need add values. or a continuous form with a text box/combo box for users to filter results. sub txtBoxFilter_afterupdate() if isnull(txtBoxFilter) then me.filterOn = false else...

tabs cant have spaces in names.

listbox2 can be filtered using listBox1 via: lstBox2 bound query uses ListBox1 as a param, is like: select Cities from tCities where [State]=forms!fMyForm!ListBox1 then when user clicks on an item in ListBox1, just refresh box2: sub lstBox1_Afterupdate() lstBox2.requery end sub

'assuming [ChoosStatus] is numeric: docmd.openform "NavigationSubForm9", , , "[choosestatus]=" & cboBox

All you need is a txtbox

pls give up treeview. it takes a lot of programming. instead use either : the switchboard (just enter values) or a listbox with a combo box in the header to filter records. (add query values to a table)