MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]ComboBox noList

    Compartilhe

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    [Resolvido]ComboBox noList

    Mensagem  Roberto_1977 em Ter 21 Out 2014, 16:08

    Boa tarde,

    Tenho tentado adaptar este código mas não estou conseguindo....
    Tenho uma combobox onde caso o valor introduzido no campo não esteja na lista da combo ele grava na tabela "Tabela_estado" no campo"Estado_abreviado" o valor novo, e eu gostaria de poder atraves de uma imputbox ele me perguntar Qual o nome do estado por extenso.
    A Tabela_Estado tem dois campos,
    1º Estado_abreviado
    2º Estado_Extenso.

    Estava a tentar com o seguinte código...

    Private Sub Estado_NotInList(NewData As String, Response As Integer)
    Dim SQL As String
    Dim SQL33 As String
    Dim Est1 As String
    DoCmd.SetWarnings False
    If MsgBox("Estado não cadastrado" & vbCrLf & "Deseja cadastrar o estado " & "agora?", vbInformation + vbYesNo, "Cadastro") = vbYes Then
    SQL = "INSERT INTO Tabela_Estado (Estado_Abreviado) VALUES ('" & NewData & "')"
    DoCmd.RunSQL SQL

    Est1 = InputBox("Qual é o nome do Estado?", "Estado")
    CurrentDb.Execute "UPDATE SET Tabela_Estado (Estado_Abreviado) VALUES ('" & NewData & "') WHERE Tabela_estado = Me.Estado.Text "
    DoCmd.RunSQL SQL33
    Response = acDataErrAdded
    Else
    Response = acDataErrDisplay
    End If
    DoCmd.SetWarnings True
    End Sub


    O que estou a fazer de errado?????

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]ComboBox noList

    Mensagem  Roberto_1977 em Ter 21 Out 2014, 17:34

    Boa tarde,

    Após alguma insistencia consegui.... cheers cheers cheers cheers cheers

    Private Sub Estado_NotInList(NewData As String, Response As Integer)
       Dim SQL As String
         Dim Est1 As String
       DoCmd.SetWarnings False
       If MsgBox("Estado não cadastrado" & vbCrLf & "Deseja cadastrar o estado " & "agora?", vbInformation + vbYesNo, "Cadastro") = vbYes Then
           SQL = "INSERT INTO Tabela_Estado (Estado_Abreviado) VALUES ('" & NewData & "')"
           DoCmd.RunSQL SQL
         Est1 = InputBox("Qual é o nome do Estado?", "Estado")
           CurrentDb.Execute "UPDATE Tabela_Estado SET Estado_Extenso = ('" & Est1 & "') WHERE '" & NewData & "' = Estado_Abreviado"
           Response = acDataErrAdded
       Else
       Response = acDataErrDisplay
       End If
       DoCmd.SetWarnings True
    End Sub

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    Registrado : 06/11/2009

    Re: [Resolvido]ComboBox noList

    Mensagem  Assis em Ter 21 Out 2014, 17:53

    Parabens Roberto
    Já adaptei e ficou funcional
    É como diz o Gr JPaulo - Tem muita maneira de fazer nestum
    Obrigado pela lição


    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: Seg 05 Dez 2016, 04:25