GERAR ID PROBLEMAS
Pessoal, estou com um problema em gerar o proximo ID. No banco anexo poderão observar no campo Controle que o ultimo é o 0005, porem ao gerar o proximo pega o 0001 quando teria q ser o 0006. Onde estou errando nessa rotina?
irenko os link para baixar o arquivo está quebrado tem como postar o código
o código esta ai, mas acho q ja resolvi. Vou fazer ums testes.
Private Sub GeraControle()
Set RstID = ConexaoContrato.Execute([Ô]SELECT Top 1 Comissao.Contrato, Comissao.Controle FROM Comissao WHERE Comissao.Contrato = [Ô][Ô][Ô] + CriterioContrato + [Ô][Ô][Ô];[Ô])
With RstID
If .EOF Then
Set RstID = ConexaoContrato.Execute([Ô]SELECT Last(Comissao.Contrato) AS Contrato , MAX(Val(Comissao.Controle)) AS Controle FROM Comissao;[Ô])
strContrato = CriterioContrato
strControle = Format$(Val(RstID.Fields([Ô]Controle[Ô]).Value) + 1, [Ô]0000[Ô])
Else
strContrato = .Fields([Ô]Contrato[Ô]).Value
strControle = .Fields([Ô]Controle[Ô]).Value
End If
Txt_ID.Text = strControle
If Not (RstID Is Nothing) Then .Close: Set RstID = Nothing
End With
End Sub
Private Sub GeraControle()
Set RstID = ConexaoContrato.Execute([Ô]SELECT Top 1 Comissao.Contrato, Comissao.Controle FROM Comissao WHERE Comissao.Contrato = [Ô][Ô][Ô] + CriterioContrato + [Ô][Ô][Ô];[Ô])
With RstID
If .EOF Then
Set RstID = ConexaoContrato.Execute([Ô]SELECT Last(Comissao.Contrato) AS Contrato , MAX(Val(Comissao.Controle)) AS Controle FROM Comissao;[Ô])
strContrato = CriterioContrato
strControle = Format$(Val(RstID.Fields([Ô]Controle[Ô]).Value) + 1, [Ô]0000[Ô])
Else
strContrato = .Fields([Ô]Contrato[Ô]).Value
strControle = .Fields([Ô]Controle[Ô]).Value
End If
Txt_ID.Text = strControle
If Not (RstID Is Nothing) Then .Close: Set RstID = Nothing
End With
End Sub
Tópico encerrado , respostas não são mais permitidas