Search results

  1. Nouba

    double countings

    this should work SELECT Count(*) AS TotalCount , Sum(Abs(YesNoField)) AS CountOfYes FROM YourTable
  2. Nouba

    Find record with maximum in one field

    create a query with grouping on month and max on qty. In another query add your table plus the formerly created query and join them on both fields. Then you only need to add the three fields from the table to your query.
  3. Nouba

    Replication across different versions

    Maybe Subject: INFO: You can't mix Jet 3.5 and Jet 4.0 when it comes to replication is interesting for you.
  4. Nouba

    Need Help urgently

    setting the ControlSouce property to vbNullString will disconnect the Control from the underlaying table. If you keep a copy of the ControlSource in the Tag property, it's easy to restore the value inside a loop. In addition to your other questionPrivate Sub Optiongrp1_AfterUpdate() Dim i...
  5. Nouba

    On Dbl Click ?

    you could call the procedure behind the button click. I.e.Private Sub YourListbox_DblClick(Cancel As Integer) Call YourButton_Click End Sub
  6. Nouba

    Help!!!

    you could try this codePrivate Sub Optiongrp1_AfterUpdate() Dim i As Integer For i = 1 To 5 With Me("Text" & i) .Enabled = i = Me!Optiongrp1 End With Next i End Sub
  7. Nouba

    auto numbers?

    sorry, misinterpreted the question.
  8. Nouba

    Date Extraction

    You could use the DateValue function on the string, add one day and then use the Format function on that date. For me it make more sense to store a date into a date/time field.
  9. Nouba

    Subforms and security

    use the With Owner Access option with stored queries for your forms.
  10. Nouba

    Accessing Access tables programmatically in Access 2000

    AddItem is introduced in Access XP. You could try using the code in Use Classes to Enhance List and Combo Boxes in Access 97.
  11. Nouba

    Update Query

    Hi, the syntax of your query looks correct. Open the VBA editor and look at tools/references. Are there any missing entries? Can you use the Format function inside the immediate window? Have you installed all the service packs (Access, MDAC, etc.)? You could also try importing all objects into...
  12. Nouba

    Date----year

    There is a function called Year which will give you the desired result. In an empty column in the qbe editor write YearBorrowed: Year([DateBorrowed])
  13. Nouba

    Update Query

    Your query should look likeUPDATE YourTable SET MissingNumber = Format([MissingNumber],"000000")I couldn't tell you, why you receive an error without seeing the query.
  14. Nouba

    Multiple Max/Min Values

    In Merging sequences is a possible solution for your problem.
  15. Nouba

    combining tables

    I setup a quick example. In real life you should use Autonumbers and primary keys in your tables.
  16. Nouba

    Updating a boolean field

    You could try this onesSQLQuery = sSQLQuery & "UPDATE BackOutBilling" & vbCrLf sSQLQuery = sSQLQuery & "SET Report = True" & vbCrLf sSQLQuery = sSQLQuery & "WHERE" & vbCrLf sSQLQuery = sSQLQuery & " KitchenID = '" & sKitchen & "' AND" & vbCrLf sSQLQuery = sSQLQuery & " Report = False" & vbCrLf...
  17. Nouba

    MID(INSTR()) Function

    I developed the the sample with Access XP and have no chance to test it with A97 at home. Can you check, if there are any missing references in the sample. What happens after removing the MISSING selections and recompling the db.
  18. Nouba

    MID(INSTR()) Function

    You could copy the code over to your own db and use the functions like in the query which you could hopefully see. What happens on manually compiling the db?
  19. Nouba

    MID(INSTR()) Function

    with the Replace function (I put one in the db) you can substitute the pair of brackets before giving the result to fctSplit as an argument.
  20. Nouba

    MID(INSTR()) Function

    I used a custom function (Split_Striing) which works similar like the Split function in A2K.
Back
Top Bottom