ERRO PRA FERA

WEBMASTER 26/05/2005 18:53:15
#85373
Cole esse código e teste

Option Explicit

Private oFrm() As Form1
Dim n As Long

Private Sub Command1_Click()

Dim t As Long
t = UBound(oFrm) + 1

ReDim oFrm(t)

Set oFrm(t) = New Form1
oFrm(t).Tag = t
Load oFrm(t)

' adiciona os indices da variavel ( acrescentei ao codigo original do professor )
List1.AddItem t

With oFrm(t)
.Caption = "Instancia : " & UBound(oFrm)
.Show
End With

t = Empty

End Sub

Private Sub Form_Load()

ReDim Preserve oFrm(0)

End Sub

Private Sub Command2_Click()
For n = 0 To Forms.Count - 1
If Forms(n).Tag = List1.Text Then
Forms(n).Text1.Text = Text1.Text
Forms(n).SetFocus
End If

Next

End Sub
WEBMASTER 26/05/2005 18:58:05
#85374
guto troquei os tópicos
WEBMASTER 26/05/2005 19:03:33
#85376
Tire o refresh que você não está usando controle vinculado, eu só te falei porque pensei que você estava usando
WEBMASTER 26/05/2005 19:05:13
#85377
e outras coisa, tem certeza que não existe valores duplicados na tabela, olha lá.
JEAN.JEDSON 27/05/2005 09:48:05
#85428 Resposta escolhida
Guto...

este problema acontece apenas com o botão "primeiro"? ou com qualquer um de movimento? tente fazer os movimentos desta forma:

'Primeiro
IF rsarea.RecordCount > 0 AND rsarea.AbsolutePosition > 1 Then rsarea.MoveFirst

'Anterior
IF rsarea.RecordCount > 0 AND rsarea.AbsolutePosition > 1 Then rsarea.MovePrevius

'Próximo
IF rsarea.RecordCount > 0 AND rsarea.AbsolutePosition < rsarea.RecordCount Then rsarea.MoveNext

'ÃÅ¡ltimo
IF rsarea.RecordCount > 0 AND rsrsareaAbsolutePosition < rsarea.RecordCount Then rsarea.MoveLast
GUTO 27/05/2005 10:12:26
#85433
Leopoldo oq vc diz por valores duplicados? eu tamne retirei o refresh

Jean

quando pagineio o recordset da esse erro

Object doesnt support this property or method


mas quando insiro um registro e pagineio o recordset ai da esse erro irm ao

Provider cannot the value. Possible reasons: The record was just created, the default value for the field was not availeble , or the user has not set a new value.

Obrigado a todos

JEAN.JEDSON 27/05/2005 10:27:36
#85441
como vc está definindo o cursorlocation?
vc poderia me mandar seu banco com a tabela em questão, e também o form que está dando erro? assim ficaria mais fácil...
GUTO 27/05/2005 17:03:40
#85552
eu tenho 2 campos tipo Numero CodigoA e CodigoImo , eles ficariam entre aspas " " assim ?


cnBd.Execute "insert into Tbl_Areas (CodigoA, CodigoImo, Descricao, Lotes, Gleba, Quadra, Bairro, Rua, Metragem, Cidade, Valor, Obs) Values (" & txtcodA.Text & "," & txtcodimo.Text & ",'" & txtdesc.Text & "','" & txtlote.Text & "','" & txtgleba.Text & "','" & txtquadra.Text & "','" & txtbairro.Text & "','" & txtrua.Text & "','" & txtmetra.Text & "','" & txtcidade.Text & "','" & txtval.Text & "','" & txtobs.Text & "')" 'deixa abilitado esses botoes
GUTO 28/05/2005 17:42:25
#85668
ate esta incluindo so que parece q meu botoes estao incluindo o registro novamente

If Not rsarea.BOF Then
rsarea.MoveFirst
Else
rsarea.MoveFirst
End If
GUTO 31/05/2005 11:31:52
#86120
Ficou assim incluir

'rsarea.Delete adAffectCurrent
'cnBd.Execute "insert into Tbl_Areas (CodigoA, CodigoImo, Descricao, Lotes, Gleba, Quadra, Bairro, Rua, Metragem, Cidade, Valor, Obs) Values (" & txtcodA.Text & "," & txtcodimo.Text & ",'" & txtdesc.Text & "','" & txtlote.Text & "','" & txtgleba.Text & "','" & txtquadra.Text & "','" & txtbairro.Text & "','" & txtrua.Text & "','" & txtmetra.Text & "','" & txtcidade.Text & "','" & txtval.Text & "','" & txtobs.Text & "')" 'deixa abilitado esses botoes
'rsarea.Requery

botao de navegacao

If rsarea.RecordCount > 0 And rsarea.AbsolutePosition > 1 Then rsarea.MoveFirst
'If rsarea.RecordCount > 0 And rsarea.AbsolutePosition > 1 Then rsarea.MovePrevious

If rsarea.RecordCount > 0 And rsarea.AbsolutePosition < rsarea.RecordCount Then rsarea.MoveNext

If rsarea.RecordCount > 0 And rsarea.AbsolutePosition < rsarea.RecordCount Then rsarea.MoveLast

ficou assim valew Jean
Página 2 de 2 [20 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar