Edson
|
SÃO PAULO
SP - BRASIL
|
|
Postada em 30/09/2004 11:43 hs
bom dia a todos eu pequei este exp. aqui para automatico 1+1 só que não consigo ele erro "Run-time erro 3061 Paramentos Insuficientes eram esperados 1" Set Tbcadastro = BancoDeDados.OpenRecordset("Select max(IndCódigo) From cadastro")
Tbcadastro.Index = "IndCódigo"
Tbcadastro.MovePrevious
Rem Tbcadastro.Seek "=", ProcuraCódigo If Not Tbcadastro.EOF Then 'se estiver vazio
If Not IsNull(Tbcadastro(0)) Then 'se não estiver vazio
txt_Ordem_Ser.Text = Format(Val(Tbcadastro(0)) + 1, "00000") 'acrescenta um código a mais
Else 'se não
txt_Ordem_Ser.Text = "00001" 'se não tiver nenhum cadastro atribui o primeiro código
BancoDeDados.Close 'fecha o banco de dados
End If 'termina a primeira instrução
End If 'termina a segunda instrução
|
|
|
|
|
|
Rochª
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 30/09/2004 13:32 hs
Tente assim Set Tbcadastro = BancoDeDados.OpenRecordset("Select max(IndCódigo) From cadastro") If tbcadastro.eof Then txt_ordem_ser = 1 else
txt_ordem_ser = tbcadastro.fields("indcódigo") + 1 end if Escrevi o codigo direto na web verifique. Obs Não coloque acento em nome de variaveis (INDCÓDIGO), pode dar problemas mais tarde.
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
|
Edson
|
SÃO PAULO
SP - BRASIL
|
|
Postada em 30/09/2004 13:44 hs
Rocha o erro continua "Run-time erro 3061 Paramentos Insuficientes eram esperados 1" |
|
|
|
Rochª
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 30/09/2004 14:04 hs
Esse campo INDCÓDIGO existe. Ele é acentuado ?? De uma olhada. Ele da erro em qual linha
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
|
Edson
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 30/09/2004 14:11 hs
assim ele vai legal só que assim vo ter que por o codigo manual já tirei o acento do "indcodigo" e do bd também. Rem txt_Ordem_Ser = Format(txt_Ordem_Ser.Text, "00000")
Rem Tbcadastro.Index = "indcodigo"
Rem Tbcadastro.Seek "=", txt_Ordem_Ser.Text
Rem If Tbcadastro.NoMatch = False Then
Rem MsgBox "Já Existe esta Matricula. Tente outra!!!"
Rem txt_Ordem_Ser.Text = ""
Rem txt_Ordem_Ser.SetFocus
Rem Else |
|
|
|
Edson
|
SÃO PAULO
SP - BRASIL
|
|
Postada em 30/09/2004 14:16 hs
o erro na lina Set Tbcadastro = BancoDeDados.OpenRecordset("Select max(indcodigo) From cadastro") |
|
|
|
