Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Userform screenupdate = false

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Responder
Anderson Rafael
Colaborador
Colaborador
Mensagens: 28
Registrado em: Seg Mai 14, 2018 11:09 am

Userform screenupdate = false

Mensagem por Anderson Rafael »

Oi gente, alguem sabe me dizer porque diabos não esta funcionando o screenupdate = false em um userform e no outro funciona??? Os dois userforms são da mesma planilha, segue o código do processo

Userform 1 (FUNCIONA o screen update, não faz nenhuma atualização na tela do userform e chega ao final do processo em milesimos de segundo, quase 0)

Código: Selecionar todos

Sub Incluir_Registro()
Call Zeros
    Dim proximoId As Long
    proximoId = PegaProximoId
    txtCodigo = proximoId
sql = "INSERT INTO Planejamento(Código, Data, ProdutoUm, ProdutoDois, ProdutoTres, ProdutoQuatro, ProdutoCinco, ProdutoSeis, ProdutoSete, " _
& "ProdutoOito , ProdutoNove, ProdutoDez, QntdUm, QntdDois, QntdTres, QntdQuatro, QntdCinco, QntdSeis, QntdSete, QntdOito, QntdNove, " _
& "QntdDez, CodUm, CodDois, CodTres, CodQuatro, CodCinco, CodSeis, CodSete, CodOito, CodNove, CodDez, PdiaUm, PdiaDois, PdiaTres, " _
& "PdiaQuatro, PdiaCinco, PdiaSeis, PdiaSete, PdiaOito, PdiaNove, PdiaDez, Inicio, ProdutoUmAcab, ProdutoDoisAcab, ProdutoTresAcab, " _
& "ProdutoQuatroAcab, ProdutoCincoAcab, ProdutoSeisAcab, ProdutoSeteAcab, ProdutoOitoAcab, ProdutoNoveAcab, ProdutoDezAcab, QntdUmAcab, " _
& "QntdDoisAcab, QntdTresAcab, QntdQuatroAcab, QntdCincoAcab, QntdSeisAcab, QntdSeteAcab, QntdOitoAcab, QntdNoveAcab, QntdDezAcab, " _
& "CodUmAcab, CodDoisAcab, CodTresAcab, CodQuatroAcab, CodCincoAcab, CodSeisAcab, CodSeteAcab, CodOitoAcab, CodNoveAcab, CodDezAcab, " _
& "PdiaUmAcab, PdiaDoisAcab, PdiaTresAcab, PdiaQuatroAcab, PdiaCincoAcab, PdiaSeisAcab, PdiaSeteAcab, PdiaOitoAcab, PdiaNoveAcab, PdiaDezAcab)"
    sql = sql & " VALUES ("
    If Not IsNull(Me.txtCodigo.Value) Then sql = sql & " '" & Me.txtCodigo.Value & "'"
    If Not IsNull(Me.txtData.Value) Then sql = sql & ", '" & Me.txtData.Value & "'"
    If Not IsNull(Me.txtProd1.Value) Then sql = sql & ", '" & Me.txtProd1.Value & "'"
    If Not IsNull(Me.txtProd2.Value) Then sql = sql & ", '" & Me.txtProd2.Value & "'"
    If Not IsNull(Me.txtProd3.Value) Then sql = sql & ", '" & Me.txtProd3.Value & "'"
    If Not IsNull(Me.txtProd4.Value) Then sql = sql & ", '" & Me.txtProd4.Value & "'"
    If Not IsNull(Me.txtProd5.Value) Then sql = sql & ", '" & Me.txtProd5.Value & "'"
    If Not IsNull(Me.txtProd6.Value) Then sql = sql & ", '" & Me.txtProd6.Value & "'"
    If Not IsNull(Me.txtProd7.Value) Then sql = sql & ", '" & Me.txtProd7.Value & "'"
    If Not IsNull(Me.txtProd8.Value) Then sql = sql & ", '" & Me.txtProd8.Value & "'"
    If Not IsNull(Me.txtProd9.Value) Then sql = sql & ", '" & Me.txtProd9.Value & "'"
    If Not IsNull(Me.txtProd10.Value) Then sql = sql & ", '" & Me.txtProd10.Value & "'"
    If Not IsNull(Me.txtQntd1.Value) Then sql = sql & ", '" & Me.txtQntd1.Value & "'"
    If Not IsNull(Me.txtQntd2.Value) Then sql = sql & ", '" & Me.txtQntd2.Value & "'"
    If Not IsNull(Me.txtQntd3.Value) Then sql = sql & ", '" & Me.txtQntd3.Value & "'"
    If Not IsNull(Me.txtQntd4.Value) Then sql = sql & ", '" & Me.txtQntd4.Value & "'"
    If Not IsNull(Me.txtQntd5.Value) Then sql = sql & ", '" & Me.txtQntd5.Value & "'"
    If Not IsNull(Me.txtQntd6.Value) Then sql = sql & ", '" & Me.txtQntd6.Value & "'"
    If Not IsNull(Me.txtQntd7.Value) Then sql = sql & ", '" & Me.txtQntd7.Value & "'"
    If Not IsNull(Me.txtQntd8.Value) Then sql = sql & ", '" & Me.txtQntd8.Value & "'"
    If Not IsNull(Me.txtQntd9.Value) Then sql = sql & ", '" & Me.txtQntd9.Value & "'"
    If Not IsNull(Me.txtQntd10.Value) Then sql = sql & ", '" & Me.txtQntd10.Value & "'"
    If Not IsNull(Me.txtcod1.Value) Then sql = sql & ", '" & Me.txtcod1.Value & "'"
    If Not IsNull(Me.txtcod2.Value) Then sql = sql & ", '" & Me.txtcod2.Value & "'"
    If Not IsNull(Me.txtcod3.Value) Then sql = sql & ", '" & Me.txtcod3.Value & "'"
    If Not IsNull(Me.txtcod4.Value) Then sql = sql & ", '" & Me.txtcod4.Value & "'"
    If Not IsNull(Me.txtcod5.Value) Then sql = sql & ", '" & Me.txtcod5.Value & "'"
    If Not IsNull(Me.txtcod6.Value) Then sql = sql & ", '" & Me.txtcod6.Value & "'"
    If Not IsNull(Me.txtcod7.Value) Then sql = sql & ", '" & Me.txtcod7.Value & "'"
    If Not IsNull(Me.txtcod8.Value) Then sql = sql & ", '" & Me.txtcod8.Value & "'"
    If Not IsNull(Me.txtcod9.Value) Then sql = sql & ", '" & Me.txtcod9.Value & "'"
    If Not IsNull(Me.txtcod10.Value) Then sql = sql & ", '" & Me.txtcod10.Value & "'"
    If Not IsNull(Me.txtPdia1.Value) Then sql = sql & ", '" & Me.txtPdia1.Value & "'"
    If Not IsNull(Me.txtPdia2.Value) Then sql = sql & ", '" & Me.txtPdia2.Value & "'"
    If Not IsNull(Me.txtPdia3.Value) Then sql = sql & ", '" & Me.txtPdia3.Value & "'"
    If Not IsNull(Me.txtPdia4.Value) Then sql = sql & ", '" & Me.txtPdia4.Value & "'"
    If Not IsNull(Me.txtPdia5.Value) Then sql = sql & ", '" & Me.txtPdia5.Value & "'"
    If Not IsNull(Me.txtPdia6.Value) Then sql = sql & ", '" & Me.txtPdia6.Value & "'"
    If Not IsNull(Me.txtPdia7.Value) Then sql = sql & ", '" & Me.txtPdia7.Value & "'"
    If Not IsNull(Me.txtPdia8.Value) Then sql = sql & ", '" & Me.txtPdia8.Value & "'"
    If Not IsNull(Me.txtPdia9.Value) Then sql = sql & ", '" & Me.txtPdia9.Value & "'"
    If Not IsNull(Me.txtPdia10.Value) Then sql = sql & ", '" & Me.txtPdia10.Value & "'"
    If Not IsNull(Me.txtIni1.Value) Then sql = sql & ", '" & Me.txtIni1.Value & "'"
    If Not IsNull(Me.txtProd1Acab.Value) Then sql = sql & ", '" & Me.txtProd1Acab.Value & "'"
    If Not IsNull(Me.txtProd2Acab.Value) Then sql = sql & ", '" & Me.txtProd2Acab.Value & "'"
    If Not IsNull(Me.txtProd3Acab.Value) Then sql = sql & ", '" & Me.txtProd3Acab.Value & "'"
    If Not IsNull(Me.txtProd4Acab.Value) Then sql = sql & ", '" & Me.txtProd4Acab.Value & "'"
    If Not IsNull(Me.txtProd5Acab.Value) Then sql = sql & ", '" & Me.txtProd5Acab.Value & "'"
    If Not IsNull(Me.txtProd6Acab.Value) Then sql = sql & ", '" & Me.txtProd6Acab.Value & "'"
    If Not IsNull(Me.txtProd7Acab.Value) Then sql = sql & ", '" & Me.txtProd7Acab.Value & "'"
    If Not IsNull(Me.txtProd8Acab.Value) Then sql = sql & ", '" & Me.txtProd8Acab.Value & "'"
    If Not IsNull(Me.txtProd9Acab.Value) Then sql = sql & ", '" & Me.txtProd9Acab.Value & "'"
    If Not IsNull(Me.txtProd10Acab.Value) Then sql = sql & ", '" & Me.txtProd10Acab.Value & "'"
    If Not IsNull(Me.txtQntd1Acab.Value) Then sql = sql & ", '" & Me.txtQntd1Acab.Value & "'"
    If Not IsNull(Me.txtQntd2Acab.Value) Then sql = sql & ", '" & Me.txtQntd2Acab.Value & "'"
    If Not IsNull(Me.txtQntd3Acab.Value) Then sql = sql & ", '" & Me.txtQntd3Acab.Value & "'"
    If Not IsNull(Me.txtQntd4Acab.Value) Then sql = sql & ", '" & Me.txtQntd4Acab.Value & "'"
    If Not IsNull(Me.txtQntd5Acab.Value) Then sql = sql & ", '" & Me.txtQntd5Acab.Value & "'"
    If Not IsNull(Me.txtQntd6Acab.Value) Then sql = sql & ", '" & Me.txtQntd6Acab.Value & "'"
    If Not IsNull(Me.txtQntd7Acab.Value) Then sql = sql & ", '" & Me.txtQntd7Acab.Value & "'"
    If Not IsNull(Me.txtQntd8Acab.Value) Then sql = sql & ", '" & Me.txtQntd8Acab.Value & "'"
    If Not IsNull(Me.txtQntd9Acab.Value) Then sql = sql & ", '" & Me.txtQntd9Acab.Value & "'"
    If Not IsNull(Me.txtQntd10Acab.Value) Then sql = sql & ", '" & Me.txtQntd10Acab.Value & "'"
    If Not IsNull(Me.txtcod1Acab.Value) Then sql = sql & ", '" & Me.txtcod1Acab.Value & "'"
    If Not IsNull(Me.txtcod2Acab.Value) Then sql = sql & ", '" & Me.txtcod2Acab.Value & "'"
    If Not IsNull(Me.txtcod3Acab.Value) Then sql = sql & ", '" & Me.txtcod3Acab.Value & "'"
    If Not IsNull(Me.txtcod4Acab.Value) Then sql = sql & ", '" & Me.txtcod4Acab.Value & "'"
    If Not IsNull(Me.txtcod5Acab.Value) Then sql = sql & ", '" & Me.txtcod5Acab.Value & "'"
    If Not IsNull(Me.txtcod6Acab.Value) Then sql = sql & ", '" & Me.txtcod6Acab.Value & "'"
    If Not IsNull(Me.txtcod7Acab.Value) Then sql = sql & ", '" & Me.txtcod7Acab.Value & "'"
    If Not IsNull(Me.txtcod8Acab.Value) Then sql = sql & ", '" & Me.txtcod8Acab.Value & "'"
    If Not IsNull(Me.txtcod9Acab.Value) Then sql = sql & ", '" & Me.txtcod9Acab.Value & "'"
    If Not IsNull(Me.txtcod10Acab.Value) Then sql = sql & ", '" & Me.txtcod10Acab.Value & "'"
    If Not IsNull(Me.txtPdia1Acab.Value) Then sql = sql & ", '" & Me.txtPdia1Acab.Value & "'"
    If Not IsNull(Me.txtPdia2Acab.Value) Then sql = sql & ", '" & Me.txtPdia2Acab.Value & "'"
    If Not IsNull(Me.txtPdia3Acab.Value) Then sql = sql & ", '" & Me.txtPdia3Acab.Value & "'"
    If Not IsNull(Me.txtPdia4Acab.Value) Then sql = sql & ", '" & Me.txtPdia4Acab.Value & "'"
    If Not IsNull(Me.txtPdia5Acab.Value) Then sql = sql & ", '" & Me.txtPdia5Acab.Value & "'"
    If Not IsNull(Me.txtPdia6Acab.Value) Then sql = sql & ", '" & Me.txtPdia6Acab.Value & "'"
    If Not IsNull(Me.txtPdia7Acab.Value) Then sql = sql & ", '" & Me.txtPdia7Acab.Value & "'"
    If Not IsNull(Me.txtPdia8Acab.Value) Then sql = sql & ", '" & Me.txtPdia8Acab.Value & "'"
    If Not IsNull(Me.txtPdia9Acab.Value) Then sql = sql & ", '" & Me.txtPdia9Acab.Value & "'"
    If Not IsNull(Me.txtPdia10Acab.Value) Then sql = sql & ", '" & Me.txtPdia10Acab.Value & "'"
    sql = sql & " )"
    
    Set banco = New ADODB.Recordset
    cx.Conectar
    banco.Open sql, cx.conn
    Set banco = Nothing
    cx.Desconectar
