COMBOBOX PROBLEMA.....

USUARIO.EXCLUIDOS 16/04/2007 08:22:44
#212041
Bom galera eh o seguinte estou desenvolvendu um projeto de pesquisa ....
colocarei aki todo o codigo do form para q vcs verificam c eu fiz algo errado soh q o problema eh o seguinte:
Codigo:
Option Explicit
Public QuantidadeAtual As Variant
Dim novoitem As String

Private Sub cb_corr_Click()
   If cb_corr.Text = "Outros" Then
        Adodc3.ConnectionString = VarConnectionString
        Adodc3.RecordSource = "SELECT CODIGO,DESCRICAO from TBL_AUX_CORREDOR"
        Adodc3.Refresh
        novoitem = InputBox("Digite o corredor.")
        If novoitem = "" Then
            Exit Sub
        End If
        Adodc3.Recordset.AddNew
        Adodc3.Recordset!DESCRICAO = novoitem
        cb_corr.AddItem Trim(novoitem)
        cb_corr.Text = Trim(novoitem)
    End If
End Sub


Private Sub cb_garantia_Click()
   If cb_garantia.Text = "Outros" Then
        Adodc3.ConnectionString = VarConnectionString
        Adodc3.RecordSource = "SELECT CODIGO,DESCRICAO from TBL_GRUPO_ESTOQUE"
        Adodc3.Refresh
        novoitem = InputBox("Digite o grupo.")
        If novoitem = "" Then
            Exit Sub
        End If
        Adodc3.Recordset.AddNew
        Adodc3.Recordset!DESCRICAO = novoitem
        cb_garantia.AddItem Trim(novoitem)
        cb_garantia.Text = Trim(novoitem)
    End If
End Sub

Private Sub cb_grupo_Click()
    If cb_grupo.Text = "Outros" Then
        Adodc3.ConnectionString = VarConnectionString
        Adodc3.RecordSource = "SELECT CODIGO,DESCRICAO from TBL_GRUPO_ESTOQUE"
        Adodc3.Refresh
        'novoitem = InputBox("Digite o grupo.")
        'If novoitem = "" Then
         '   Exit Sub
        'End If
        Adodc3.Recordset.AddNew
        'Adodc3.Recordset!DESCRICAO = novoitem
        'cb_grupo.AddItem Trim(novoitem)
        'cb_grupo.Text = Trim(novoitem)
    End If
End Sub


Private Sub cb_prat_Click()
   If cb_prat.Text = "Outros" Then
        Adodc3.ConnectionString = VarConnectionString
        Adodc3.RecordSource = "SELECT CODIGO,DESCRICAO from TBL_AUX_PRATELEIRA"
        Adodc3.Refresh
        novoitem = InputBox("Digite a prateleira.")
        If novoitem = "" Then
            Exit Sub
        End If
        Adodc3.Recordset.AddNew
        Adodc3.Recordset!DESCRICAO = novoitem
        cb_prat.AddItem Trim(novoitem)
        cb_prat.Text = Trim(novoitem)
    End If
End Sub


Private Sub cb_subgrupo_Click()
    If cb_subgrupo.Text = "Outros" Then
        Adodc3.ConnectionString = VarConnectionString
        Adodc3.RecordSource = "SELECT CODIGO,DESCRICAO from TBL_SGRUPO_ESTOQUE"
        Adodc3.Refresh
        novoitem = InputBox("Digite a prateleira.")
        If novoitem = "" Then
            Exit Sub
        End If
        Adodc3.Recordset.AddNew
        Adodc3.Recordset!DESCRICAO = novoitem
        cb_subgrupo.AddItem Trim(novoitem)
        cb_subgrupo.Text = Trim(novoitem)
    End If
End Sub


Private Sub cb_unidade_Click()
   If cb_unidade.Text = "Outros" Then
        Adodc3.ConnectionString = VarConnectionString
        Adodc3.RecordSource = "SELECT CODIGO,DESCRICAO from TBL_AUX_UNIDADE"
        Adodc3.Refresh
        novoitem = InputBox("Digite a unidade.")
        If novoitem = "" Then
            Exit Sub
        End If
        Adodc3.Recordset.AddNew
        Adodc3.Recordset!DESCRICAO = novoitem
        cb_unidade.AddItem Trim(novoitem)
        cb_unidade.Text = Trim(novoitem)
    End If
End Sub


Private Sub Cmd_base_Click()
 CD.ShowOpen
 txt_arquivo.Text = CD.FileName
 Foto.Picture = LoadPicture(txt_arquivo.Text)
End Sub


Private Sub Form_Activate()
 Atualiza
 Combos

 Toolbar1.Buttons.Item(1).Visible = False
 Toolbar1.Buttons.Item(2).Visible = False
 Toolbar1.Buttons.Item(3).Visible = False
 Toolbar1.Buttons.Item(5).Visible = False
End Sub

Public Sub Atualiza()
    If LTrim(txtCodigo.Text) <> "" Then
        Adodc1.RecordSource = "Select * from FORNECEDOR where CODIGO = " & txtCodigo.Text
        Adodc1.Refresh
    
        Adodc2.RecordSource = "Select * from TBL_ESTOQUE where ID_FORN = " & txtCodigo.Text
