Recent content by MMaynard

  1. M

    Latest date from different date fields?

    No need to have a real table, the result of the code above is in the line Me.topDate = TempRS.Fields(0).Value That example is tied to a field on the form I was testing with, you can just put the above code in the afterupdate event of the form, or make it a function and tie it to a button.
  2. M

    Simple max query

    That or just change it to a TOP 1 query sorted DESC on that field.
  3. M

    Latest date from different date fields?

    You could load the date fields to an array, then transfer the array to a disconnected recordset and sort it. Dim TempRS As ADODB.Recordset Dim TempArray As Variant Set TempRS = New ADODB.Recordset With TempRS.Fields .Append "tempDate", adDBDate End With TempArray = Array(Me.Field1.Value...
  4. M

    Simple max query

    Can you post the SQL version of the query?
  5. M

    Demographic Tracking

    You could make another table to hold the race(s) of the people and do a one-to-many relationship for each record.
  6. M

    Pass through query with a stored password

    Your user and password are stored in the connection string. DSNConnection = "ODBC;DSN=DSNNAME;UID=UserName;PWD=UserPassword;DATABASE=DatabaseName;Network=DBMSSOCN;Address=ServerNameOrAddress;Trusted_Connection=No"
  7. M

    Help with expression to get text string from check boxes

    Dim ctl As Control, MyLongString As String, MyLengthToTrim As Integer, MyLeftString As String, MyRightString As String, MyOriginaLength As Integer For Each ctl In Me.Detail.Controls Select Case ctl.ControlType Case acCheckBox If ctl.Value <> 0 Then...
  8. M

    Pivot Table - Limit Sum

    When you changed it to top 5 in the query did you sort DESC by the scores field?
  9. M

    Webcam OCX

    Glad to help :)
  10. M

    Help with expression to get text string from check boxes

    Ok this was a brain twister but it should work. Replace the code with this Private Sub Form_BeforeUpdate(Cancel As Integer) Dim ctl As Control, MyLongString As String, MyLengthToTrim As Integer, MyLeftString As String, MyRightString As String For Each ctl In Me.Detail.Controls Select Case...
  11. M

    Display progress of Orders graphically

    Why not just add 5 checkboxes to the record?
  12. M

    Webcam OCX

    I use WIA to resize and crop images in a VWI database at work. WIA also has filters for rotate as well. I have added a rotate filter to my procedure here as an example ImageToSize is the path and file name of the original image, ImgFinal is the Path and image name of the final image Public Sub...
  13. M

    Help with expression to get text string from check boxes

    No problem. See attached.
  14. M

    Help with expression to get text string from check boxes

    No, the textbox on my test form is the one named LongStringField
Back
Top Bottom