Call TiraZeros
Call LimpaRelogio
    MsgBox "Planejamento efetuado com sucesso.", vbInformation, "Data: " & Me.txtData.Text
End Sub
Private Sub Altera_Registro()
Call Zeros
    sql = "UPDATE Planejamento"
    If Not IsNull(Me.txtData.Value) Then sql = sql & " SET Data = '" & Me.txtData.Value & "'"
    If Not IsNull(Me.txtProd1.Value) Then sql = sql & ", ProdutoUm = '" & Me.txtProd1.Value & "'"
    If Not IsNull(Me.txtProd2.Value) Then sql = sql & ", ProdutoDois = '" & Me.txtProd2.Value & "'"
    If Not IsNull(Me.txtProd3.Value) Then sql = sql & ", ProdutoTres = '" & Me.txtProd3.Value & "'"
    If Not IsNull(Me.txtProd4.Value) Then sql = sql & ", ProdutoQuatro = '" & Me.txtProd4.Value & "'"
    If Not IsNull(Me.txtProd5.Value) Then sql = sql & ", ProdutoCinco = '" & Me.txtProd5.Value & "'"
    If Not IsNull(Me.txtProd6.Value) Then sql = sql & ", ProdutoSeis = '" & Me.txtProd6.Value & "'"
    If Not IsNull(Me.txtProd7.Value) Then sql = sql & ", ProdutoSete = '" & Me.txtProd7.Value & "'"
    If Not IsNull(Me.txtProd8.Value) Then sql = sql & ", ProdutoOito = '" & Me.txtProd8.Value & "'"
    If Not IsNull(Me.txtProd9.Value) Then sql = sql & ", ProdutoNove = '" & Me.txtProd9.Value & "'"
    If Not IsNull(Me.txtProd10.Value) Then sql = sql & ", ProdutoDez = '" & Me.txtProd10.Value & "'"
    If Not IsNull(Me.txtQntd1.Value) Then sql = sql & ", QntdUm = '" & Me.txtQntd1.Value & "'"
    If Not IsNull(Me.txtQntd2.Value) Then sql = sql & ", QntdDois = '" & Me.txtQntd2.Value & "'"
    If Not IsNull(Me.txtQntd3.Value) Then sql = sql & ", QntdTres = '" & Me.txtQntd3.Value & "'"
    If Not IsNull(Me.txtQntd4.Value) Then sql = sql & ", QntdQuatro = '" & Me.txtQntd4.Value & "'"
    If Not IsNull(Me.txtQntd5.Value) Then sql = sql & ", QntdCinco = '" & Me.txtQntd5.Value & "'"
    If Not IsNull(Me.txtQntd6.Value) Then sql = sql & ", QntdSeis = '" & Me.txtQntd6.Value & "'"
    If Not IsNull(Me.txtQntd7.Value) Then sql = sql & ", QntdSete = '" & Me.txtQntd7.Value & "'"
    If Not IsNull(Me.txtQntd8.Value) Then sql = sql & ", QntdOito = '" & Me.txtQntd8.Value & "'"
    If Not IsNull(Me.txtQntd9.Value) Then sql = sql & ", QntdNove = '" & Me.txtQntd9.Value & "'"
    If Not IsNull(Me.txtQntd10.Value) Then sql = sql & ", QntdDez = '" & Me.txtQntd10.Value & "'"
    If Not IsNull(Me.txtcod1.Value) Then sql = sql & ", CodUm = '" & Me.txtcod1.Value & "'"
    If Not IsNull(Me.txtcod2.Value) Then sql = sql & ", CodDois = '" & Me.txtcod2.Value & "'"
    If Not IsNull(Me.txtcod3.Value) Then sql = sql & ", CodTres = '" & Me.txtcod3.Value & "'"
    If Not IsNull(Me.txtcod4.Value) Then sql = sql & ", CodQuatro = '" & Me.txtcod4.Value & "'"
    If Not IsNull(Me.txtcod5.Value) Then sql = sql & ", CodCinco = '" & Me.txtcod5.Value & "'"
    If Not IsNull(Me.txtcod6.Value) Then sql = sql & ", CodSeis = '" & Me.txtcod6.Value & "'"
    If Not IsNull(Me.txtcod7.Value) Then sql = sql & ", CodSete = '" & Me.txtcod7.Value & "'"
    If Not IsNull(Me.txtcod8.Value) Then sql = sql & ", CodOito = '" & Me.txtcod8.Value & "'"
    If Not IsNull(Me.txtcod9.Value) Then sql = sql & ", CodNove = '" & Me.txtcod9.Value & "'"
    If Not IsNull(Me.txtcod10.Value) Then sql = sql & ", CodDez = '" & Me.txtcod10.Value & "'"
    If Not IsNull(Me.txtPdia1.Value) Then sql = sql & ", PdiaUm = '" & Me.txtPdia1.Value & "'"
    If Not IsNull(Me.txtPdia2.Value) Then sql = sql & ", PdiaDois = '" & Me.txtPdia2.Value & "'"
    If Not IsNull(Me.txtPdia3.Value) Then sql = sql & ", PdiaTres = '" & Me.txtPdia3.Value & "'"
    If Not IsNull(Me.txtPdia4.Value) Then sql = sql & ", PdiaQuatro = '" & Me.txtPdia4.Value & "'"
    If Not IsNull(Me.txtPdia5.Value) Then sql = sql & ", PdiaCinco = '" & Me.txtPdia5.Value & "'"
    If Not IsNull(Me.txtPdia6.Value) Then sql = sql & ", PdiaSeis = '" & Me.txtPdia6.Value & "'"
    If Not IsNull(Me.txtPdia7.Value) Then sql = sql & ", PdiaSete = '" & Me.txtPdia7.Value & "'"
    If Not IsNull(Me.txtPdia8.Value) Then sql = sql & ", PdiaOito = '" & Me.txtPdia8.Value & "'"
    If Not IsNull(Me.txtPdia9.Value) Then sql = sql & ", PdiaNove = '" & Me.txtPdia9.Value & "'"
    If Not IsNull(Me.txtPdia10.Value) Then sql = sql & ", PdiaDez = '" & Me.txtPdia10.Value & "'"
    If Not IsNull(Me.txtIni1.Value) Then sql = sql & ", Inicio = '" & Me.txtIni1.Value & "'"
    If Not IsNull(Me.txtProd1Acab.Value) Then sql = sql & ", ProdutoUmAcab = '" & Me.txtProd1Acab.Value & "'"
    If Not IsNull(Me.txtProd2Acab.Value) Then sql = sql & ", ProdutoDoisAcab = '" & Me.txtProd2Acab.Value & "'"
    If Not IsNull(Me.txtProd3Acab.Value) Then sql = sql & ", ProdutoTresAcab = '" & Me.txtProd3Acab.Value & "'"
    If Not IsNull(Me.txtProd4Acab.Value) Then sql = sql & ", ProdutoQuatroAcab = '" & Me.txtProd4Acab.Value & "'"
    If Not IsNull(Me.txtProd5Acab.Value) Then sql = sql & ", ProdutoCincoAcab = '" & Me.txtProd5Acab.Value & "'"
    If Not IsNull(Me.txtProd6Acab.Value) Then sql = sql & ", ProdutoSeisAcab = '" & Me.txtProd6Acab.Value & "'"
    If Not IsNull(Me.txtProd7Acab.Value) Then sql = sql & ", ProdutoSeteAcab = '" & Me.txtProd7Acab.Value & "'"
    If Not IsNull(Me.txtProd8Acab.Value) Then sql = sql & ", ProdutoOitoAcab = '" & Me.txtProd8Acab.Value & "'"
    If Not IsNull(Me.txtProd9Acab.Value) Then sql = sql & ", ProdutoNoveAcab = '" & Me.txtProd9Acab.Value & "'"
    If Not IsNull(Me.txtProd10Acab.Value) Then sql = sql & ", ProdutoDezAcab = '" & Me.txtProd10Acab.Value & "'"
    If Not IsNull(Me.txtQntd1Acab.Value) Then sql = sql & ", QntdUmAcab = '" & Me.txtQntd1Acab.Value & "'"
    If Not IsNull(Me.txtQntd2Acab.Value) Then sql = sql & ", QntdDoisAcab = '" & Me.txtQntd2Acab.Value & "'"
    If Not IsNull(Me.txtQntd3Acab.Value) Then sql = sql & ", QntdTresAcab = '" & Me.txtQntd3Acab.Value & "'"
    If Not IsNull(Me.txtQntd4Acab.Value) Then sql = sql & ", QntdQuatroAcab = '" & Me.txtQntd4Acab.Value & "'"
    If Not IsNull(Me.txtQntd5Acab.Value) Then sql = sql & ", QntdCincoAcab = '" & Me.txtQntd5Acab.Value & "'"
    If Not IsNull(Me.txtQntd6Acab.Value) Then sql = sql & ", QntdSeisAcab = '" & Me.txtQntd6Acab.Value & "'"
    If Not IsNull(Me.txtQntd7Acab.Value) Then sql = sql & ", QntdSeteAcab = '" & Me.txtQntd7Acab.Value & "'"
    If Not IsNull(Me.txtQntd8Acab.Value) Then sql = sql & ", QntdOitoAcab = '" & Me.txtQntd8Acab.Value & "'"
    If Not IsNull(Me.txtQntd9Acab.Value) Then sql = sql & ", QntdNoveAcab = '" & Me.txtQntd9Acab.Value & "'"
    If Not IsNull(Me.txtQntd10Acab.Value) Then sql = sql & ", QntdDezAcab = '" & Me.txtQntd10Acab.Value & "'"
    If Not IsNull(Me.txtcod1Acab.Value) Then sql = sql & ", CodUmAcab = '" & Me.txtcod1Acab.Value & "'"
    If Not IsNull(Me.txtcod2Acab.Value) Then sql = sql & ", CodDoisAcab = '" & Me.txtcod2Acab.Value & "'"
    If Not IsNull(Me.txtcod3Acab.Value) Then sql = sql & ", CodTresAcab = '" & Me.txtcod3Acab.Value & "'"
    If Not IsNull(Me.txtcod4Acab.Value) Then sql = sql & ", CodQuatroAcab = '" & Me.txtcod4Acab.Value & "'"
    If Not IsNull(Me.txtcod5Acab.Value) Then sql = sql & ", CodCincoAcab = '" & Me.txtcod5Acab.Value & "'"
    If Not IsNull(Me.txtcod6Acab.Value) Then sql = sql & ", CodSeisAcab = '" & Me.txtcod6Acab.Value & "'"
    If Not IsNull(Me.txtcod7Acab.Value) Then sql = sql & ", CodSeteAcab = '" & Me.txtcod7Acab.Value & "'"
    If Not IsNull(Me.txtcod8Acab.Value) Then sql = sql & ", CodOitoAcab = '" & Me.txtcod8Acab.Value & "'"
    If Not IsNull(Me.txtcod9Acab.Value) Then sql = sql & ", CodNoveAcab = '" & Me.txtcod9Acab.Value & "'"
    If Not IsNull(Me.txtcod10Acab.Value) Then sql = sql & ", CodDezAcab = '" & Me.txtcod10Acab.Value & "'"
    If Not IsNull(Me.txtPdia1Acab.Value) Then sql = sql & ", PdiaUmAcab = '" & Me.txtPdia1Acab.Value & "'"
    If Not IsNull(Me.txtPdia2Acab.Value) Then sql = sql & ", PdiaDoisAcab = '" & Me.txtPdia2Acab.Value & "'"
    If Not IsNull(Me.txtPdia3Acab.Value) Then sql = sql & ", PdiaTresAcab = '" & Me.txtPdia3Acab.Value & "'"
    If Not IsNull(Me.txtPdia4Acab.Value) Then sql = sql & ", PdiaQuatroAcab = '" & Me.txtPdia4Acab.Value & "'"
    If Not IsNull(Me.txtPdia5Acab.Value) Then sql = sql & ", PdiaCincoAcab = '" & Me.txtPdia5Acab.Value & "'"
    If Not IsNull(Me.txtPdia6Acab.Value) Then sql = sql & ", PdiaSeisAcab = '" & Me.txtPdia6Acab.Value & "'"
    If Not IsNull(Me.txtPdia7Acab.Value) Then sql = sql & ", PdiaSeteAcab = '" & Me.txtPdia7Acab.Value & "'"
    If Not IsNull(Me.txtPdia8Acab.Value) Then sql = sql & ", PdiaOitoAcab = '" & Me.txtPdia8Acab.Value & "'"
    If Not IsNull(Me.txtPdia9Acab.Value) Then sql = sql & ", PdiaNoveAcab = '" & Me.txtPdia9Acab.Value & "'"
    If Not IsNull(Me.txtPdia10Acab.Value) Then sql = sql & ", PdiaDezAcab = '" & Me.txtPdia10Acab.Value & "'"
    sql = sql & " WHERE Código = " & Me.txtCodigo.Value
    
    Set banco = New ADODB.Recordset
    banco.Open sql, cx.conn
    Set banco = Nothing
    cx.Desconectar
