Mensajes

donde? :S no veo ninguno,me puedes decir como encontrarlo,porfavor? Saludos.

Hola, necesito ayuda urgente, queria saber como guardar los cambios de los campos de texto en una base de datos, aqui tienen el codigo:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "Debe completar todos los campos (;"
Else
If Text1.Text = "+" Then
MsgBox "Introduzca solamente numeros"
Else
If Text2.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
If Text3.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
If Text4.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
a = CLng(Text1.Text) + CLng(Text2.Text) + CLng(Text3.Text) + CLng(Text4.Text)
'Pasamos a integer para poder sumar numeros
Text10.Text = a
End If
End If
End If
End If
End If
End Sub


Private Sub Command2_Click()
If Text5.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
If Text6.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
If Text7.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
If Text8.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
b = CLng(Text5.Text) + CLng(Text6.Text) + CLng(Text7.Text) + CLng(Text8.Text)
Text11.Text = b
End If
End If
End If
End If
End Sub

Private Sub Command3_Click()
c = CLng(Text10.Text) - CLng(Text11.Text)
Text9.Text = c
End Sub

Private Sub Form_Load()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Text10.Text = a
Text11.Text = b
End Sub


Espero sus respuestas,gracías.

Y yo también me apunto: también se C, y php por si te sirve. Contactame por privado,saludos.

Hola a todos, bueno, quería saber como puedo hacer para guardar los datos de este programa, (Aquí tienen el codigo) :

Código [Seleccionar] Expandir

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "Debe completar todos los campos (;"
Else
If Text1.Text = "+" Then
MsgBox "Introduzca solamente numeros"
Else
If Text2.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
If Text3.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
If Text4.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
a = CLng(Text1.Text) + CLng(Text2.Text) + CLng(Text3.Text) + CLng(Text4.Text)
'Pasamos a integer para poder sumar numeros
Text10.Text = a
End If
End If
End If
End If
End If
End Sub


Private Sub Command2_Click()
If Text5.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
If Text6.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
If Text7.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
If Text8.Text = "" Then
MsgBox "Debe completar todos los campos"
Else
b = CLng(Text5.Text) + CLng(Text6.Text) + CLng(Text7.Text) + CLng(Text8.Text)
Text11.Text = b
End If
End If
End If
End If
End Sub

Private Sub Command3_Click()
c = CLng(Text10.Text) - CLng(Text11.Text)
Text9.Text = c
End Sub

Private Sub Form_Load()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Text10.Text = a
Text11.Text = b
End Sub

Quería guardarlo en una base de datos, en un archivo de word o algo,pero también quiero que se guarden,los datos junto con el día y la fecha.

Como lo podría hacer? espero sus respuestas,saludos.

Como podria cojer y calcular numeros float? Espero vuestras respuestas,gracías

Perfecto! Muchisimas gracías a los 3, Gracias.

PD: para que sirve la funcíon val? y que diferencias tiene?

Saludos.

Me da error en tiempo de ejecucion '13' "No coinciden los tiempos"
este es el código que puse:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Text10.Text = Text1.Text + Text2.Text + Text3.Text
End Sub

Private Sub Form_Load()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
a = CInt(Text1.Text) + CInt(Text2.Text)
Text10.Text = a
End Sub

Hola,tengo unr problema en visual basic, y es el siguiente, yo tengo 3 campos de texto, ycuando en el command1 le digo que los sume, si en los texts puse 5 5 5, me los suma asi: 555... y no encuentro la manera de que me los sume... este es el codigo:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Text10.Text = Text1.Text + Text2.Text + Text3.Text
End Sub

Private Sub Form_Load()
Dim a As Long
Dim b As Long
Dim c As Long
Dim d  As Long
End Sub



Espero sus respuestas,saludos.

si yo antes sabia,pero llevo 2años sin tocar vb y`se me olvido todo, no me pueden hacer un ejemplo funciona,porfavor??? gracias,espero sus respuestas.

solamente pido un ejemplo 100% funcional para ver como era exáctamente,porfavor.