Continuous form

[gawai]

hi,
i have issue with continuous form, there are 2 rows(records) matching name but form showing only 1 -last record.
below screen for ref.


any idea ?

 

[storm8]

what's the code?

 

[Joe4]

How much room have you left in your Detail section of your Form to return the results?
With Continuous Forms, you typically want it to be only one record high, and set the "Can Grow" property to "Yes".

 

[gawai]

@joe4, the is enough room (10-12 records can accommodate) , u can see the height of form.

here is the code.


Private Sub cmbClientName_Change()
Dim db As Database
Dim rs As DAO.Recordset
Dim strConnect As String
Dim strSql As String




clntName = cmbClientName.Text

strSql = "SELECT * FROM Tbl WHERE ClientName = '" & clntName & "'"
Set db = OpenDatabase("c:\path\DB.accdb")
Set rs = db.OpenRecordset(strSql)



If (rs.RecordCount) > 0 Then
rs.MoveLast
rs.MoveFirst

lblRecFound.Caption = rs.RecordCount & " Record Found "

BillingAddress = rs.Fields("BillingAddress")
Me.fldBillAdd.Value = BillingAddress

For foundRec = 1 To rs.RecordCount
foundID = rs.Fields("ID")
clntName = rs.Fields("ClientName")
Rno = rs.Fields("ReceiptNo")
Rdate = rs.Fields("ReceiptDate")
Ramount = rs.Fields("Amount")
Ir = rs.Fields("InvoiceNo")
Pr = rs.Fields("ProjectRef")

fldID.Value = foundID
fldReceiptNo.Value = Rno
fldDate.Value = Rdate
fldAmount.Value = Ramount
fldInvoiceNo.Value = Ir
fldProjectRef.Value = Pr

rs.MoveNext
Next foundRec
Else


MsgBox "Record not found", vbOKOnly + vbInformation, "No Record"

End If


rs.Close
Set rs = Nothing


End Sub

 

[gawai]

form properties
here
Screenshot “form property”

 

[Joe4]

the is enough room (10-12 records can accommodate) , u can see the height of form.

Just the opposite. You usually do NOT want to do this. Only make it high enough for one record, and set the "Can Grow" Property of the Detail Section to "Yes". Otherwise, you have too much white space when you only have a few records, and it could push things out of view or onto the next page (for Reports).

 

[gawai]

Oh.u r.rite i forgot that. I will.try that in the morning. Thanks
But i cant find CAN GROW in the properties...

 

[Joe4]

But i cant find CAN GROW in the properties...

Make sure that you are looking at the Properties of JUST the Detail section (and not the whole Form).
In is under the Format tab in the Properties.

 

[gawai]

How much room have you left in your Detail section of your Form to return the results?
With Continuous Forms, you typically want it to be only one record high, and set the "Can Grow" property to "Yes".

ok. it is by default "YES"

i changed the form size also but no luck. still it is showing only last record.

 

[Joe4]

It is a little difficult to figure without having access to your Form to see exactly how it is designed, but in looking at the VBA code, it looks like you are looping through your records to the last one, so I think that would only return the last record:

[COLOR=#333333]rs.MoveNext[/COLOR]
[COLOR=#333333]Next foundRec[/COLOR]