Alyson Ronnan Martins

Boa noite, olha se esse artigo te ajuda. ok? https://www.profissionaisti.com.br/2014/08/criando-um-ping-tester-no-vba-do-excel/

Só não entendi uma coisa você vai selecionar no excel ou no formulário?

Eu recomendo colocar um evento ao fechar. Assim você poderá definir o que fazer no excel. Mais duvida manda ai.

Luana. para fazer isso dá sim. mais teria como explicar um pouco mais ou mandar o arquivo excel para olhar?

Boa noite, teria como postar a planilha para olhar. para entender porque não adcionar no listbox;

Mauro vou te dar uma diva, abra o excel e coloque para gravar uma macro.. E faço o que está querendo. Você vai ver depois (dentro do VBA "F11") como o excel fez todo esse processo.

No proprio word já exist isso (é o numero de revisões). Cada vez que o arquivo é aberto e salvo o numero de revisão modifica.

Teria com tirar uma foto e e postar aqui para agente pode ver e conseguir entender melhor (sou meio lento )

para simular a tabulação você vai ter que coloca esse código para cada tabulação que precisar KeyDown Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'KeyCode : 9 = TAB If KeyCode = 9 Then TextBox2.Activate End If End Sub

DB.Execute "DELETE * FROM TB_Master_MDUs WHERE COD_SOLIC = " & Forms!Fr_Master_MDUs!Sub_List_End!CODIGO

Tenta postar mais detalhe ou até print da planilha para ver se conseguimos te ajudar.

Boa noite. 1º - Se possivel mudar o seu Designe para o que eu coloquei no anexo para a Guia do "BD" 2º - Segue o código de macro para colocar na sua planilha: Public Sub Cadastro() 'Idenficica qual a ultima linha preenchida e pula uma casa Dim UlinhaBD As Long UlinhaBD = Sheets("BD2").Cells(Rows.Count, 1).End(xlUp).Row + 1 'Preenche cadastra dento de BD os dados do CAD Sheets("BD2").Cells(UlinhaBD, "A").Value = Sheets("CAD").Cells(1, 2).Value Sheets("BD2").Cells(UlinhaBD, "B").Value = Sheets("CAD").Cells(3, 3).Value Sheets("BD2").Cells(UlinhaBD, "C").Value = Sheets("CAD").Cells(2, 2).Value Sheets("BD2").Cells(UlinhaBD, "E").Value = Sheets("CAD").Cells(2, 2).Value Sheets("BD2").Cells(UlinhaBD, "E").Value = Sheets("CAD").Cells(2, 7).Value End Sub Qualquer duvida posta ai ^^

Bom tem que apreender sobre o conectar o banco de dados com o Sistema. Dá uma pesquisada sobre conexão DAO ou ADO em arquivo MDB

Se eu não me engano essa questão de não aceitar campo nulos "null" fica no banco de dados. Tem que alterar ele para receber dados null. Eu não vi o código para colocar o cadastro no bando de dados. Eu me lembro que se você não colocar o campo do bando de dados no recordset ele cadastro nulo. Exemplo rst("Nome").value = "Funalo de tal" e pronto ela vai fazer o cadastro direto sem mexer nos outros campos, tem só que olhar o seu primeiro código.

Ola, você está usando o VBA direto ou usando o VBA do excel ?

Precisa ser exatamente formula ou pode ser código direto do visual basic?

Ola boa tarde, tenho que fazer com que dois computadores (ao mesmo tempo) usando excel cadastre informações no arquivo MDB. Porem estou tendo problema para fazer isso porque se um estiver fazendo um cadastro e o outro for fazer no mesmo momento fica dando um dizendo que planilha já está sendo usada. O que fazer? Informações: Arquivo de Excel com Macro em dois computadores (acessando informações do arquivo mdb em DAO) Defeito: Erro 3054 (arquivo já está sendo usando por outro usuário em outro computador) Tipo de Conexão.

Isso mesmo, já tinha visto e tinha modificado porém o erro continuou. A não ser que eu tenha feito o "link" errado. <?php $h = "meu site externo"; $u = "admin"; $p = ""; $d = ""; $conecta = mysqli_connect($h, $u, $p, $d) or trigger_error(mysqli_error(),E_USER_ERROR); ?>Linha do erro: $theValue = function_exists("mysqli_real_escape_string") ? mysqli_real_escape_string($conecta, $theValue) : mysqli_escape_string($conecta, $theValue);Erro que aparece na janela (junto ao erro da senha só que é essa senha no bando de dados): Warning: mysqli_real_escape_string() expects parameter 1 to be mysqli, null given in /var/../sistema/painel/login.php on line 80Warning: mysqli_real_escape_string() expects parameter 1 to be mysqli, null given in /var/../sistema/painel/login.php on line 80

Bom dia. Muito obrigado Denis. Fico no aguardo de alguma luz.

Tente dessa maneira. Sub AUTOEXEC() Dim Tempo as date Tempo = timevalue("18:59:00") Application.OnTime Tempo, "AUTOM" End Sub()Qualquer duvida estou a disposição.

Excel?

Isso é no access ou excel?

Boa tarde, estou tentando fazer um login mais depois de tudo feito não conseguir entrar no painel que criei. Aparece o seguinte erro: Warning: mysqli_real_escape_string() expects exactly 2 parameters, 1 given in ../sistema/painel/login.php on line 81 Warning: mysqli_real_escape_string() expects exactly 2 parameters, 1 given in ../sistema/painel/login.php on line 81aqui está o código da linha 81: <?php if (!function_exists("GetSQLValueString")) { function GetSQLValueString($theValue, $theType, $theDefinedValue = "", $theNotDefinedValue = "") { if (PHP_VERSION < 6) { $theValue = get_magic_quotes_gpc() ? stripslashes($theValue) : $theValue; } echo"<script language=javascript>alert($theValue)</script>"; $theValue = function_exists("mysqli_real_escape_string") ? mysqli_real_escape_string($theValue) : mysqli_escape_string($theValue);Teria como alguém me ajudar nesse problema?

No teste que eu fiz eu usei duas caixas aonde a primeira serve para digitar e a segunda server para ficar do jeito que você. Tenta fazer dele para ele ou usa o dim para depois modificar ele.

Use o Cdbl em todos os TextBox