Search results

  1. sambo

    Loop through all records in a continuous form and do stuff

    Manipulating the image source according to yes/no Now that I am looping through all records. I would like to change an image source depending on a yes/no box. Something like this: Do While Not rstSubForm.EOF If Forms!frmCategory!frmSubCategorySub!PassFail = -1 Then...
  2. sambo

    Loop through all records in a continuous form and do stuff

    I would like to loop through all of the records on a subform as soon as a button on the MainForm is clicked. Something like this: Private Sub PassBut_Click() 'MsgBox Forms!frmCategory!frmSubCategorySub.Form.CurrentRecord & vbCrLf & _ Forms!frmCategory!frmSubCategorySub!txtCategory &...
  3. sambo

    Touch Screen

    No, this won't be used in the field. Actually, it will be used for Manufacturing and Quality Assurance jobs ie Hardware inspection checklists, processing incoming units, etc... I have done a little study and found that the touch screen technology is not in the Programming Language, rather, it...
  4. sambo

    Touch Screen

    That's a great question. To which I do not yet have an answer. We are looking for functionality that would allow us to click buttons (much like in an Access Form), except instead of using the mouse, we would like the inspection controller to use a touchscreen. The buttons would basically be...
  5. sambo

    Touch Screen

    Does anyone know if Access Forms can be integrated using a touch screen? If someone could point me in the right direction for touch screen commands and "how to(s)" that would be greatly appreciated.
  6. sambo

    Sort By LAST With a 3 Table Query

    Dude!! That worked awesome. I ended up using that method all over the place in my Database. I totally sped things up and allowed me to do what I wanted to do. Could you please comment on the theory behing the Make Table idea that you described earlier. I understand how it works, but why would...
  7. sambo

    Sort By LAST With a 3 Table Query

    That worked well. But performance slowed way, (and I mean WAAAAY) Down. It takes about 7 or 8 seconds to run that query, and that is just too long. Why is it taking so long, and how can I cut down on the time. This is basically a current inventory query to find out "where stuff is now". It...
  8. sambo

    Dlookup A Date/Time (Now() Format) in a Query

    I want to find the location where posts were made in "tblHistory". [DateMod] is the time stamp that the post recieved (using the Now() function at post time). I am getting a syntax error in regards to my Dlookup Date when I run my query. [DateMod] comes from a previous field in the query, is...
  9. sambo

    Sort By LAST With a 3 Table Query

    I have 3 tables in my relationship... My relationships work like this: 1 SerialNum ("tblUnits") --> Many RmaNum ("tblRma") 1 RmaNum ("tblRma") --> Many Locations ("tblhistory") This lets me track multiple points in history for each SerialNum (Everytime an entry is made regarding a SerialNum...
  10. sambo

    Help with requery on button click

    I have the following code working behind my button click. It works great when there is only one user. The problem arises when the DB goes up on the network and multiple users begin to use it. The problem is that the search function does not always seem to be querying form the most up to date...
  11. sambo

    Open a word Doc and GoTo a specified Bookmark

    Thanks, That Word 9.0 Reference proved to be crucial for using the GoTo. Here is a way that I figured out to do it without the Goto, but this only sets the cursor to the bookmark, it doesn't actually Queue up the desired bookmark. Yours is better... Public Function Help(BMark As String) Dim...
  12. sambo

    Open a word Doc and GoTo a specified Bookmark

    I would like to Open a word Doc and Go To a specified Bookmark in that document. The document will be recieved in the OnClick Event. I want to do something like this... On Click =GoToDoc("help.doc", "#CheckIn") 'The Call Function GoToDoc(whatDoc As String, whatBookMark As String) 'the...
  13. sambo

    Help With Combo Boxes

    I agree that your relationships need a second glance, but here is how you might solve your original combo box problem. After you update the cboManager, have the cboDepartment lookup its value from the table. Like This Sub AfterUpdate_cboManagerLastName Dim managerID As Integer 'Get the ID...
  14. sambo

    Button to incrementaly change a record value

    If the field is bound to the table, then the table will change on the fly. If the field is unbound, then you will have to open the recordset in code, find the desired record (using the "seek" method), and change the field value manually. Like this: Dim db As DAO.Database, rst As...
  15. sambo

    keep getting error

    Try using the After Update event instead of the Exit Event. This way it only changes the text boxes when the Combo Box has actually been altered. Also, Here is a good replacement for IsNull, It works for more than just strings, it also checks Type Number, Boolean, Currency, etc... Sample Call...
  16. sambo

    Button to incrementaly change a record value

    Assuming that the number is of Type Number in the Table Put this in the on click of the button Sub NumIncBut_Click Dim tempNum As Integer tempNum = Me.FieldToChange tempNum = tempNum + 1 'or tempNum = tempNum - 1 (depending) Me.FieldToChange = tempNum End Sub
  17. sambo

    Seperate RecordSource for Report Footer

    In the infamous words of Homer J. Simpson... DOH!!! Why didn't I think of that? Thanks
  18. sambo

    Seperate RecordSource for Report Footer

    I don't suppose I can use two seperate Recordsources for the same report. I would like the Report Footer to hold just the Ship To Address of any given serial number that may be reported on. This would require using a seperate recordsource for the Footer because the Ship To address is not exactly...
  19. sambo

    Loop through all Open forms and requery

    Got it to work, here is the code for future reference... Dim frm As Form For Each frm In Application.Forms If IsLoaded(frm.Name) = True Then ' requery and then refresh the form frm.Requery frm.Refresh End If Next frm
  20. sambo

    Loop through all Open forms and requery

    I didn't find anything similar under that name. Still need help with the problem.
Back
Top Bottom