kuroi

é mesmo, assim não funciona. de uma olhada aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=53852 pra ver como fazer.

acho q entendi. deve ser isso: Set rs = cn.Execute(" Select Count(*) as Conta from Emprestimo ") contador = rs!Conta você so precisa usar atribuir valor à propriedade container, se quiser por o textbox dentro de um frame. se não quiser não precisa. Qual a linha q acontece isso: "Objeto não suporta esta propriedade ou metodo . "?

então, deve ser assim: SQL = "DELETE * FROM tblCategorias WHERE IngCategoriaID ="& Request.QueryString("IngCategoriaID") tenho a impressao q esse Request.QueryString("IngCategoriaID") esta trazendo um valor em branco, sera q não?

aqui você deve por o nome do frame não do form, por exemplo: Me.Controls("nomedotextbox" & c).Container = "Frame1" o q c quer é isso: contador = rs.recordcount ?

larga a mao, cara. ajudando os outros a gente sempre se sente bem e tb aprende bastante. fora q tb já fui iniciante e sempre precisei (e ate hoje preciso) da ajuda de outros. penso assim: se eu não ajudar ninguém, porque os outros deveriam me ajudar? fora q isso me deixa mais confiante no q eu sei. for tudo isso, c ainda me ajuda a matar o tempo aqui no trampo. quanto ao container. no dicionario esta: acho q serve pra isso mesmo q c usou. quando um objeto esta dentro de um frame, a propriedade container vai guardar o nome do frame. beleza? qualquer coisa pergunte.

esse erro se da quando você digita na query o nome de um campo q não existe na tabela. IngCategoriaIDD deve estar digitado errado. de uma olhada.

seu codigo deve ficar assim: Public contador As Integer Public c As Integer Private Sub Form_Load() Dim c As Control Set rs = cn.Execute(" Select * from Emprestimo where cod_cli = '" & cod_cli & "' ") contador = rs.RecordCount For c = 0 To contador Me.Controls.Add "VB.TextBox", "nomedotextbox" & c Me.Controls("nomedotextbox" & c).Visible = True Me.Controls("nomedotextbox" & c).Container = "nomedoframe" Next End Sub

você pos essa linha? Me.Controls("nomedotextbox").Visible = True sem ela ele não aparece. outra coisa, é q ele aparece na posicao (x,y) 0,0. ou seja, dependendo de como esta o seu form, você vai ter q mudar a posicao top e left. outra coisa é se você tiver usando frame. pra q ela apareca no frame você tem q usar tb: Me.Controls("nomedotextbox").Container = "nomedoframe"

sera q no seu banco eao esta cadastrado um usuario com login e senha em branco? você testou se você digitar senha errada se ele passa mesmo assim?

pra criar campos text pode fazer assim: Me.Controls.Add "VB.TextBox", "nomedotextbox" Me.Controls("nomedotextbox").Visible = True

como faco isso?

o CStr converte valores (como numero e data) para String. no caso a funcao Time retorna a hora do sistema num valor tipo data e o CStr o converte para String, mas pra falar verdade o seu codigo acho q funcionaria sem ele. so assim: Inferior.Buttons(10).Caption = Time

sem esquecer q tem gravar os arquivos em C:\Inetpub\wwwroot

http://scriptbrasil.com.br/forum/index.php?showtopic=64927 http://scriptbrasil.com.br/forum/index.php?showtopic=69936 http://scriptbrasil.com.br/forum/index.php...s&highlite=mapi

na hora de enviar, c você puser: MAPIMessages1.Send 0 ele vai direto para a caixa de saída. se você puser: MAPIMessages1.Send 1 ele abre a mensagem e deixa você editar.