Call TiraZeros
Call LimpaRelogio
    MsgBox "Planejamento alterado com sucesso.", vbInformation, "Data: " & Me.txtData.Text
End Sub
Private Function PegaProximoId() As Long
    Dim rangeIds
            sql = "SELECT Código FROM Planejamento"
            Set banco = New ADODB.Recordset
            'cx.Conectar
            banco.Open sql, cx.conn, adOpenKeyset, adLockOptimistic
            rangeIds = banco.GetRows
            PegaProximoId = WorksheetFunction.Max(rangeIds) + 1
            Set banco = Nothing
            cx.Desconectar
End Function

Private Sub btnSalvar_Click()
Application.ScreenUpdating = False
sql = "SELECT Data FROM Planejamento WHERE Data = #" & Me.txtData & "#"
    Set banco = New ADODB.Recordset
    cx.Conectar
    banco.Open sql, cx.conn, adOpenKeyset
If IsNull(banco.RecordCount) Or banco.RecordCount < 1 Then  'Se o Recordset é nulo ou não existe o registro:
    Call Incluir_Registro
Else
    Call Altera_Registro
End If
Application.ScreenUpdating = True
End Sub
OBS: Tirei a Sub "Zeros" e "TiraZeros" acima, pois a postagem estava ultrapassando o limite de caracteres do fórum, mas as duas Sub's estão da mesma forma abaixo no outro userform...


