Search results

Use base 10 for your option value values. IOW, give the option value for your controls in the frame values like 1000, 1500, 2000, etc. and then divide the frames' value by 1000 to get 1, 1.5, 2, etc... If you need two controls in the frame that both equate to, say 1.3, give one control an...

Have you tried this? . . . MyPosNext = InStr(MyPos + 1, SearchString, SearchChar) ' position of second slash mark FirstWord = Mid(SearchString, MyPos + 1, (MyPosNext - MyPos) - 1) ' depth string With rset .Edit 'write to buffer for editing the current record !MyTableFieldtoUpdate = FirstWord...

I've had problems when using boolean logic in if statements before. I can't remember the specifics but I DO remember that to fix it, I coded like this: If rs.EOF = False Then Me.Bookmark = rs.Bookmark HTH, Doug.

I think I see what you're after. What I think you need to do is pass to the ButtonCheck function all the controls that are to be manipulated in the other functions called within ButtonCheck. Then the code needs to pass those controls onto the other functions so the other functions can use...

I just tried this: Private Sub Label36_Click() fncTesting True, Me!Text49 End Sub And the Function module code reads: Function fncTesting(strin As String, cntr As Control) Debug.Print strin Debug.Print cntr.Name End Function And debug prints: True Text49 So your problem is not with what...

I think I can help. You can't call a function that passes two arguments that the function isn't expecting. IOW, if you call a function and try to pass a control argument and a string argument, the called function has to be coded before hand to receive those specific type arguments. So when...

Real simple code I just tried: Label36 is on my subform of my main form. Private Sub Label36_Click() fncTesting Me!Text49 End Sub and in a module called Functions: Function fncTesting(cntr As Control) Debug.Print cntr.Name End Function Debug prints: Text49 Maybe lose the call...

did you try getting rid of the quotes around "Me!Dept_ID"? Call ButtonCheck("Search", Me!Dept_ID) Doug.

The error message I'm getting says something like, "The path "C:/etc/etc" is not valid - check the path..." . And then the help files led me to the "locked" explanation... What I'll have to do from work (and can't do from this pc) is check for any *.ldb processes and delete them? Thanks for...

I see some clues, RV - Thank You! Doug.

Cannot open my "at work" db. I'd made a copy of a db I'd written at home (NT- Acc97) and placed it on the local C drive of my boss's networked pc (Win2000, Acc2000 - no problems at all converting) so's he could be satisfied I'm tracking the data. One problem is he was recently replaced with a...

Try this as your criteria statement in your query: Between DateSerial(Year(Date()),Month(Date()),1) And DateSerial(Year(Date()),Month(Date())+1,0) Check your 'puter's sys date! Doug

How about if you call a function where you pass to the function the name of the field as an argument for the function? Then any error in the function can be laid on the passed/calculated field that called the function... Doug.

Try this: Function UpdateSFX(Myform As Form, SFX As Integer) Dim MyControl As Control, MySubControl As Control For Each MyControl In MyForm Select Case MyControl.ControlType Case acTextBox MyControl.SpecialEffect = SFX Case acSubform For Each MySubControl In MyControl.Form If...

Perhaps: Private Sub cmbMyComboBox_GotFocus() fncMyFunctionName Me.ActiveControl to call the function and: Function MyFunctionName(ctl) Debug.Print ctl.Name Debug.Print ctl.TabIndex End Function for the function code. If you want the function to return a value, then you'll need: Private Sub...

Chkflds returns to the calling proc the name of any textbox or combobox on a loaded form that is null or zero, starting with the control that has the lowest tab index value... Function ChkFlds(FormName As Form) As String Dim Msg, Title, Style Dim ctl as Control Dim LwstTbIndx As Single...

I've developed a form with an unbound txtbx and a subform that behaves exactly like the Access 97 Help Index pop-up form. The unbound txtbx is used as the look-up field for the records displayed in the subfrm where I display 4 records at a time. As in the help index pop-up form, the keystrokes...

Shouldn't... CalcSecID = Left(CalcSecID,Instr(1,CalcSecID,"-")) & (val(Mid(CalcSecID,Instr(1,CalcSecID,"-")+1) + 1) be CalcSecID = Left(CalcSecID,Instr(1,CalcSecID,"-")) & right(str(val(Mid(CalcSecID,Instr(1,CalcSecID,"-")+1) + 1),1) The type mismatch comes from concatenating a value to a...

The following code is at the end of a On_Change Event procedure for a look-up text box on a form. A sub form (continious forms) contains the records to be searched (not really - I open a snapshot recordset in code that matches the records in the subform). With .rstLstNme ... lngCrntRec =...

Hi Richard, The TransferDatabase action does not allow a user to append records to an existing table; it only copies db objects to new db objects. What you have to do is design an append query in the db you want to import the data to using the tables and such from the db where the source data...