Search results

  1. A

    my computer cant compare dates

    Hi, Im confused about the results a report is showing. I open the report with a filter; Dim strWhereCondition As String Dim dtDatum As Date dtDatum = Date - gbtBetaalTermijn strWhereCondition = "Betaald = 0 AND DatumBetAangemaakt < #" & dtDatum & "#" DoCmd.OpenReport...
  2. A

    whats wrong with my adding

    Hi I have a form where the user can Add new students; when finished the user clicks on SAVE, the programm asks the question "add a new student" From here 2 options; users clicks NO; the record got saved (this works fine) but when the user clicks YES; (the form textboxes clear) and you add a...
  3. A

    counting all textboxes

    Hi im trying to figure out whats best to make my Cancel button aktive. CAncel can only be used if something is really changed (otherwise access gives me an error) So i thought of following: count all fields an if it the number changes... aktivate the cancel button so far I have Dim...
  4. A

    is it possible to 'see' which field has the focus?

    Hi, I have a form with lots of textboxes. I dont want to write the same code for all of the textboxes, when the user enters the field. Me.txtboxABC.SelStart = 0 me.txtboxABC.backcolor=10092543 when the user leaves the field me.txtboxABC.backcolor=-2147483643 So, I think i just...
  5. A

    counting 1 - 2 - 4 - 8 - 16 - 32

    Hi, I want to build my counter to count like above number sequence? doubling the previous value how to do this in vba? any hint or tips thx in advance Al
  6. A

    type mismatch passing values to function

    Hi, I have trouble passing my calculated values to my function. Every time I get the message Type Mismatch: this is the code I have: Dim X As Byte Dim InschrijfId As String Dim Cnt4 As Byte 'berekening van STARTnummer lezen van txtPunt velden (start: 1(1-8), 9(9-16), 17(17-24), 25(25-33) etc...
  7. A

    counter wont break if true

    I think this is an easy one for almost everyone.. except me! I have a form wich contains 2 sets of textboxes: txtStuden1 - txtStudent12 txtPoint1 - txtPoint12 I fill the txtStudentX boxes from a listbox, No problem so far. now I try to cach the first empty txtStudent textbox with a counter...
  8. A

    Explanation of Code

    works but dunno how... can someone explain it to me I found following code on the forum It works great and I can change it for my needs BUT I cant figure out how and why its working Can someone lecture me? Dim Criteria As String Dim ctl As Control Dim Itm As Variant Dim stDocName As String '...
  9. A

    Multiple adds at once......Suggestions?

    :confused: Hi Im trying to make an app for dancinglessons and I cant figure out a nice way to give the user: a form that shows all the users vary between 1 and 20 (based on a query) and can add 8 different scores to all names. I have thought of a continueos form, but (as far as I know) this is...
  10. A

    create only Primary key with code??

    I've copied a table from the BE to the FE. During the copy it losses the primary key (the help confirms this) does somebody knows how to create just a new primary key instead of creating a whole new table with vba? is this possible? thx Al
  11. A

    chkbox and continueos form

    :confused: is there a way to check what record is selected (ie chkbox) on a cont.form I have many detailrecords here and I want to give the user the possiblity to check certain records for printing. (thr cont. form is based on a query) I tried to update an extra colomn in this table (with vba...
  12. A

    pop up works.. subform not

    I m confused I have a form with a subform. I try to show all detail records of the selected record in the listbox (bound). It does not work! When I try to the same with a pop-up (and a button to activate it) it works OK Cant this be done with a sub form? what am i doing wrong? Al
  13. A

    ever saw this message??

    Hi Im using a chkbox on a form (the form is a popup based on a query) . to update the table I use following code. Private Sub chkSelect_Click() Dim strAfdanceId As Byte strAfdansid = Me.txtdanceId If Me.chkSelect.Value = -1 Then DoCmd.RunSQL "UPDATE TAfdansen SET...
  14. A

    unbound chkboxes giving different values

    Hi, example: some of them giving back a value of "0" while another FALSE. There are all unbound chkboxes on a form. I checked a 1000 times if the default value of these chkboxes were different (i tried 0 aswel as False) No difference Im confused. When I thought I got it.... I hope someone...
  15. A

    cant get global variables set through ADO query..

    Hi, What I'm trying to do; My app is build in modules, for security I want to set variables on startup for the user. I try to read a table and check for active modules (like adresbook, email etc). All modules can be set active or inactive. Dim cnn As ADODB.Connection Set cnn =...
  16. A

    changing report tiltle.......

    can this be done? I have an adresbook report wich, depending on the filter, the user can view (same layout, only different content) Now I want to change the report name depending on the filter. I created an unbound textbox in the report header. I tried to change the value of this when opening...
  17. A

    Im alway 1 step to late

    Hi I am using the following code to select rows in a countinuoes from. It is used as a filter for printing my reports. DoCmd.RunCommand acCmdSaveRecord DoCmd.RunSQL "UPDATE TAfdansen SET TAfdansen.[Selecteer] = True WHERE (((TAfdansen.[Select])=False));" DoCmd.RunSQL "UPDATE...
  18. A

    control on subform on tab

    Hi I've following crazy problem: I have a form wich contains a tabcontrol with 2 tabs on each tab I have 4 subforms (giving dancecouples points for their performance) When entering the form I ask how many subforms are needed. Then, on the subform the user needs to fill 2 comboboxes. So far so...
  19. A

    change backcolor of multiple controls in loop

    I just cant get it figured out. It's driving me crazy. Can someone help me or am I trying to do something impossible?? I have a for with multiple subforms (all equal) When I hit the save button the procedure should check all 8 fields (txtPunt1 through 8) for empty fields. All empty fields...
Back
Top Bottom