Userform 2 (NÃO FUNCIONA o screenupdate, ao clicar no Salvar, o sistema exibe todo processo, ou seja, colocar os zeros, lançar no banco de dados e tirar os zeros, demora cerca de 3 a 4 segundos para terminar)

Código: Selecionar todos

Private Sub Zeros()
If Me.txtQntd1.Value = "" Then Me.txtQntd1.Value = "0"
If Me.txtQntd2.Value = "" Then Me.txtQntd2.Value = "0"
If Me.txtQntd3.Value = "" Then Me.txtQntd3.Value = "0"
If Me.txtQntd4.Value = "" Then Me.txtQntd4.Value = "0"
If Me.txtQntd5.Value = "" Then Me.txtQntd5.Value = "0"
If Me.txtQntd6.Value = "" Then Me.txtQntd6.Value = "0"
If Me.txtQntd7.Value = "" Then Me.txtQntd7.Value = "0"
If Me.txtQntd8.Value = "" Then Me.txtQntd8.Value = "0"
If Me.txtQntd9.Value = "" Then Me.txtQntd9.Value = "0"
If Me.txtQntd10.Value = "" Then Me.txtQntd10.Value = "0"
If Me.txtAlcan1.Value = "" Then Me.txtAlcan1.Value = "0"
If Me.txtAlcan2.Value = "" Then Me.txtAlcan2.Value = "0"
If Me.txtAlcan3.Value = "" Then Me.txtAlcan3.Value = "0"
If Me.txtAlcan4.Value = "" Then Me.txtAlcan4.Value = "0"
If Me.txtAlcan5.Value = "" Then Me.txtAlcan5.Value = "0"
If Me.txtAlcan6.Value = "" Then Me.txtAlcan6.Value = "0"
If Me.txtAlcan7.Value = "" Then Me.txtAlcan7.Value = "0"
If Me.txtAlcan8.Value = "" Then Me.txtAlcan8.Value = "0"
If Me.txtAlcan9.Value = "" Then Me.txtAlcan9.Value = "0"
If Me.txtAlcan10.Value = "" Then Me.txtAlcan10.Value = "0"
If Me.txtQntd1Acab.Value = "" Then Me.txtQntd1Acab.Value = "0"
If Me.txtQntd2Acab.Value = "" Then Me.txtQntd2Acab.Value = "0"
If Me.txtQntd3Acab.Value = "" Then Me.txtQntd3Acab.Value = "0"
If Me.txtQntd4Acab.Value = "" Then Me.txtQntd4Acab.Value = "0"
If Me.txtQntd5Acab.Value = "" Then Me.txtQntd5Acab.Value = "0"
If Me.txtQntd6Acab.Value = "" Then Me.txtQntd6Acab.Value = "0"
If Me.txtQntd7Acab.Value = "" Then Me.txtQntd7Acab.Value = "0"
If Me.txtQntd8Acab.Value = "" Then Me.txtQntd8Acab.Value = "0"
If Me.txtQntd9Acab.Value = "" Then Me.txtQntd9Acab.Value = "0"
If Me.txtQntd10Acab.Value = "" Then Me.txtQntd10Acab.Value = "0"
If Me.txtAlcan1Acab.Value = "" Then Me.txtAlcan1Acab.Value = "0"
If Me.txtAlcan2Acab.Value = "" Then Me.txtAlcan2Acab.Value = "0"
If Me.txtAlcan3Acab.Value = "" Then Me.txtAlcan3Acab.Value = "0"
If Me.txtAlcan4Acab.Value = "" Then Me.txtAlcan4Acab.Value = "0"
If Me.txtAlcan5Acab.Value = "" Then Me.txtAlcan5Acab.Value = "0"
If Me.txtAlcan6Acab.Value = "" Then Me.txtAlcan6Acab.Value = "0"
If Me.txtAlcan7Acab.Value = "" Then Me.txtAlcan7Acab.Value = "0"
If Me.txtAlcan8Acab.Value = "" Then Me.txtAlcan8Acab.Value = "0"
If Me.txtAlcan9Acab.Value = "" Then Me.txtAlcan9Acab.Value = "0"
If Me.txtAlcan10Acab.Value = "" Then Me.txtAlcan10Acab.Value = "0"
End Sub
Sub TiraZeros()
If Me.txtQntd1.Value = "0" Then Me.txtQntd1.Value = ""
If Me.txtQntd2.Value = "0" Then Me.txtQntd2.Value = ""
If Me.txtQntd3.Value = "0" Then Me.txtQntd3.Value = ""
If Me.txtQntd4.Value = "0" Then Me.txtQntd4.Value = ""
If Me.txtQntd5.Value = "0" Then Me.txtQntd5.Value = ""
If Me.txtQntd6.Value = "0" Then Me.txtQntd6.Value = ""
If Me.txtQntd7.Value = "0" Then Me.txtQntd7.Value = ""
If Me.txtQntd8.Value = "0" Then Me.txtQntd8.Value = ""
If Me.txtQntd9.Value = "0" Then Me.txtQntd9.Value = ""
If Me.txtQntd10.Value = "0" Then Me.txtQntd10.Value = ""
If Me.txtAlcan1.Value = "0" Then Me.txtAlcan1.Value = ""
If Me.txtAlcan2.Value = "0" Then Me.txtAlcan2.Value = ""
If Me.txtAlcan3.Value = "0" Then Me.txtAlcan3.Value = ""
If Me.txtAlcan4.Value = "0" Then Me.txtAlcan4.Value = ""
If Me.txtAlcan5.Value = "0" Then Me.txtAlcan5.Value = ""
If Me.txtAlcan6.Value = "0" Then Me.txtAlcan6.Value = ""
If Me.txtAlcan7.Value = "0" Then Me.txtAlcan7.Value = ""
If Me.txtAlcan8.Value = "0" Then Me.txtAlcan8.Value = ""
If Me.txtAlcan9.Value = "0" Then Me.txtAlcan9.Value = ""
If Me.txtAlcan10.Value = "0" Then Me.txtAlcan10.Value = ""
If Me.txtQntd1Acab.Value = "0" Then Me.txtQntd1Acab.Value = ""
If Me.txtQntd2Acab.Value = "0" Then Me.txtQntd2Acab.Value = ""
If Me.txtQntd3Acab.Value = "0" Then Me.txtQntd3Acab.Value = ""
If Me.txtQntd4Acab.Value = "0" Then Me.txtQntd4Acab.Value = ""
If Me.txtQntd5Acab.Value = "0" Then Me.txtQntd5Acab.Value = ""
If Me.txtQntd6Acab.Value = "0" Then Me.txtQntd6Acab.Value = ""
If Me.txtQntd7Acab.Value = "0" Then Me.txtQntd7Acab.Value = ""
If Me.txtQntd8Acab.Value = "0" Then Me.txtQntd8Acab.Value = ""
If Me.txtQntd9Acab.Value = "0" Then Me.txtQntd9Acab.Value = ""
If Me.txtQntd10Acab.Value = "0" Then Me.txtQntd10Acab.Value = ""
If Me.txtAlcan1Acab.Value = "0" Then Me.txtAlcan1Acab.Value = ""
If Me.txtAlcan2Acab.Value = "0" Then Me.txtAlcan2Acab.Value = ""
If Me.txtAlcan3Acab.Value = "0" Then Me.txtAlcan3Acab.Value = ""
If Me.txtAlcan4Acab.Value = "0" Then Me.txtAlcan4Acab.Value = ""
If Me.txtAlcan5Acab.Value = "0" Then Me.txtAlcan5Acab.Value = ""
If Me.txtAlcan6Acab.Value = "0" Then Me.txtAlcan6Acab.Value = ""
If Me.txtAlcan7Acab.Value = "0" Then Me.txtAlcan7Acab.Value = ""
If Me.txtAlcan8Acab.Value = "0" Then Me.txtAlcan8Acab.Value = ""
If Me.txtAlcan9Acab.Value = "0" Then Me.txtAlcan9Acab.Value = ""
If Me.txtAlcan10Acab.Value = "0" Then Me.txtAlcan10Acab.Value = ""
End Sub

