Search results

Hi, Rich - no snow, no rain, no tidal waves - no nothin'! (no lawn, either) - for 'bout two weeks, now... We're in the 3rd year of a bad drought. Hope it breaks soon!!!!! I think I know what you want to do. Why not stick a Label control on the form that's big enough to hold any combination of...

What do you need your text in the text boxes to do?

Are you sure that path is right? To get to the desktop on W2000 for me, I use (or thought I used): "C:\WINDOWS\Desktop\Access_Import.xls" HTH, Doug.

Ok, now I'm a bit confused (very typical...) russi, did you need the data in the table fields re-ordered (if so, ignore my post above because that code doesn't come close to doing that) or did you need show the field objects in a table re-ordered by the field name (which is what the code in...

Heh! I saw this question and knew I be spending the next few hours figuring out how to do what russi wants. What fun! Learned a lot, too! Thanks for the question! Sub sbTblFldSrt() 'create a query (NewAlphaQry) on a table that shows the table fields in 'alphabetical order according to the field...

Jack C. was kind enough to permit the attachment below - hope you get as much out of it as I did! Doug.

Now try changing strCriteria = "[Model #] = " & strID rstData.FindFirst strCriteria to this: strCriteria = "[Model #] = ' " & strID & " ' " rstData.FindFirst strCriteria There's spaces between the single and double quotes above to show which type quote goes where - don't include the...

Doesn't look like you can call the Str function on a string... how'bout: If Not IsNull(Me.fakemodel) Then strID = me.fakemodel If IsNumeric(strID) Then strID = Trim(Str(strID)) strRst = "Catalog" Set rstData = dbData.OpenRecordset(strRst, dbOpenDynaset) strCriteria = "[Model #] = " & strID...

Now that is slick! (A normalized array ?) Thanks, Doug.

How about: ReDim ArrayY(0 To countRecords, 0 To 1) For k = 0 To countRecords j = 0 ArrayY(j, k) = RS!field1 j = 1 ArrayY(j, k) = RS!field2 RS.MoveNext Next HTH Doug.

Are you trying to create the index sheet that goes inside the panels (usally two columns)? What you need to do is put the text boxes for your table fields in the Details section of the report - one text box for the Bkr Nums & one text box for the branch circuit description - side by side. Then...

I also tried the SELECT AlarmCats.AlarmCatID, AlarmCats.AlarmCat FROM AlarmCats WHERE (((AlarmCats.AlarmCat)=IIf(True=True,(AlarmCats.AlarmCat) Like "*",(AlarmCats.AlarmCat) Like "Low"))); and could not get the query to return any records no matter what I put in the table field. I think the...

No. The reason is because a function (or an Iif, or what have you) is returning a string or a number, not an SQL operator. Say you have: SELECT AlarmCats.AlarmCatID, AlarmCats.AlarmCat FROM AlarmCats WHERE (((AlarmCats.AlarmCat)=fnc1tst())); and fnct1tst is coded: Function fnc1tst() As...

Here's what I finally came up with: Function ChkFlds(FormName As Form) As String 'Function ChkFlds checks each textbox and combobox control on the passed form object for 'null or zero values (zero values where applicable) and returns the control name with the 'lowest tab index of any control...

An easier way to check txtbxs and cmbobxs on a form for null or zero without going 5(?) deep? Function ChkFlds(FormName As Form) As String 'Function ChkFlds checks each textbox and combobox control on the passed form object for 'null or zero values (zero values where applicable) and returns...

For your Consideration:

Don't you have to enclose the date literals (that is the form txt string, right?) in "#" characters? Try: mySQL = mySQL & " BETWEEN #" & Forms!frmReportsSwitchboard!txtBeginDate & "# AND #" & Forms!frmReportsSwitchboard!txtEndDate & "#" You may have to fiddle wid'dem quotes... HTH Doug.

You need to give the month function something to work with: Dim strng As String Dim dmmy As String strng = "January" dmmy = ",1 ,2000" strng = LTrim(Str(Month(strng & dmmy))) strng is now "1"... Doug. Edited: added LTrim...

Sure you can call functions in queries! Try something like this: SELECT MyTblNme.RecID, MyTblNme.Frame1Slctn, ((CLng([MyTblNme]![Frame1Slctn]/100))/10) AS Frame1CalcV, MyTblNme.Frame2Slctn, ((CLng([Frame2Slctn]/100))/10) AS Frame2CalcV FROM MyTblNme; The CLng is a function call (it coerces the...

I would personally keep the value of the users' selection in the table and not what the value equates to. If there is more than 1 control in a frame you need to equate to a value, it's probably inevitable that you'll eventually want to know how many times one control was selected over the other...