Search results

Here in atcc; Thanks for investigating.

I replace with xField, but sum equal another cod, up to 8 lines and not the 17.

Thanks for responding; I replaced the i in yRow "Nz(Me.RecordsetClone.Fields(i)" The error appears, Item not found this collection.

Hello; I saw another problem, it sum 1 line to 8. In fact the continuos form has 8 columns, but has 17 lines to sum. Public Sub MostraSoma() Dim i As Integer, strTotal, strSoma, strSoma1, strSoma2, strSoma3, strSoma4, strSoma5, strSoma6 As Double Me.RecordsetClone.MoveFirst strTotal = 0 strSoma...

Now is perfect. Very very thanks Regards

Hi; Use Me.Requery

The problem is in the code is the field name [01-2010] and CrossTab to change [02-2010] gives Run-time error 3265 Item not found. I can not be changing the name of the field in cod, every time insert dates in the table.

Works perfect, but there is a problem, is that the form originated in a Croostab and the field name Nz(Me.RecordsetClone.[01/2010], 0) changes. Any idea like resolving ?

Work a charm, very very thanks to two.

Not yet vbaInet gives error 2105, Private Sub Form_Current() Dim i As Integer, countClone As Long DoCmd.GoToRecord , , acFirst countClone = 0 For i = 1 To Me.RecordsetClone.RecordCount - 1 countClone = countClone + Nz(Txt2, 0) DoCmd.GoToRecord , , acNext Next...

Hi gemma, help me here please; http://www.access-programmers.co.uk/forums/showthread.php?p=928217#post928217

Hi RurakGuy, help me here please; http://www.access-programmers.co.uk/forums/showthread.php?p=928217#post928217

Thanks for responding friend, but see the mdb that will better understand.

Help me please

Hi all; Gives error in the sum of a texbox in continuos form footer. how can I solve this problem ? See the attc please

Try; Private Sub ZNumber_AfterUpdate() Me.ZNumber = UCase(Me.ZNumber) Dim Z_Number As String Dim stLinkCriteria As String SID = Me.ZNumber.Value stLinkCriteria = "[ZNumber]=" & "'" & SID & "'" 'Check Sendaway table for duplicate ZNumber If DCount("ZNumber", "tblSendaways", _ stLinkCriteria)...

(acFormatPDF), this is a specific command of 2007, does not work in mdb.

Thanks, but I could not adapt.

So it does not work. Function OpenACCRD() With New Access.Application .OpenCurrentDatabase "c:\teste.accdr", , "MyPassword" .UserControl = True .RunCommand acCmdAppMaximize End With Application.Quit End Function Help me please.

Thanks for responding, but still does not work. Note that want to open mode runtime (accdr).