Search results

  1. S

    multiple records beside each other

    Hi, I'm stuck to find a solution on my calender form: I have 4 tables: tblContacts tblEvents tblJob tblJobDetailsEvents I've made a form with al events from tbl event, and now i want to add a listbox for a couple of jobs where you can select a contact. The value of the event, job and...
  2. S

    scroll to item in listbox VBA

    I didn't find a solution to solve the error, so I adjusted my code a bit and did a whole new approach were I only load the events that find place in the future in the listbox. Not exactly what I wanted, but it works fine too for me. Anyway, thanks to you all for the help!!! Kind regards Steven
  3. S

    scroll to item in listbox VBA

    I can't set a value to the listbox. I tried with giving it a hard value in my code: lstBeschibaar = 2, but then it still returns the error 2147352567(80020009)
  4. S

    scroll to item in listbox VBA

    Ok, that helps already, but now i get a runtime error 2147352567(80020009) Is it because my first colum (ID) has the type autonumber?
  5. S

    scroll to item in listbox VBA

    Here the database attached. You can find the code in the form frmContacten at the bottom of the Private Sub Form_Current() Thanks Steven
  6. S

    scroll to item in listbox VBA

    The first event is the one with the oldest date but not the oldest or newest in ID so, the results of the query where the listbox is based on looks a bit like this: id name date 5 event1 22/01/16 3 event 2 25/01/16 7...
  7. S

    scroll to item in listbox VBA

    Thanks for the help, but i still have an error: 'Invalid use of Null' on the line Me.cboBeschikbaar = Me.cboBeschikbaar.ItemData(b) The listbox cboBeschikbaar has following fields in it: ID, name and date, and is sorted ascending on the date field. (The name cboBeschikbaar instead of...
  8. S

    scroll to item in listbox VBA

    Thanks for the help, but i got an error on the line: Me.List = Me.list.ItemData(i) Here is my code, maybe you can see what I did wrong. Dim b As Long For b = 0 To Me.cboBeschikbaar.ListCount - 1 If Me.cboBeschikbaar.Column(0) = RijID Then Exit For Else End If Next b Me.cboBeschikbaar =...
  9. S

    scroll to item in listbox VBA

    Hi, I have a multiselect listbox in a form base on a query that contains an ID field, a name of an event and a date. When i open my form i would like the listbox to scroll to the first upcoming event. It doesn't have to select it, just scroll to it so that it's on top in the list. I already...
  10. S

    code works in subform, but partially in headform

    JHB, A simple but efficient solutions. THANKS! Steven
  11. S

    code works in subform, but partially in headform

    it are fields in the table witch i use to build my form. attached a sample database
  12. S

    code works in subform, but partially in headform

    Hi, I have a kalender-form where i have subforms to represent the days. In the subform data is loaded and then the back color of a textfield in that sub is set depending on different values. When i open the subform, everything works fine, but when i open the kalender form, only a part of the...
  13. S

    Hi

    Hello, I'm Steven from belgium and working on a access database to at my work to manage events and concerts at the venue I work for. Thanks for having me.
Top Bottom