newjack
09-30-03, 14:30
| I have some vba code that will not work properly .. can someone help ... the Db contains 3 records but the form only displays 2 ... what am i doing wrong Private Sub cmdNext_Click() Rec.Open "tblRequest", Conn, adOpenDynamic, adLockOptimistic If Not Rec.EOF = True Then Rec.MoveNext txtChangeID.Value = Rec("ChangeID") txtStatus.Value = Rec("Status") cboRequestor.Value = Rec("Requestor") txtRequestDate.Value = Rec("RequestDate") txtCompRequestDate.Value = Rec("CompRequestDate") cboBusinessArea.Value = Rec("BusinessArea") cboContactPerson.Value = Rec("ContactPerson") txtBriefDescrip.Value = Rec("BriefDescrip") txtDescripofChange.Value = Rec("DescripofChange") cboDeptPriority.Value = Rec("DeptPriority") txtBusinessDrivers.Value = Rec("BusinessDrivers") cboReactionChannel.Value = Rec("ReactionChannel") cboTypeofChange.Value = Rec("TypeofChange") cboApplication.Value = Rec("Application") Rec.Close End Sub |