'        Adodc2.Refresh
    End If
End Sub

Public Sub Combos()
            'COMBO GRUPO
            Adodc3.ConnectionString = VarConnectionString
            Adodc3.RecordSource = "SELECT CODIGO,DESCRICAO from TBL_GRUPO_ESTOQUE"
            Adodc3.Refresh
'            Adodc3.Recordset.MoveFirst nessa linha da o erro naum sei qual
            Do While Not Adodc3.Recordset.EOF
                cb_grupo.AddItem Adodc3.Recordset!DESCRICAO
                cb_grupo.ItemData(cb_grupo.NewIndex) = Adodc3.Recordset!CODIGO
                Adodc3.Recordset.MoveNext
            Loop
            
            'COMBO SUB-GRUPO
            Adodc3.RecordSource = "SELECT CODIGO,DESCRICAO from TBL_SGRUPO_ESTOQUE"
            Adodc3.Refresh
            Adodc3.Recordset.MoveFirst
            Do While Not Adodc3.Recordset.EOF
                cb_subgrupo.AddItem Adodc3.Recordset!DESCRICAO
                cb_subgrupo.ItemData(cb_subgrupo.NewIndex) = Adodc3.Recordset!CODIGO
                Adodc3.Recordset.MoveNext
            Loop
            
            'COMBO PRAZO
            Adodc3.RecordSource = "SELECT CODIGO,DESCRICAO from TBL_AUX_GARANTIA"
            Adodc3.Refresh
            Adodc3.Recordset.MoveFirst
            Do While Not Adodc3.Recordset.EOF
                cb_garantia.AddItem Adodc3.Recordset!DESCRICAO
                cb_garantia.ItemData(cb_garantia.NewIndex) = Adodc3.Recordset!CODIGO
                Adodc3.Recordset.MoveNext
            Loop
            
            'COMBO UNIDADE
            Adodc3.RecordSource = "SELECT CODIGO,DESCRICAO from TBL_AUX_UNIDADE"
            Adodc3.Refresh
            Adodc3.Recordset.MoveFirst
            Do While Not Adodc3.Recordset.EOF
                cb_unidade.AddItem Adodc3.Recordset!DESCRICAO
                cb_unidade.ItemData(cb_unidade.NewIndex) = Adodc3.Recordset!CODIGO
                Adodc3.Recordset.MoveNext
            Loop

            'COMBO PRATELEIRA
            Adodc3.RecordSource = "SELECT CODIGO,DESCRICAO from TBL_AUX_PRATELEIRA"
            Adodc3.Refresh
            Adodc3.Recordset.MoveFirst
            Do While Not Adodc3.Recordset.EOF
                cb_prat.AddItem Adodc3.Recordset!DESCRICAO
                cb_prat.ItemData(cb_prat.NewIndex) = Adodc3.Recordset!CODIGO
                Adodc3.Recordset.MoveNext
            Loop
            
            'COMBO CORREDOR
            Adodc3.RecordSource = "SELECT CODIGO,DESCRICAO from TBL_AUX_CORREDOR"
            Adodc3.Refresh
            Adodc3.Recordset.MoveFirst
            Do While Not Adodc3.Recordset.EOF
                cb_corr.AddItem Adodc3.Recordset!DESCRICAO
                cb_corr.ItemData(cb_corr.NewIndex) = Adodc3.Recordset!CODIGO
                Adodc3.Recordset.MoveNext
            Loop

End Sub

Private Sub Form_Load()
 Adodc1.ConnectionString = VarConnectionString
 Adodc2.ConnectionString = VarConnectionString
 Adodc3.ConnectionString = VarConnectionString
 Ado_estoque.ConnectionString = VarConnectionString
 
 Adodc1.RecordSource = "SELECT * FROM FORNECEDOR"
 Adodc1.Refresh
 Adodc2.RecordSource = "SELECT * FROM TBL_EQUIPAMENTOS"
 Adodc1.Refresh
 
 Frame1.Enabled = False
 Frame2.Enabled = False
 Frame3.Enabled = False
 Frame4.Enabled = False
 Frame5.Enabled = False
 Me.Top = 0
 'Me.Top = (Screen.Height - Me.Height) /
 Me.Left = (Screen.Width - Me.Width) / 2
 
 