Sub Incluir_Registro()
Call Zeros
    Dim proximoId As Long
    proximoId = PegaProximoId
    txtCodigo = proximoId
sql = "INSERT INTO Realizado(Código, Data, ProdutoUm, ProdutoDois, ProdutoTres, ProdutoQuatro, ProdutoCinco, ProdutoSeis, ProdutoSete, " _
& "ProdutoOito , ProdutoNove, ProdutoDez, QntdUm, QntdDois, QntdTres, QntdQuatro, QntdCinco, QntdSeis, QntdSete, QntdOito, QntdNove, " _
& "QntdDez, AlcanUm, AlcanDois, AlcanTres, AlcanQuatro, AlcanCinco, AlcanSeis, AlcanSete, AlcanOito, AlcanNove, AlcanDez, ProdutoUmAcab, " _
& "ProdutoDoisAcab, ProdutoTresAcab, ProdutoQuatroAcab, ProdutoCincoAcab, ProdutoSeisAcab, ProdutoSeteAcab, ProdutoOitoAcab, " _
& "ProdutoNoveAcab, ProdutoDezAcab, QntdUmAcab, QntdDoisAcab, QntdTresAcab, QntdQuatroAcab, QntdCincoAcab, QntdSeisAcab, QntdSeteAcab, " _
& "QntdOitoAcab, QntdNoveAcab, QntdDezAcab, AlcanUmAcab, AlcanDoisAcab, AlcanTresAcab, AlcanQuatroAcab, AlcanCincoAcab, AlcanSeisAcab, " _
& "AlcanSeteAcab, AlcanOitoAcab, AlcanNoveAcab, AlcanDezAcab, Aproveitamento, AproveitamentoAcab)"
    sql = sql & " VALUES ("
    If Not IsNull(Me.txtCodigo.Value) Then sql = sql & " '" & Me.txtCodigo.Value & "'"
    If Not IsNull(Me.txtData.Value) Then sql = sql & ", '" & Me.txtData.Value & "'"
    If Not IsNull(Me.txtProd1.Value) Then sql = sql & ", '" & Me.txtProd1.Value & "'"
    If Not IsNull(Me.txtProd2.Value) Then sql = sql & ", '" & Me.txtProd2.Value & "'"
    If Not IsNull(Me.txtProd3.Value) Then sql = sql & ", '" & Me.txtProd3.Value & "'"
    If Not IsNull(Me.txtProd4.Value) Then sql = sql & ", '" & Me.txtProd4.Value & "'"
    If Not IsNull(Me.txtProd5.Value) Then sql = sql & ", '" & Me.txtProd5.Value & "'"
    If Not IsNull(Me.txtProd6.Value) Then sql = sql & ", '" & Me.txtProd6.Value & "'"
    If Not IsNull(Me.txtProd7.Value) Then sql = sql & ", '" & Me.txtProd7.Value & "'"
    If Not IsNull(Me.txtProd8.Value) Then sql = sql & ", '" & Me.txtProd8.Value & "'"
    If Not IsNull(Me.txtProd9.Value) Then sql = sql & ", '" & Me.txtProd9.Value & "'"
    If Not IsNull(Me.txtProd10.Value) Then sql = sql & ", '" & Me.txtProd10.Value & "'"
    If Not IsNull(Me.txtQntd1.Value) Then sql = sql & ", '" & Me.txtQntd1.Value & "'"
    If Not IsNull(Me.txtQntd2.Value) Then sql = sql & ", '" & Me.txtQntd2.Value & "'"
    If Not IsNull(Me.txtQntd3.Value) Then sql = sql & ", '" & Me.txtQntd3.Value & "'"
    If Not IsNull(Me.txtQntd4.Value) Then sql = sql & ", '" & Me.txtQntd4.Value & "'"
    If Not IsNull(Me.txtQntd5.Value) Then sql = sql & ", '" & Me.txtQntd5.Value & "'"
    If Not IsNull(Me.txtQntd6.Value) Then sql = sql & ", '" & Me.txtQntd6.Value & "'"
    If Not IsNull(Me.txtQntd7.Value) Then sql = sql & ", '" & Me.txtQntd7.Value & "'"
    If Not IsNull(Me.txtQntd8.Value) Then sql = sql & ", '" & Me.txtQntd8.Value & "'"
    If Not IsNull(Me.txtQntd9.Value) Then sql = sql & ", '" & Me.txtQntd9.Value & "'"
    If Not IsNull(Me.txtQntd10.Value) Then sql = sql & ", '" & Me.txtQntd10.Value & "'"
    If Not IsNull(Me.txtAlcan1.Value) Then sql = sql & ", '" & Me.txtAlcan1.Value & "'"
    If Not IsNull(Me.txtAlcan2.Value) Then sql = sql & ", '" & Me.txtAlcan2.Value & "'"
    If Not IsNull(Me.txtAlcan3.Value) Then sql = sql & ", '" & Me.txtAlcan3.Value & "'"
    If Not IsNull(Me.txtAlcan4.Value) Then sql = sql & ", '" & Me.txtAlcan4.Value & "'"
    If Not IsNull(Me.txtAlcan5.Value) Then sql = sql & ", '" & Me.txtAlcan5.Value & "'"
    If Not IsNull(Me.txtAlcan6.Value) Then sql = sql & ", '" & Me.txtAlcan6.Value & "'"
    If Not IsNull(Me.txtAlcan7.Value) Then sql = sql & ", '" & Me.txtAlcan7.Value & "'"
    If Not IsNull(Me.txtAlcan8.Value) Then sql = sql & ", '" & Me.txtAlcan8.Value & "'"
    If Not IsNull(Me.txtAlcan9.Value) Then sql = sql & ", '" & Me.txtAlcan9.Value & "'"
    If Not IsNull(Me.txtAlcan10.Value) Then sql = sql & ", '" & Me.txtAlcan10.Value & "'"
    If Not IsNull(Me.txtProd1Acab.Value) Then sql = sql & ", '" & Me.txtProd1Acab.Value & "'"
    If Not IsNull(Me.txtProd2Acab.Value) Then sql = sql & ", '" & Me.txtProd2Acab.Value & "'"
    If Not IsNull(Me.txtProd3Acab.Value) Then sql = sql & ", '" & Me.txtProd3Acab.Value & "'"
    If Not IsNull(Me.txtProd4Acab.Value) Then sql = sql & ", '" & Me.txtProd4Acab.Value & "'"
    If Not IsNull(Me.txtProd5Acab.Value) Then sql = sql & ", '" & Me.txtProd5Acab.Value & "'"
    If Not IsNull(Me.txtProd6Acab.Value) Then sql = sql & ", '" & Me.txtProd6Acab.Value & "'"
    If Not IsNull(Me.txtProd7Acab.Value) Then sql = sql & ", '" & Me.txtProd7Acab.Value & "'"
    If Not IsNull(Me.txtProd8Acab.Value) Then sql = sql & ", '" & Me.txtProd8Acab.Value & "'"
    If Not IsNull(Me.txtProd9Acab.Value) Then sql = sql & ", '" & Me.txtProd9Acab.Value & "'"
    If Not IsNull(Me.txtProd10Acab.Value) Then sql = sql & ", '" & Me.txtProd10Acab.Value & "'"
    If Not IsNull(Me.txtQntd1Acab.Value) Then sql = sql & ", '" & Me.txtQntd1Acab.Value & "'"
    If Not IsNull(Me.txtQntd2Acab.Value) Then sql = sql & ", '" & Me.txtQntd2Acab.Value & "'"
    If Not IsNull(Me.txtQntd3Acab.Value) Then sql = sql & ", '" & Me.txtQntd3Acab.Value & "'"
    If Not IsNull(Me.txtQntd4Acab.Value) Then sql = sql & ", '" & Me.txtQntd4Acab.Value & "'"
    If Not IsNull(Me.txtQntd5Acab.Value) Then sql = sql & ", '" & Me.txtQntd5Acab.Value & "'"
    If Not IsNull(Me.txtQntd6Acab.Value) Then sql = sql & ", '" & Me.txtQntd6Acab.Value & "'"
    If Not IsNull(Me.txtQntd7Acab.Value) Then sql = sql & ", '" & Me.txtQntd7Acab.Value & "'"
    If Not IsNull(Me.txtQntd8Acab.Value) Then sql = sql & ", '" & Me.txtQntd8Acab.Value & "'"
    If Not IsNull(Me.txtQntd9Acab.Value) Then sql = sql & ", '" & Me.txtQntd9Acab.Value & "'"
    If Not IsNull(Me.txtQntd10Acab.Value) Then sql = sql & ", '" & Me.txtQntd10Acab.Value & "'"
    If Not IsNull(Me.txtAlcan1Acab.Value) Then sql = sql & ", '" & Me.txtAlcan1Acab.Value & "'"
    If Not IsNull(Me.txtAlcan2Acab.Value) Then sql = sql & ", '" & Me.txtAlcan2Acab.Value & "'"
    If Not IsNull(Me.txtAlcan3Acab.Value) Then sql = sql & ", '" & Me.txtAlcan3Acab.Value & "'"
    If Not IsNull(Me.txtAlcan4Acab.Value) Then sql = sql & ", '" & Me.txtAlcan4Acab.Value & "'"
    If Not IsNull(Me.txtAlcan5Acab.Value) Then sql = sql & ", '" & Me.txtAlcan5Acab.Value & "'"
    If Not IsNull(Me.txtAlcan6Acab.Value) Then sql = sql & ", '" & Me.txtAlcan6Acab.Value & "'"
    If Not IsNull(Me.txtAlcan7Acab.Value) Then sql = sql & ", '" & Me.txtAlcan7Acab.Value & "'"
    If Not IsNull(Me.txtAlcan8Acab.Value) Then sql = sql & ", '" & Me.txtAlcan8Acab.Value & "'"
    If Not IsNull(Me.txtAlcan9Acab.Value) Then sql = sql & ", '" & Me.txtAlcan9Acab.Value & "'"
    If Not IsNull(Me.txtAlcan10Acab.Value) Then sql = sql & ", '" & Me.txtAlcan10Acab.Value & "'"
    If Not IsNull(Me.txtAprov2.Value) Then sql = sql & ", '" & Me.txtAprov2.Value & "'"
    If Not IsNull(Me.txtAprov2Acab.Value) Then sql = sql & ", '" & Me.txtAprov2Acab.Value & "'"
    sql = sql & " )"
    
    Set banco = New ADODB.Recordset
    cx.Conectar
    banco.Open sql, cx.conn
    Set banco = Nothing
    cx.Desconectar
