Search results

  1. Fornatian

    Hiding application window

    seems to have been covered here http://www.access-programmers.co.uk/forums/showthread.php?s=&threadid=51062&highlight=hide+window
  2. Fornatian

    Select Blank Lines In Excel Sheet

    here looks like the place http://www.cpearson.com/excel/deleting.htm
  3. Fornatian

    MediaPlayer Control

    sorry can't download the file, im a97 user u see. anyway have you got the reference ticked in in the library. If not you should have. Go to Vb window, hit Tools-References and find your media player control. the code should then use that reference to interpret the vb
  4. Fornatian

    Toggle field based on last recordset

    this looks fruitful http://support.microsoft.com/?kbid=210504
  5. Fornatian

    How To Calculate Working Days?

    I've just tested the qry qselDateDifferenceDemonstration in the demo I posted with criteria and it works on my PC using the following SQL. SELECT tblDemonstrationData.dtDay1, tblDemonstrationData.dtDay2, funWorkDaysDifference([dtDay1],[dtDay2]) AS WorkDaysDifference FROM tblDemonstrationData...
  6. Fornatian

    Select all in List box

    Private Sub Command5_Click() Dim i As Integer For i = 0 To Me.List2.ListCount Me.List2.Selected(i) = True Next i End Sub
  7. Fornatian

    What's your best/worst joke?

    1. Did you hear about the polymorphic tractor, it was driving down the road and then turned into a field. 2. Man walks in a barbers, barber says, "how do want your hair", man says "some off the top, some of the sides", barber says "do you want it cutting round the back?", man says "if it's all...
  8. Fornatian

    How To Calculate Working Days?

    This is a good example...
  9. Fornatian

    toUpper?

    As namlian's solution use: Private Sub Form_KeyPress(KeyAscii As Integer) MsgBox KeyAscii If KeyAscii > 96 And KeyAscii < 123 Then KeyAscii = Asc(UCase(Chr(KeyAscii))) End If End Sub you must set the keypreview in the forms properties to Yes so the form catches the keypress before the...
  10. Fornatian

    Columnar Printing

    Take a look at the Solutions.mdb (on my computer stored at C:\Program Files\Microsoft Office\Office\Samples\Solutions.mdb) which has an example of a multiple column report and a step by step of how to create it. Select 'Create Advanced Reports' from the upper list and 'Create a Mutil-Column...
  11. Fornatian

    Input "Yes" into field if record exists in Excel file

    type tblps32List.Required in the UpdateTo row of the tblMaterialsDetails.BuildQuantityRequired This will pull the corresponding field value from the matching record. Don't run this straight away, use the 'View' icon (top right) to check the records are pulling correctly.
  12. Fornatian

    Toggle field based on last recordset

    What do you mean by... whether there is a value in the In date field, in the last record in the recordset How do you know its the last record entered? Is there an autonumber?
  13. Fornatian

    Columnar Printing

    One approach is to open a different report if your query has more than X records. If for instance the list was displayed on the current form in a list box you could do... Dim lngCrucialFigure as Long Dim rptName as String lngCrucialFigure = 300 If Me.MyListBox.ListCount > lngCrucialFigure...
  14. Fornatian

    Order report by number of detail records

    Build two queries: 1. Detail query with report fields 2. Count query summing records per group Join them in a third query joining the grouping fields, use the count return as a hidden sorting field.
  15. Fornatian

    week number from date

    Does this help? Function StartOfWeek(d As Variant, Optional FirstWeekday As Integer) As Variant ' ' Returns the date representing the first day of the current week. ' ' Arguments: ' D = Date ' FirstWeekday = (Optional argument) Integer that represents the first ' day of the week...
  16. Fornatian

    Required Fields NOT being Filled in

    Instead of 'requiring' each field to be filled at the table level mark each required field with an "X" in the tag property of each form field. You can then build a public function which loops through each field and returns an error if the field is empty. A search on this forum for "loop tag...
  17. Fornatian

    Input "Yes" into field if record exists in Excel file

    Consider using a linked table to your excel file, then join it to your existing records table via the primary key. This will have the effect of only selecting matching records. Now convert it to an update query and set the fields update to "Yes". Was that a relevant answer having read your...
  18. Fornatian

    Me.TxtBox.DefaultValue

    Stored queries run quicker than VBA SQL queries so unless the query is dynamically built(the update fields change each time), then you should build the query in the QBE grid and then run the query using: Docmd.OpenQuery "QueryName" To prevent update warnings use: Docmd.SetWarnings False...
  19. Fornatian

    Me.TxtBox.DefaultValue

    You need more quotes round the string: Me.TxtBox.DefaultValue = """Test"""
  20. Fornatian

    Date Month, just stuck

    Too much ale last night addled my brain :D
Back
Top Bottom