Tomás Vásquez Fórum

Código: Selecionar todos

Private Sub UserForm_Activate()
    cnnBanco.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ThisWorkbook.Path & "\Banco_SIG.mdb"
    rstBanco.Open "SELECT Id, CodProduto, NomeProduto, Valor FROM TblProduto", cnnBanco, adOpenKeyset, adLockOptimistic, adCmdText
    Indice = rstBanco.AbsolutePosition
    Activar
    
   
End Sub


Sub Incluir_Registro()
    
     If Me.txtCodProduto.Text = "" Or txtNomeProdutoFlora.Text = "" Or Me.txtValor.Text = "" Then
        
       MsgBox "Os campos: Código do Produto, Nome Produto, Valor, não devem ficar em branco, digite!!!", 64, "Aviso"
Else
      
    ''Inserindo os dados na tabela
    With rstBanco
        .AddNew
        .Fields("CodProduto") = Me.txtCodProduto.Text
        .Fields("NomeProduto") = Me.txtNomeProduto.Text
        .Fields("Valor") = Me.txtValor.Text
        rstBanco.Update
        
        lblMensagemSim.Caption = "Registro salvo com sucesso."
        
    End With
    
End If
End Sub

Código: Selecionar todos

'(verificar se o tipo do campo na tabela e declarar a variável de acordo)
Dim vCodProduto as integer 
'A função DLookup busca o campo "CodProduto", na tabela "TblProduto", respeitando a condição "CodProduto="
vCodProduto = Dlookup("CodProduto", "TblProduto", "CodProduto=" & Me.txtCodProduto.Text)

'Testa se a variável possui algum retorno, ou seja, se existe o registro. Caso não exista, segue na rotina de inclusão. Caso exista, exibe uma mensagem.
If Isnull(vCodProduto)  or vCodProduto = "" then 'Se a variável é nula ou vazia:
    With rstBanco
        .AddNew
        .Fields("CodProduto") = Me.txtCodProduto.Text
        .Fields("NomeProduto") = Me.txtNomeProduto.Text
        .Fields("Valor") = Me.txtValor.Text
        rstBanco.Update        
        lblMensagemSim.Caption = "Registro salvo com sucesso."        
    End With
Else
      Msgbox "Código já cadastrado!"
      Exit Sub
End If

Código: Selecionar todos

'verificar se o registro já existe na tabela
 cnnBanco.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ThisWorkbook.Path & "\Banco_SIG.mdb"
    rstBanco.Open "SELECT * Valor FROM TblProduto WHERE CodProduto=" & Me.txtNomeProduto.Text, cnnBanco, adOpenKeyset, adLockOptimistic, adCmdText
    

'Testa se o Recordset possui algum retorno, ou seja, se existe o registro. Caso não exista, segue na rotina de inclusão. Caso exista, exibe uma mensagem.
If Isnull(rstBanco.Recordcount)  or rstBanco.Recordcount < 1 then 'Se o Recordset é nulo ou não existe o registro:
    With rstBanco
        .AddNew
        .Fields("CodProduto") = Me.txtCodProduto.Text
        .Fields("NomeProduto") = Me.txtNomeProduto.Text
        .Fields("Valor") = Me.txtValor.Text
        rstBanco.Update        
        lblMensagemSim.Caption = "Registro salvo com sucesso."        
    End With
Else
      Msgbox "Código já cadastrado!"
      Exit Sub
End If