Call TiraZeros
    MsgBox "Registro efetuado com sucesso.", vbInformation, "Data: " & Me.txtData.Text
End Sub
Private Sub Altera_Registro()
Call Zeros
    sql = "UPDATE Realizado"
    If Not IsNull(Me.txtData.Value) Then sql = sql & " SET Data = '" & Me.txtData.Value & "'"
    If Not IsNull(Me.txtProd1.Value) Then sql = sql & ", ProdutoUm = '" & Me.txtProd1.Value & "'"
    If Not IsNull(Me.txtProd2.Value) Then sql = sql & ", ProdutoDois = '" & Me.txtProd2.Value & "'"
    If Not IsNull(Me.txtProd3.Value) Then sql = sql & ", ProdutoTres = '" & Me.txtProd3.Value & "'"
    If Not IsNull(Me.txtProd4.Value) Then sql = sql & ", ProdutoQuatro = '" & Me.txtProd4.Value & "'"
    If Not IsNull(Me.txtProd5.Value) Then sql = sql & ", ProdutoCinco = '" & Me.txtProd5.Value & "'"
    If Not IsNull(Me.txtProd6.Value) Then sql = sql & ", ProdutoSeis = '" & Me.txtProd6.Value & "'"
    If Not IsNull(Me.txtProd7.Value) Then sql = sql & ", ProdutoSete = '" & Me.txtProd7.Value & "'"
    If Not IsNull(Me.txtProd8.Value) Then sql = sql & ", ProdutoOito = '" & Me.txtProd8.Value & "'"
    If Not IsNull(Me.txtProd9.Value) Then sql = sql & ", ProdutoNove = '" & Me.txtProd9.Value & "'"
    If Not IsNull(Me.txtProd10.Value) Then sql = sql & ", ProdutoDez = '" & Me.txtProd10.Value & "'"
    If Not IsNull(Me.txtQntd1.Value) Then sql = sql & ", QntdUm = '" & Me.txtQntd1.Value & "'"
    If Not IsNull(Me.txtQntd2.Value) Then sql = sql & ", QntdDois = '" & Me.txtQntd2.Value & "'"
    If Not IsNull(Me.txtQntd3.Value) Then sql = sql & ", QntdTres = '" & Me.txtQntd3.Value & "'"
    If Not IsNull(Me.txtQntd4.Value) Then sql = sql & ", QntdQuatro = '" & Me.txtQntd4.Value & "'"
    If Not IsNull(Me.txtQntd5.Value) Then sql = sql & ", QntdCinco = '" & Me.txtQntd5.Value & "'"
    If Not IsNull(Me.txtQntd6.Value) Then sql = sql & ", QntdSeis = '" & Me.txtQntd6.Value & "'"
    If Not IsNull(Me.txtQntd7.Value) Then sql = sql & ", QntdSete = '" & Me.txtQntd7.Value & "'"
    If Not IsNull(Me.txtQntd8.Value) Then sql = sql & ", QntdOito = '" & Me.txtQntd8.Value & "'"
    If Not IsNull(Me.txtQntd9.Value) Then sql = sql & ", QntdNove = '" & Me.txtQntd9.Value & "'"
    If Not IsNull(Me.txtQntd10.Value) Then sql = sql & ", QntdDez = '" & Me.txtQntd10.Value & "'"
    If Not IsNull(Me.txtAlcan1.Value) Then sql = sql & ", AlcanUm = '" & Me.txtAlcan1.Value & "'"
    If Not IsNull(Me.txtAlcan2.Value) Then sql = sql & ", AlcanDois = '" & Me.txtAlcan2.Value & "'"
    If Not IsNull(Me.txtAlcan3.Value) Then sql = sql & ", AlcanTres = '" & Me.txtAlcan3.Value & "'"
    If Not IsNull(Me.txtAlcan4.Value) Then sql = sql & ", AlcanQuatro = '" & Me.txtAlcan4.Value & "'"
    If Not IsNull(Me.txtAlcan5.Value) Then sql = sql & ", AlcanCinco = '" & Me.txtAlcan5.Value & "'"
    If Not IsNull(Me.txtAlcan6.Value) Then sql = sql & ", AlcanSeis = '" & Me.txtAlcan6.Value & "'"
    If Not IsNull(Me.txtAlcan7.Value) Then sql = sql & ", AlcanSete = '" & Me.txtAlcan7.Value & "'"
    If Not IsNull(Me.txtAlcan8.Value) Then sql = sql & ", AlcanOito = '" & Me.txtAlcan8.Value & "'"
    If Not IsNull(Me.txtAlcan9.Value) Then sql = sql & ", AlcanNove = '" & Me.txtAlcan9.Value & "'"
    If Not IsNull(Me.txtAlcan10.Value) Then sql = sql & ", AlcanDez = '" & Me.txtAlcan10.Value & "'"
    If Not IsNull(Me.txtProd1Acab.Value) Then sql = sql & ", ProdutoUmAcab = '" & Me.txtProd1Acab.Value & "'"
    If Not IsNull(Me.txtProd2Acab.Value) Then sql = sql & ", ProdutoDoisAcab = '" & Me.txtProd2Acab.Value & "'"
    If Not IsNull(Me.txtProd3Acab.Value) Then sql = sql & ", ProdutoTresAcab = '" & Me.txtProd3Acab.Value & "'"
    If Not IsNull(Me.txtProd4Acab.Value) Then sql = sql & ", ProdutoQuatroAcab = '" & Me.txtProd4Acab.Value & "'"
    If Not IsNull(Me.txtProd5Acab.Value) Then sql = sql & ", ProdutoCincoAcab = '" & Me.txtProd5Acab.Value & "'"
    If Not IsNull(Me.txtProd6Acab.Value) Then sql = sql & ", ProdutoSeisAcab = '" & Me.txtProd6Acab.Value & "'"
    If Not IsNull(Me.txtProd7Acab.Value) Then sql = sql & ", ProdutoSeteAcab = '" & Me.txtProd7Acab.Value & "'"
    If Not IsNull(Me.txtProd8Acab.Value) Then sql = sql & ", ProdutoOitoAcab = '" & Me.txtProd8Acab.Value & "'"
    If Not IsNull(Me.txtProd9Acab.Value) Then sql = sql & ", ProdutoNoveAcab = '" & Me.txtProd9Acab.Value & "'"
    If Not IsNull(Me.txtProd10Acab.Value) Then sql = sql & ", ProdutoDezAcab = '" & Me.txtProd10Acab.Value & "'"
    If Not IsNull(Me.txtQntd1Acab.Value) Then sql = sql & ", QntdUmAcab = '" & Me.txtQntd1Acab.Value & "'"
    If Not IsNull(Me.txtQntd2Acab.Value) Then sql = sql & ", QntdDoisAcab = '" & Me.txtQntd2Acab.Value & "'"
    If Not IsNull(Me.txtQntd3Acab.Value) Then sql = sql & ", QntdTresAcab = '" & Me.txtQntd3Acab.Value & "'"
    If Not IsNull(Me.txtQntd4Acab.Value) Then sql = sql & ", QntdQuatroAcab = '" & Me.txtQntd4Acab.Value & "'"
    If Not IsNull(Me.txtQntd5Acab.Value) Then sql = sql & ", QntdCincoAcab = '" & Me.txtQntd5Acab.Value & "'"
    If Not IsNull(Me.txtQntd6Acab.Value) Then sql = sql & ", QntdSeisAcab = '" & Me.txtQntd6Acab.Value & "'"
    If Not IsNull(Me.txtQntd7Acab.Value) Then sql = sql & ", QntdSeteAcab = '" & Me.txtQntd7Acab.Value & "'"
    If Not IsNull(Me.txtQntd8Acab.Value) Then sql = sql & ", QntdOitoAcab = '" & Me.txtQntd8Acab.Value & "'"
    If Not IsNull(Me.txtQntd9Acab.Value) Then sql = sql & ", QntdNoveAcab = '" & Me.txtQntd9Acab.Value & "'"
    If Not IsNull(Me.txtQntd10Acab.Value) Then sql = sql & ", QntdDezAcab = '" & Me.txtQntd10Acab.Value & "'"
    If Not IsNull(Me.txtAlcan1Acab.Value) Then sql = sql & ", AlcanUmAcab = '" & Me.txtAlcan1Acab.Value & "'"
    If Not IsNull(Me.txtAlcan2Acab.Value) Then sql = sql & ", AlcanDoisAcab = '" & Me.txtAlcan2Acab.Value & "'"
    If Not IsNull(Me.txtAlcan3Acab.Value) Then sql = sql & ", AlcanTresAcab = '" & Me.txtAlcan3Acab.Value & "'"
    If Not IsNull(Me.txtAlcan4Acab.Value) Then sql = sql & ", AlcanQuatroAcab = '" & Me.txtAlcan4Acab.Value & "'"
    If Not IsNull(Me.txtAlcan5Acab.Value) Then sql = sql & ", AlcanCincoAcab = '" & Me.txtAlcan5Acab.Value & "'"
    If Not IsNull(Me.txtAlcan6Acab.Value) Then sql = sql & ", AlcanSeisAcab = '" & Me.txtAlcan6Acab.Value & "'"
    If Not IsNull(Me.txtAlcan7Acab.Value) Then sql = sql & ", AlcanSeteAcab = '" & Me.txtAlcan7Acab.Value & "'"
    If Not IsNull(Me.txtAlcan8Acab.Value) Then sql = sql & ", AlcanOitoAcab = '" & Me.txtAlcan8Acab.Value & "'"
    If Not IsNull(Me.txtAlcan9Acab.Value) Then sql = sql & ", AlcanNoveAcab = '" & Me.txtAlcan9Acab.Value & "'"
    If Not IsNull(Me.txtAlcan10Acab.Value) Then sql = sql & ", AlcanDezAcab = '" & Me.txtAlcan10Acab.Value & "'"
    If Not IsNull(Me.txtAprov2.Value) Then sql = sql & ", Aproveitamento = '" & Me.txtAprov2.Value & "'"
    If Not IsNull(Me.txtAprov2Acab.Value) Then sql = sql & ", AproveitamentoAcab = '" & Me.txtAprov2Acab.Value & "'"
    sql = sql & " WHERE Código = " & Me.txtCodigo.Value
    
    Set banco = New ADODB.Recordset
    banco.Open sql, cx.conn
    Set banco = Nothing
    cx.Desconectar
