Jonas,
Also, please post the complete code behind the button so we can take a look at it.

Thanks,

Kevin

dartcoach

hey, here is the code attached to the button. does it look right?

Private Sub Command2_Click()
Dim rs As Recordset
   Dim rs1 As Recordset
   Dim db As Database

   Set db = CurrentDb
   Set rs = db.OpenRecordset("Select * from [Project Management]")
   With rs
      .MoveFirst
      Do While Not .EOF
          varName = ![Project Name]
          varSQL = "Select * from [Status Updates Sub] where [Project Name] = " & """" & varName & """" & ";"
          Set rs1 = db.OpenRecordset(varSQL)
          With rs1
             If Not .EOF Then
                If Not .BOF Then
                   .MoveLast
                    MsgBox rs![Project Name] & " " & rs1!Date
                End If
             End If
          End With
          rs1.Close
          Set rs1 = Nothing
          .MoveNext
      Loop
    End With


End Sub

Jonas,
It looks right to me. Are the table names and field names correct?
Are you getting a message box with the project name and a date?

Kevin

dartcoach

i double checked the spelling of all the fields and tables. and no message box comes up, nothin happens when i click the button. is there any other reason this wouldnt work?

Jonas,

Does the [Project Management] table have any records, also, based on what you posted earlier, there should always be at least 1 record in the [Status Updates Sub] table - is this true?

Kevin

Kevin

dartcoach

kevin, i think i got it! finally it is doing what i want, and yes there is always a record in the subform.

oh theres just one more thing, is there anyway format the subform to pull all the records, as i need some data for calculations, but only show the top record? which in my case the most recent record. but that is just aesthetics, the more important aspects are done. just cant seem to make the report look exactly like the form..

thanks a bunch for all the help =)

Jonas,
Glad you've got it. In the code you're using, you can work thru the records of rs1.

          With rs1
             If Not .EOF Then
                If Not .BOF Then
                   .MoveLast
                    MsgBox rs![Project Name] & " " & rs1!Date
                   .movefirst
                   do while not .eof
                      """ Calculations here """
                      .movenext
                   loop
                End If
             End If
          End With
          rs1.Close
          Set rs1 = Nothing


Hth,

Kevin

dartcoach

Jonas,
Did you get the loop processing working?

Kevin

dartcoach

hey Kevin,

sorry for the late response, got tied up in meetings. I did not try the second code, as I have everything working as it should. but thanks all the same!

Jonas