para o relogio não demorar pra aparecer, ponha 1 no interval dele. o q acontece, é q c você puser 1000 no interval (= 1 segundo) assim q o form abrir, ele vai esperar 1 segundo pra mostrar o timer. ponha 1 de inicio e no evento do timer c pode pode trocar o interval e por o tempo q c quiser. Private Sub Relogio_Timer() Relogio.Interval = 1000 Inferior.Buttons(10).Caption = CStr(Time()) End Sub

po ate fonte os caras tão vendendo hoje em dia...

a propriedade tag serve pra voce escrever qualquer tipo de informação q achar necessario pra cada componente. exemplo, nesse codigo de fechar o formulario, você não quer q feche o menu certo? você podia fazer assim: Dim form As Form For Each form in Forms if form.Name <> "Menu" Then unload form next e o seu problema tava resolvido. mas o q eu estou dizendo é q talvez, alem do menu, tenha outros forms q você não quer q feche. nesse caso você pode fazer o seguinte: você escreve "fechar" na propriedade tag de todos os forms q você quiser q feche. ai o codigo ficaria assim: Dim form As Form For Each form in Forms if form.Tag = "fechar" Then unload form next ou você pode fazer o contrario. você escreve "naofechar" no tag de todos os forms q você quiser q não feche. e o codigo fica assim: Dim form As Form For Each form in Forms if form.Tag <> "naofechar" Then unload form next

qual é o erro? presta atencao tb q desse jeito, você vai estar fechando todos os forms sem exceção q estiverem abertos no programa, inclusive o menu principal, ou seja, você vai estar fechando o programa inteiro. por exemplo, no caso a gente so quer fechar o cadastro de funcionarios e o de clientes. você deve testar e selecionar a dedo os forms q terao q ser fechados ou não. você pode por um identificador na proprieda tag dos forms q devem ser fechados. exemplo escreva "fechar" na tag do clientes e do funcionario. no for, antes de fechar você testa e poe pra fechar apenas se a tag = "fechar".

de uma olhada nesses topicos: http://scriptbrasil.com.br/forum/index.php...topic=50178&hl= http://scriptbrasil.com.br/forum/index.php?showtopic=64030 qualquer coisa pergunte.

o primeiro if ta errado. to com preguica de explicar porque, mas o certo seria: If (month(data) > month(data3)) Or (month(data) = month(data3) And day(data) > day(data3)) Then ' EVENTO 1 ElseIf day(data3) = day(data) and month(data3) = month(data) Then ' EVENTO 2 Else ' NENHUM EVENTO End If

janeiro = 1 fevereiro = 2 março = 3 abril = 4 ... ... novembro = 11 dezembro = 12 StrSql = "SELECT * FROM t_func Where Month(dt_nasc) = 3 Order By Day(Dt_Nasc)

o problema é mesmo o mdi. como você abre os forms maximizados e os deixa abertos, na segunda vez, ele não mostra porque já esta aberto e o outro form esta na frente. o q ce pode fazer é esconder um formulario antes de abrir o outro assim: Private Sub Toolbar_Superior_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu) Select Case ButtonMenu.Index Case 1 Cadastro_Funcionario.Hide Cadastro_Cliente.Show Case 2 Cadastro_Cliente.Hide Cadastro_Funcionario.Show End Select End Sub desse jeito, a medida q você puser mais forms vai ter q esconder todos eles. se precisar, olhe nesse tópico pra ver como fazer: http://scriptbrasil.com.br/forum/index.php...ularios+abertos to sem tempo pra ver agora, mas acho q deve ate ter uma solucao melhorzinha... os forms não esta abrindo no tmaanho q c deixa acho q tb porque é mdichild. se c puser o Border Style como Fixed Single, resolve esse problema, mas ai c não pode mexer no tamanho do form. ou você pode no load do form ajustar o tamanho automatico. qualquer coisa poste ae.

beleza rafaelsposito[a]gmail.com

testei com mdi e não deu problema algum... de uma olhada nos seus codigos e nas propriedades desses formularios, etc. alguma coisa c deve ter feito pra isso tar acontecendo...