MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]ComboBox noList

    Compartilhe
    avatar
    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?????
    avatar
    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
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2934
    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: Dom 24 Set 2017, 02:21