kuroi

exemplo: Randomize Min = 1 Max = 10 Label1.Caption = Min + (Rnd * 10) Mod (Max - Min + 1)[/code]

isso ai ficou dificil de entender... esse ai é so você por um teste: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If habilitado Then If Shift = 2 And KeyCode = vbKeyN Then Call NovoReg End If End Sub[/code]

isso você ve pelo parametro Shift. ctrl é 2 e alt é 4. exemplo: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If Shift = 2 And KeyCode = vbKeyN Then Call NovoReg End If End Sub[/code]

você pode ter declarado outras variaveis como double, mas se esta no textbox esta sempre como texto.

entendi, tente assim: Txt4.Text = CDbl(Txt1.Text) + CDbl(Txt2.Text) + CDbl(Txt3.Text)

testei aqui e deu esse erro mesmo. muito estranho. deve ser algum pau do tree-view, tente usar uma otra chave mas se você puser o texto como você quer ele vai aceitar. exemplo: Dim pai01 As String, pai02 As String, pai03 As String pai01 = "4T-9874" pai02 = "Ingrediente Torta" pai03 = "Ingrediente Lasanha" TreeView1.Nodes.Add , , pai01, "4D-9874"[/code]

é so você somar normalmente não é?? se você somar 5 + (-2) vai dar 3. você já tentou simplesmente somar os textboxes todos??

movido pra vba.

não deu pra entender, explique melhor o q você precisa fazer.

qual a diferenca do primero codigo pro segundo?? e qual erro acontece??

acho q o melhor seria você chamar esse codigo somente na primera vez q o formulario for aberto. ponha no form_load, ou crie um flag pra saber se já passou no activate.

significa q o objeto wb, seja ele qual for, não possui o metodo navigate.

esta acontecendo o mesmo erro "Object variable or with block variable not set."?? você ta executando o recordset antes de chamar essa sub ai??

basicamente, isso é uma falha na interpretacao do caracter ' (aspa simples). o cara passa o ' na sua querystring, fazendo com q na hora q a query seja executada, ele interprete como final de string. assim ele consegue adicionar qualquer codigo de select apos o fechamento do ' e, com um union all, ele consegue trazer qualquer informacao do seu banco de dados. pra resolver isso, você pode fazer um replace transformando ' em '' (duas aspas simples), nos seus campos da querystring.

não deu pra entender direito, mas porque você não filtra o relatorio pela data atual ate daqui trinta dias e mostra os dados normalmente no details??

tenta isso: Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 44 Then KeyAscii = 46 End If End Sub[/code] habilitie a propriedade KeyPreview do formulario como true, antes.

clique com o botao direito no subreport e selecione Change Subreport Links e ai faca a linkagem dos campos q você quer.

esse erro ocorre quando tem algum campo na consulta q não existe na(s) tabela(s). muito provavelmente o seu problema é um desses casos: 1 - você ta digitando o nome de algum campo errado. 2 - você ta passando alguma string sem aspa e ele interpreta como nome de campo e não encontra o campo, por isso o erro. por exemplo, o q é P1?? tem um campo chamado P1, ou você quer selecionar onde o conteudo do campo seja igual a "P1". nesse caso você teria q fazer: & "And Item_Id = 'P1'" e o mesmo procedimento pra outras strings. EDITADO: nossa agora q percebi q isso ai é vb.net. eduardo, pra postar sobre essa versao do visual basic q você usa, use a sala de .net (to movendo esse tópico pra la). mas as dicas q passei ainda valem.

esses codigos devem ficar executando no servidor. isso ai é programacao direto no pc q esta servindo como servidor, não sei se você conseguiria fazer mta coisa so com php.

acho q é pra funcionar sim. se você tiver os componentes como explicado nesse tutorial é pra dar certo: http://scriptbrasil.com.br/forum/index.php?showtopic=122749

é mesmo, aqui tb não tem. mas se você tem um scanner com o software instalado no pc, talvez apareca alguma coisa q você possa usar na lista de componentes.

não sei mas você pode testar. vo mover pra vba.

se ele esta duplicando deve ser por causa do left join. o codigo deve aparecer duas vezes em algumas das tabelas. talvez você consiga resolver usando um distinct ou um group by.

você diz rolar o cursor passando pelos registros?? tb não sei se da pra fazer isso automaticamente, veja as propriedades da flexgrid. se não tiver como, você pode tentar adaptar alguma coisa baseado nesse tutorial aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=110696 mas é complicado.

você ta escrevendo cd1CCRGBInit. acho q o certo seria cdlCCRGBInit, não??