kuroi

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)