NextRecord and ObjectPtr?

[Joakim Schramm]

I don't think it's With ... End With as same without.

So Kilill can rest :-)

Joakim

> -----Original Message-----
> From: valentina-bounces at lists.macserve.net 
> [mailto:valentina-bounces at lists.macserve.net] On Behalf Of 
> Ruslan Zasukhin
> Sent: 30 April 2006 13:50
> To: valentina at lists.macserve.net; kirill_pekarov at valentina-db.com
> Subject: Re: NextRecord and ObjectPtr?
> 
> On 4/30/06 2:06 PM, "Joakim Schramm" <joakim at astrocalc.com> wrote:
> 
> > Why does the (VB6) code below not work? NextRecord does't 
> do anything 
> > just stay on same RecId 1, so field references etc. never 
> gets updated 
> > etc. does COM object don't work with With ... End With?
> 
> Kirill, 
> 
> Please check point with in VCOM asap
> 
>     With ... End With
> 
> 
> > Dim IdRec As Long
> > Dim B As Boolean
> > Dim sKey As String
> > Dim fldPtr As VField
> > Dim fldFK As VField
> > Dim fldPK As VField
> > Dim mTblCountry As VTable
> > Dim mTblAlias As VTable
> > 
> > 'prepare binary links
> > 'Set mLinkCA = mDatabase.Link(lnkCountryAlias) Set mTblCountry = 
> > mDatabase.Table(tblCountry & sLang) Set mTblAlias = 
> > mDatabase.Table(tblCountryAlias)
> > 
> > With mTblAlias
> >     Set fldPtr = .Field("PtrAlias")
> >     Set fldFK = .Field("CID")
> >     Set fldPK = mTblCountry.Field("CID")
> >     Call .FirstRecord
> > 
> >     Do While Not .EOF
> >         sKey = Trim$(fldFK.Value)
> >         IdRec = fldPK.FindSingle(sKey)
> > 
> >         If IdRec <> 0 Then
> >             fldPtr.Value = IdRec
> >             .UpdateRecord
> >         Else
> >             MsgBox "No " & sKey
> >         End If
> > 
> >        B = .NextRecord
> >     Loop
> > 
> > End With
> > 
> > Only part working is
> > 
> >         sKey = Trim$(fldFK.Value)
> >         IdRec = fldPK.FindSingle(sKey)
> > 
> >         If IdRec <> 0 Then
> >             fldPtr.Value = IdRec
> >             .UpdateRecord
> >         Else
> >             MsgBox "No " & sKey
> >         End If
> > 
> > What am I doing wrong?
> 
> 
> --
> Best regards,
> 
> Ruslan Zasukhin
> VP Engineering and New Technology
> Paradigma Software, Inc
> 
> Valentina - Joining Worlds of Information http://www.paradigmasoft.com
> 
> [I feel the need: the need for speed]
> 
> 
> _______________________________________________
> Valentina mailing list
> Valentina at lists.macserve.net
> http://lists.macserve.net/mailman/listinfo/valentina
>