Ir para conteúdo
Fórum Script Brasil

kuroi

Membros
  • Total de itens

    7.184
  • Registro em

  • Última visita

Sobre kuroi

Contatos

  • Website URL
    http://

Últimos Visitantes

18.030 visualizações

kuroi's Achievements

0

Reputação

Atualização de Status Simples

Veja todas atualizações de kuroi

  1. Prezado Kuroi, boa noite!

    Como você já me "salvou" diversas vezes, é que resolvi te pedir um socorro novamente. Abaixo estou enviando um código que era de um cadastro de receitas de culinária, e eu estou adaptando-o para cadastro de clientes. O que acontece? O programa anterior não aceita campos nulos, mas o atual, por ser um cadastro deve aceitar campos nulos. Gostaria de saber como modifico isso. O banco que estou usando é um Access. Antecipadamente agradeço pela sua atenção e gentileza. Frata.

    Ah, só mais uma coisinha, eu até modifiquei a parte do código que avisa que existem campos vazios, mas aí dá erro quando vai salvar. Brigaduuuuuuuuu..!!!

     

     

    'declarando os objetos necessários
    'command e recordset para interagir com o  BD
    'e declarando variavel para utilizar msgbox
    Dim cmd As New ADODB.Command
    Dim rs As New ADODB.Recordset
    Dim vinfo As Integer
    'chamando a sub que carrega a lista com os dados do BD
    Private Sub Form_Load()
    preenche_list

    End Sub

    'descarregando os objetos command e recordset quando
    'fechar o form e limpando os arquivos temp criados
    Private Sub Form_Unload(Cancel As Integer)
    Set cmd = Nothing
    Set rs = Nothing
    Set cnnreceitas = Nothing

    If Dir("c:*.tmp") <> "" Then
    On Error Resume Next
    Kill "c:*.tmp"
    End If

    End Sub

    'quando der duplo click na lista
    'filtra as informações no BD e joga nos campos
    'para alterar
    Private Sub List_receitas_DblClick()
    With cmd
        .ActiveConnection = cnnreceitas
        .CommandType = adCmdText
        .CommandText = "select * from receitas"
    Set rs = .Execute
    End With
    With rs
        .Filter = " receita like '" & List_receitas.Text & "'"
        Frame_cadastro.Visible = True
        Frame_Localizar.Visible = False
        Toolbar1.Visible = False
        Toolbar2.Visible = True
        travar_campos
        Text_cod = !cod
        Text_receita = !receita
        Text_ingredientes = !ingredientes
        Text_preparo = !preparo
        Text_email = !email
    End With
    End Sub

    'codigo que faz a busca na List quando é digitado
    'na text
    Private Sub Text1_Change()
    On Error GoTo trataerro

    With cmd
        .ActiveConnection = cnnreceitas
        .CommandType = adCmdText
        .CommandText = "select * from receitas"
        Set rs = .Execute
    End With
    With rs
        .Filter = " receita like '%" & Text1.Text & "%'"
        If .BOF And .EOF Then
        MsgBox ("Sequencia de caracteres não encontrado na lista")
        Else
        List_receitas = rs!receita
        End If
    End With

    trataerro:

    With Err
    If .Number <> 0 Then
    .Number = 0

    End If
    End With

    End Sub

    'faz as alterações entre as toolbar e os frames
    Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Index
        Case 1
        Toolbar1.Visible = False
        Toolbar2.Visible = True
        Frame_cadastro.Visible = True
        Frame_Localizar.Visible = False
        Case 2
        Frame_Localizar.Visible = True
        Text1.Text = ""
        
        
    End Select
    End Sub

    'chama os procedimentos de gravar, inserir ou retornar
    'para o outro frame
    Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)

×
×
  • Criar Novo...