trabalho
Private Sub entrar_Click()
If usuario.Text = "Renato" And senha.Text = "Senai" Then '
MsgBox "Login realizado com sucesso", vbExclamation, "Seja bem vindo!" Unload login menu.Show Else
MsgBox "SENHA ou USUARIO incorreto", vbInformation, "Login" usuario.Text = "" senha.Text = ""
End If
End Sub
================================================
Private Sub sair_Click()
Application.Quit
End Sub
================================================
Código da tela menu:
Private Sub cadastrar_Click() ordemdeserviço.Show End Sub
=================================================
Private Sub imprimir_Click()
Worksheets("Dados").Select
Unload menu
Application.Visible = True
ActiveWindow.SelectedSheets.PrintPreview
menu.Show
End Sub
===================================================
Private Sub maquinas_Click() telamaquinas.Show End Sub
====================================================
Código para a tela de máquinas e equipamentos:
Private Sub cps_Click()
Capacitores.Show
End Sub
==================================================
Private Sub mt1_Click() motor1.Show End Sub
===================================================
Código da tela ordem de serviço:
Private Sub cadastrar_Click() totalregistro = Worksheets("Dados").UsedRange.Rows.Count + 1
With Worksheets("Dados")
.Cells(totalregistro, 1) = status
.Cells(totalregistro, 2) = tipo
.Cells(totalregistro, 3) = maquina
.Cells(totalregistro, 4) = equipamento
.Cells(totalregistro, 5) = autor
.Cells(totalregistro, 6) = defeito
.Cells(totalregistro, 7) = solucao
.Cells(totalregistro, 8) = data
End With
MsgBox "Parabéns!!!Gravado com sucesso"
'codigo para preencher a caixa localizar totaldelinha = Worksheets("Dados").UsedRange.Rows.Count ' contar quantas linhas foram usadas na planilha banco de dados e armazenar na variavel totaldelinha localizar.RowSource = "Dados!e2:e" & totaldelinha ' localizar a linha na planilha dados a partir da