Call TiraZeros
    MsgBox "Registro alterado com sucesso.", vbInformation, "Data: " & Me.txtData.Text
End Sub
Private Function PegaProximoId() As Long
    Dim rangeIds
            sql = "SELECT Código FROM Realizado"
            Set banco = New ADODB.Recordset
            'cx.Conectar
            banco.Open sql, cx.conn, adOpenKeyset, adLockOptimistic
            rangeIds = banco.GetRows
            PegaProximoId = WorksheetFunction.Max(rangeIds) + 1
            Set banco = Nothing
            cx.Desconectar
End Function

Private Sub btnSalvar_Click()
Application.ScreenUpdating = False
    sql = "SELECT Data FROM Realizado WHERE Data = #" & Me.txtData & "#"
    Set banco = New ADODB.Recordset
    cx.Conectar
    banco.Open sql, cx.conn, adOpenKeyset
If IsNull(banco.RecordCount) Or banco.RecordCount < 1 Then  'Se o Recordset é nulo ou não existe o registro:
    Call Incluir_Registro
Else
    Call Altera_Registro
End If
Application.ScreenUpdating = True
End Sub
Não consigo entender... não há diferença no processo dos dois, mas um funciona e o outro não...!!!???


Voltar ao topo
Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.

Responder

Voltar para “VBA Básico”