End Sub


Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
       On Error GoTo erros
    
    Screen.MousePointer = vbHourglass
        
    Select Case Button.Index
            Case Is = 1
                Toolbar1.Buttons.Item(1).Enabled = False
                Adodc1.Recordset.AddNew
            Case Is = 2
                Adodc1.Recordset.Update
                Toolbar1.Buttons.Item(2).Enabled = False
            Case Is = 3
                Dim Excluir As Integer
                Excluir = MsgBox("Confirma Exclusão?", 32 + 4, "Confirmação!")
                If Excluir = 6 Then
                Adodc1.Recordset.Delete
                End If
            Case Is = 4
                'Desbloqueia para Edição
                Frame1.Enabled = True
                Frame2.Enabled = True
                Frame3.Enabled = True
                Frame4.Enabled = True
                Frame5.Enabled = True
                
                'Toolbar1.Buttons.Item(1).Visible = True
                'Toolbar1.Buttons.Item(2).Visible = True
                'Toolbar1.Buttons.Item(3).Visible = True
                Toolbar1.Buttons.Item(5).Visible = True
                Toolbar1.Buttons.Item(4).Enabled = False
            Case Is = 5
                'Localizar registro
                Fm_Localiza.FormOrigem = "Fm_Estoque"
                Fm_Localiza.VarTabelaOrigem = "TBL_EQUIPAMENTOS"
                Fm_Localiza.Adodc1.RecordSource = "SELECT * FROM TBL_EQUIPAMENTOS"
                Fm_Localiza.Adodc1.Refresh
                Fm_Localiza.Show
            Case Is = 6
               'Sair
               Unload Me
    End Select
    GoTo sai
            
erros:
    If Err.Number = 3021 Then
        MsgBox Err.Number & " - " & " Banco de dados vazio!"
        
    Else
        
        If Err.Number = 13 Then
            MsgBox Err.Number & " - " & " Operação impossível de realizar!"
        Else
            MsgBox Err.Number & " - " & Err.Description
        End If
    End If

sai:
    Screen.MousePointer = vbNormal

End Sub


Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)
  On Error GoTo erros
    
    Screen.MousePointer = vbHourglass
        
    Select Case Button.Index
            Case Is = 1
                'Novo registro
            Case Is = 2
                'Atualizar  Salvar
                Adodc2.Recordset.Update
                Toolbar2.Buttons.Item(1).Enabled = True
                Toolbar2.Buttons.Item(2).Enabled = False
            Case Is = 3
                'Excluir registro
                Dim Excluir As Integer
                Excluir = MsgBox("Confirma Exclusão?", 32 + 4, "Confirmação!")
                If Excluir = 6 Then
                Adodc2.Recordset.Delete
                End If
            Case Is = 4
                'Localizar registro
                Fm_Localiza.FormOrigem = "Fm_estoque"
                Fm_Localiza.VarTabelaOrigem = "TBL_EQUIPAMENTOS"
                Fm_Localiza.Adodc1.RecordSource = "SELECT * FROM TBL_EQUIPAMENTOS"
                Fm_Localiza.Adodc1.Refresh
                Fm_Localiza.Show vbModal, Fm_Principal
            Case Is = 5
                'Primeiro registro
                If Not Adodc2.Recordset.BOF Then
                 Adodc2.Recordset.MoveFirst
                End If
            Case Is = 6
                'Registro anterior
                If Not Adodc2.Recordset.BOF Then
                 Adodc2.Recordset.MovePrevious
                End If
            Case Is = 7
                'Próximo registro
                If Not Adodc2.Recordset.EOF Then
                 Adodc2.Recordset.MoveNext
                End If
            Case Is = 8
                'ÃÅ¡ltimo registro
                If Not Adodc2.Recordset.EOF Then
                 Adodc2.Recordset.MoveLast
                End If
    End Select
    GoTo sai
            
erros:
    If Err.Number = 3021 Then
        MsgBox Err.Number & " - " & " Banco de dados vazio!"
        
    Else
        
        If Err.Number = 13 Then
            MsgBox Err.Number & " - " & " Operação impossível de realizar!"
        Else
            MsgBox Err.Number & " - " & Err.Description
        End If
    End If

sai:
    Screen.MousePointer = vbNormal

End Sub


Private Sub txt_arquivo_Change()
 If txt_arquivo.Text <> "" Then
  Foto.Picture = LoadPicture(txt_arquivo.Text)
 Else
  Foto.Picture = Nothing
 End If
End Sub


Private Sub TXTCODIGO_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Atualiza
    End If
End Sub


Entao galera agradeço desde entaum e bom dia..
Danilo....
HUGOSSOUZA 16/04/2007 08:28:39
#212042 Resposta escolhida
qual o erro que aparece?
USUARIO.EXCLUIDOS 16/04/2007 08:47:19
#212045
Malz erro 3021
BOf ou EOF saum verdadeiros,ou o registro atual foi excluido.A operacao solicitada requer um regisro atual..
ZULLIM 16/04/2007 19:00:31
#212157
Ou não tem nenhum registro na tabela ou a consulta que você fez não retornou nenhum registro.
Você deve colocar um tratamento de erro para não apresentar essa mensagem para o usuário.
USUARIO.EXCLUIDOS 17/04/2007 21:13:50
#212422
opa fmz vo tenta.....
vlw deve ser isso mesmo...
USUARIO.EXCLUIDOS 23/04/2007 21:17:24
#213457
ae galera funciono vlw ae
DAVID.SP 23/04/2007 22:52:33
#213480
Solucionou??
Encerre o tópico....vlw
ZULLIM 24/04/2007 00:40:54
#213484
Ei DAN123456, você esqueceu de encerrar o tópico, beleza?
Tópico encerrado , respostas não são mais permitidas
Voltar