Julie sistemas

O erro era esse mesmo Kuroi... Eu add + um item na banco de dados e não alterei o numero de colunas do msflex. Vlw Kuroi...

Bom o meu sistema está gerando um erro que não estou conseguindo solucionar. Na hora que dou o click no msflexgrid, ele aparece a seguinte mensagem de erro: subscript out of range (run-time error '381')... quando eu debugo a seta amarela aparece na linha abaixo: Flexgrid.TextMatrix(0, i) = CabecFlex(i) Taí o código inteiro da função preencheflexgrid: Public Function PreencheFlexGrid(rs As Recordset, Flexgrid As MSFlexGrid) Dim lCol As Long Dim lrow As Long Dim lcols As Long Dim lrows As Long 'On Error GoTo checa Flexgrid.Clear rs.Requery 'On Error GoTo ErrorHandler 'Testa se a variável é FlexGrid If Not TypeOf Flexgrid Is MSFlexGrid Then Exit Function 'Testa se a variável é RecordSet If Not TypeOf rs Is ADODB.Recordset Then Exit Function 'frmflexfunc.Show Dim i As Integer Dim c As Integer 'MsgBox "cabeçalho", vbOKOnly + vbInformation, "Atenção" For i = 0 To IIf(UBound(CabecFlex) = 0, 0, UBound(CabecFlex)) - 1 Flexgrid.TextMatrix(0, i) = CabecFlex(i) Flexgrid.ColWidth(i) = ColWidthFlex(i) Next Flexgrid.FixedRows = 1 'Flexgrid.FixedCols = 0 If Not rs.EOF Then Flexgrid.Rows = rs.RecordCount + 1 Flexgrid.Cols = rs.Fields.Count i = 1 'MsgBox "preenchendo o grid", vbOKOnly + vbInformation, "Atenção" c = 0 'MsgBox "Campo - " & rs.Fields(c).UnderlyingValue, vbInformation, "Atenção" Do While Not rs.EOF For c = 0 To rs.Fields.Count - 1 'MsgBox "Campo - " & rs.Fields(c).Value, vbInformation, "Atenção" If Not IsNull(rs.Fields(c).Value) Then Flexgrid.TextMatrix(i, c) = rs.Fields(c).Value End If Next i = i + 1 rs.MoveNext Loop End If If coN = 1 Then Dim posicao As String Dim titulo As String With Flexgrid .Cols = .Cols + 1 posicao = Flexgrid.Cols - 1 titulo = "Nota" .ColPosition(.Cols - 1) = posicao .Row = 0 .COL = posicao .Text = titulo End With End If PreencheFlexGrid = True Exit Function 'checa: 'If Err.Number <> 0 Then ' MsgBox "Erro " & rs.Fields("re") & " - " & rs.Fields(c).Value & Err.Description, vbCritical, "SGSI" 'End If End Function

Bom galera, apareceu um erro aqui na conexão com o DB. Veja a mensagem gerada: "Nenhum valor foi fornecido para um ou mais parâmetros necessários" Segue abaixo o trecho onde tá dando o erro: Function pReenche() Set rs = New ADODB.Recordset If anoP = False Then sQl = "SELECT ANDAMENTO.COD,ANDAMENTO.CODIGO, ANDAMENTO.COD_ATI, ANDAMENTO.HORAS_PREVISTAS, ANDAMENTO.COD_OS, " & _ "ANDAMENTO.DATA_INICIO, ANDAMENTO.DATA_FIM, ANDAMENTO.TIPO_SERV, ANDAMENTO.C_CUSTO,ANDAMENTO.PROJETO,ANDAMENTO.COD_CORD" Else sQl = "SELECT ANDAMENTO.COD,ANDAMENTO.CODIGO,ANDAMENTO.COD_ATI, ANDAMENTO.HORAS_PREVISTAS,ANDAMENTO.COD_OS, " & _ "ANDAMENTO.DATA_INICIO, ANDAMENTO.DATA_FIM, ANDAMENTO.TIPO_SERV, ANDAMENTO.C_CUSTO,ANDAMENTO.PROJETO, ANDAMENTO.COD_CORD" End If anoP = False Set rs = New ADODB.Recordset [b]rs.Open sQl, data.cn, adOpenKeyset, adLockOptimistic[/b] Call PreencheFlexGrid(rs, msflexemp) rs.Close Set rs = Nothing Cmb_Click End Function Me ajudem ai... Vlw...

Deu certo Kuroi... vlw.

Exatamente isso... Quero que os botoes do toobar funcione. Como faço pra valida-los? Pois esses botoes estou criando p/ serem atalhos.

Fala galera... To com uma dúvida aki... estou precisando validar algumas botões personalizados que criei e coloquei na barra de menu. Mas não sei como fazer isso. Alguém poderia me ajudar??

Bom galera gostaria de saber se alguém tem alguma apostila de XHarbour pra me mandar...?

Bom pessoal eu to com mais uma dúvida: To querendo saber se o código do usuario é válido... Só que o meu código tá dando erro na conexão ao banco. Grifei onde aparece o erro... Vlw Private Sub Txt1usuario_LostFocus() Dim cod As Long Dim cnnComandos As New ADODB.Command Dim rsSelecao As New ADODB.Recordset cod = Val(Txt1usuario.Text) If cod = 0 Then Exit Sub Screen.MousePointer = vbHourglass With cnnComandos [b].ActiveConnection = cnnusu[/b] .CommandType = adCmdText .CommandText = "SELECT * FROM usuarios WHERE Código = " & cod & ";" Set rsSelecao = .Execute End With With rsSelecao If .EOF And .BOF Then 'Se não encontrou o livro, deixa o título do livro em branco: Labelusu.Caption = Empty Else 'Se encontrou, exibe o título do livro em lblTitulo: Labelusu.Caption = !nome End If Set rsSelecao = Nothing 'Set cnnComandos = Nothing Screen.MousePointer = vbDefault End With End Sub

Deu certo... Vlw...

Bom a minha dúvida agora é como faço pra colocar os asterisco * no campo de senha... sem que apareça a senha. exemplo: usuario: gerente senha:****** Bom essa é minha dúvida. Vlw...

A mensagem é a seguinte: Erro '3265' O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado. Aí eu mando debuga e aparece a faixa amarela na linha abaixo: Private Sub grava_rec() [b]rs.Fields(0) = "" & txtempresa.Text[/b] rs.Fields(1) = "" & txtnomefantasia.Text End Sub O zero e o 1 significa a posição da tabela não é?

Tava só zuando... Mas aqui... surgiu outra dúvida eu não to conseguindo gravar. Tipo vi alguns exemplos no link que você mandou e tentei fazer parecido. Veja abaixo: Erro 3265 Private Sub grava_rec() [b]rs.Fields(0) = "" & txtempresa.Text rs.Fields(1) = "" & txtnomefantasia.Text[/b] End Sub Não sei o que ta errado. Sera que é o zero e o um entre perenteses?

É eu não tava querendo ficar usando só botoes mesmo não... Mas alguns desses links que você mandou estão me ajudando bastante... Vlw... Abraços... Ahh e eu não sou cara... Sou mulher...

Nossa vlw... deu pra ter uma ideia de como fazer... É muito loco isso...

Substituir o data1??