SRick
|
LAVRAS
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 10/12/2007 14:00 hs
Amigo, fiz o que você me recomendou e funcionou certinho, obrigado mesmo. Bom, não querendo aproveitar da sua boa vontade, pergunto se tem jeito de fazer o seguinte com o código automático: o código vai incrementando automaticamente de 1 em 1 certo! Ex: 0001, 0002, 003, 0004, etc. A minha pergunta é a seguinte: se eu deletar o código 0002 por exemplo, tem como o código 0003 passar a ser o 0002 e o 0004 passar a ser o 0003??? Se tiver jeito por favor me ensine. Obrigado. SRick. |
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 10/12/2007 15:05 hs
Bom não pensei nisso ainda mas vou fazer alguns teste e te retorno Aguarde.... |
|
TÓPICO EDITADO
|
|
|
|
SRick
|
LAVRAS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 10/12/2007 16:01 hs
Valeu, aguardo novos contatos, a propósito, você é fera em VB hein!!! SRick. |
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 11/12/2007 10:38 hs
Bom não foi dificil deixar da forma que voce me pediu aqui o código que vai alterar o autonum (codigo) do programa ficando da seguinte forma, quando se excluir por exemplo o numero 0002 o numero 0003 passa a ser este e assim sequencialmente. bom basta você alterar o código do btnexcluir para o seguinte: Private Sub btnexcluir_Click()
btnsalvar.Enabled = True 'ativa salvar
btnalterar.Enabled = False 'desativa alterar
btnexcluir.Enabled = False 'desativa excluir
REG.Delete 'apaga o registro
LimpaCampos' limpa os campos
REG.MoveNext ' aqui ele move para o próximo registro
Do While Not REG.EOF ' então enquanto não for o fim do registro
Navega ' ele carrega o proximo registro nos campos...
txtcod.Text = Format(Val(REG("codigo")) - 1, "0000") ' dimminui um (-1) do text código REG.Edit ' grava o mesmo registro com o código alterado
Salva
REG.Update
REG.MoveNext ' e move para o próximo registro para fazer a mesma alteração
Loop ' assim sucessivamente até o final dos registros
LimpaCampos ' limpa os campos.....
AutoNum ' e já prapara para o novo registro.
End Sub poste dizendo se deu certo
pronto agora tá do jeito que vc quer precisando estarei aqui.... |
|
TÓPICO EDITADO
|
|
|
|
Cardoso G
|
PATOS DE MINAS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 11/12/2007 11:19 hs
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
With cmd
.ActiveConnection = cnn
.CommandType = adCmdText
.CommandText = " select max(cod) + 1 as ultimocod from tabela"
Set rs = .Execute
End With
vUltimoCod = !ultimocod |
|
|
|
|
|
Postada em 11/12/2007 11:22 hs
Prezado Amigo, você é fera mesmo, funcionou 1000%. Como que você aprendeu tanto desse jeito? Bom, vi que você gosta de desafios, então vai este que pra você que é fera em programação deverá ser fichinha, mas pra mim que estou começando agora é muito difícil. O desafio é o seguinte: Seguindo a mesma linha de raciocínio tenho um banco de dados com um campo de autonumeração como você fez. O desafio é o seguinte essa numeração vai incrementando durante o ano todo, mas quando chegar o ano seguinte (01/01/2008), por exemplo, a autonumeração teria que começar do 1 novamente, tem jeito? Exemplo: Ano de 2007 Codigo nr do protocolo = 1, 2, 3 4, 5 ..... 1897. Ano de 2008 Codigo nr do protocolo começaria de novo no 1, 2, 3 4, 5 ..... 1572 E assim sucessivamente a cada ano. --------------------------------------- Muito obrigado mesmo, você tem me ajudado muito, pois sou novato no assunto, mas adoro programação e pretendo ficar bom, estou estudando para isto, comprei o livro dominando o Visual Basic 6 a Bíblia, tenho aprendido muito, mas não chego nem perto de você. Outra dúvida estou aprendendo o VB 6, mas já existe um tal de VB 2005, VB 2008 o que que eu faço amigo? começo a ficar meio perdido com tantos VB. Um abraço amigo. Henrique. |
|
|
|
|
