Tomás Vásquez Fórum

grsn

Olá! Veja se é isso que queria, tirei o +1 que estava no final dos dois: totreg = Worksheets("Planilha2").UsedRange.Rows.Count Private Sub Equipamento_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) 'esta linha guarda a quant. de linhas preenchidas na planilha totreg = Worksheets("...

grsn

Olá! Não entendo muito de vba, escrever códigos, sou só um curioso Da forma que fez em formulários separados vc tá pegando uma textbox que não tem valor ao dar o duplo clique editar: tx_id_aluno altere para a textbox txidreg , acho que resolve pelo que vi Private Sub Bt_Salvar_Click() Dim Resposta A...

grsn

If .Cells(lin, 7).Value <> "--" Then
Deu certo vlw
Tinha colocado no lugar errado junto com o if já existente

If rs.RecordCount > 0 and .Cells(lin, 8).Value <> "--" Then

grsn

Estou salvando dados de uma planilha em um banco de dados access usando o seguinte código Sub ConectaDB() Dim cnn As New ADODB.Connection Dim bncDados As String Dim wbk As Workbook Dim Sql As String Dim rs As New Recordset Dim lin As Long Dim ultLin As Long Dim Cod As String Set wbk = WbDataBase lin...

grsn

Olá, boa tarde! Também não tenho muito conhecimento no assunto Mas se buscar o valor maximo do campo da sua tabela, acrescentando + 1 não resolveria Sub RetornaUltimo() Dim SQL As String Dim RetornaUltimo As Long SQL = "SELECT Max(sua_tabela.seucampo) AS MáxDeseucampo " SQL = SQL & &qu...

grsn

Código que busca todas as contas da tabela Public Sub CarregaListaContas() Dim commSQL As String Dim total As Long Dim linha As Long commSQL = "SELECT TB_Salas.SEQ_Conta, TB_Salas.Conta_Nome, TB_Salas.Tipo, TB_Salas.Professor, " commSQL = commSQL & "TB_Salas.Saldo_Inicial, TB_Sala...

grsn

Bom dia!
Como seria para fazer uma busca com sql em uma tabela e trazer os dados de uma subfolha de acordo com seu Id?
Atenciosamente

grsn

Obrigado! Mas não funcionou o DoEvents, deixei sem o gif, só com uma mensagem mesmo! Alguém saberia como fazer no código postado acima, com o selenium, uma verificação se um elemento esta presente, no caso na busca no site quando a certidão é nova, é exibida uma caixa com o número , caso contrário s...

grsn

Bom dia! Estou usando o selenium vba para buscar informações de um site. A ajuda seria para fazer uma verificação se o site foi acessado ou se há conexão, caso contrário exiba uma mensagem, segue o código utilizado: Sub ColetaDados() Dim driver As WebDriver Set driver = New ChromeDriver Dim valor As...

Pesquisa resultou em 9 ocorrências

Re: Cadastro de peças - ajuda

Re: Editar dados via User form

Re: [RESOLVIDO]Ajuda em salvar dados

[RESOLVIDO]Ajuda em salvar dados

Re: Numeração automatica atraves dos dados do Access

Re: Ajuda em consulta

Ajuda em consulta

Re: Selenium vba verificar se a pagina foi carregada e tela de espera durante a busca

Selenium vba verificar se a pagina foi carregada e tela de espera durante a busca