|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - Majuhemo
26
« en: Lunes 9 de Junio de 2003, 21:32 »
Hola:
sobre lo primero trata con esto:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 120 Then Form2.Show ' tecla F9
End Sub
sobre lo segundo, no se como ayudarte.
Saludos;
27
« en: Sábado 7 de Junio de 2003, 16:07 »
Hola:
puedes intentar con esto:
en un timer:
Private Sub Timer1_Timer()
Dim nReturnValue As Long
nReturnValue = FlashWindow(Form1.hWnd, True)
End Sub
y en un modulo:
Public Declare Function FlashWindow Lib "user32" (ByVal hWnd As Long, ByVal bInvert As Boolean) As Long
saludos;
28
« en: Sábado 7 de Junio de 2003, 15:56 »
29
« en: Viernes 6 de Junio de 2003, 21:40 »
Hola:
ciertamente sobre un mdi no se puede poner un control image, pero si puedes insertar un control image dentro del control picture, de esa forma puedes mover, agrandar la imagen.
Otra opcion es que la imagen que deseas insertar sea tan grande como una ventana maximizada, si es asi, bastaria con insertarla en un picture.
Saludos;
30
« en: Viernes 6 de Junio de 2003, 01:01 »
Hola:
si deseo solo numeros hago lo siguiente, evento KeyPress:
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then KeyAscii = 0
si deseo solo letras mayusculas:
If InStr("ABCDEFGHIJKLMNÑOPQRSTUVWXYZ, " & Chr(8), Chr(KeyAscii)) = 0 Then KeyAscii = 0
Saludos;
32
« en: Jueves 5 de Junio de 2003, 23:30 »
Hola:
yo trabajo de la siguiente forma:
Set obj = New Word.Application
obj.Documents.Open FileName:="" & App.Path & "Plantilla.doc"
obj.Selection.GoTo What:=wdGoToBookmark, Name:="Marcador1"
obj.Selection.TypeText Text1.Text
obj.Selection.GoTo What:=wdGoToBookmark, Name:="Marcador2"
obj.Selection.TypeText Text2.Text
obj.Selection.GoTo What:=wdGoToBookmark, Name:="Marcador3"
obj.Selection.TypeText Text3.Text
obj.ActiveDocument.SaveAs FileName:="" & App.Path & "PlantillaX.doc"
obj.PrintOut (False)
obj.Quit SaveChanges:=wdDoNotSaveChanges
Set obj = Nothing
No te olvides de hacer referencia a la libreria de Microsoft Word.
Saludos;
33
« en: Miércoles 4 de Junio de 2003, 21:27 »
Hola:
trata con poner en el evento LostFocus, particularmente lo hago asi:
txtValor2.text=Format(TxtValor1.text,"###,##0.00")
Saludos;
35
« en: Sábado 31 de Mayo de 2003, 17:05 »
Hola:
Encontre algo por ahi, espero que te funcione...
Desde las aplicaciones de Visual Basic se pueden visualizar vídeos AVI haciendo uso del MCI (Multimedia Control Interface). Sólo es necesario enviar un par de órdenes MCI como en el siguiente ejemplo:
Private Declare Function mciSendString Lib "mmsystem" _
(ByVal strCommand As String, ByVal strReturn As String, _
ByVal iReturnLength As Integer, ByVal hCallback As Integer)
Sub ReproducirAVI()
Dim Resultado as Long
Resultado = mciSendString("Open MiAvi.avi type AVIVideo _
Alias Video", "",0,0)
Resultado = mciSendString("Play Video FullScreen","",0,0)
Resultado = mciSendString("Close Video","",0,0)
End Sub
Avisas como te fue;
Saludos
36
« en: Sábado 31 de Mayo de 2003, 16:28 »
Hola:
En SQL:
Si los datos de la tabla temporal PUEDEN SER COMPARTIDOS
por varios usuarios, simplemente crea la tabla temporal de
tipo GLOBAL, con 2 (dos) signos de numero
CREATE TABLE ##MyTablaTemporal
Si por el contrario los datos de la tabla temporal son
para uso esclusivo del usuario en cuestion, agregue el
SPID del usuario a su creacion de tabla y se hara de
manera "particular"
CREATE TABLE #MyTablaTemporal+CONVERT(VARCHAR, @@SPID)
es decir podrias hacer lo siguiente;
SELECT M.*, D.*
INTO #MyTablaTemporal
FROM Maestro M
INNER JOIN Detalle D ON
M.Id=D.Id
lo bueno es que el servidor de SQL destruye la tabla luego de ser utilizada.
Puedes chequear "CREATE TABLE", en SQL, tiene
una seccion dedicada a las tablas temporales.
Saludos;
37
« en: Jueves 29 de Mayo de 2003, 20:51 »
38
« en: Jueves 29 de Mayo de 2003, 20:47 »
Hola: puedes chequear: http://www.vbsmart.com/tienes el "SmartNetButton", lo he usado y no tengo ningun problema. Saludos;
39
« en: Miércoles 28 de Mayo de 2003, 18:01 »
Hola:
yo creo que:
(((tblNotificaciones.Fecha)>=#" & dtFechIni & "#) AND ((tblNotificaciones.Fecha)<=#" & dtFechFin & "#));"
puedes resumirlo con
tblNotificaciones.Fecha Between #" & dtFechIni & "# AND #" & dtFechFin & "#;"
no estoy muy seguro con el # ; no he trabajado con Access en SQL Server le pongo ' = apostrofe para indicarle intervalo de fechas, revisa y a ver como te va.
Saludos;
40
« en: Miércoles 28 de Mayo de 2003, 16:01 »
41
« en: Miércoles 28 de Mayo de 2003, 16:00 »
Hola:
una forma de añadir iconos al menu esta en el zip que te envio....
Por cierto, no es de mi autoria, asi que habra que agradecer al autor, no recuerdo si es un compañero de este foro.
Saludos;
42
« en: Miércoles 28 de Mayo de 2003, 15:51 »
Hola:
otra posibilidad seria que programes en el LostFocus, seria mas o menos asi:
Private Sub txtRespuesta_LostFocus()
If Val(txtRespuesta.Text) < 11 Or Val(txtRespuesta.Text) > 14 Then
MsgBox "Solo se permite el intervalo [11 - 14]"
txtRespuesta.Text = ""
txtRespuesta.SetFocus
End If
End Sub
Saludos;
43
« en: Miércoles 28 de Mayo de 2003, 15:31 »
Gracias compañeros, definitivamente el fin de este foro es compartir experiencias y conocimientos, y eso es lo que trato de hacer. Saludos; 
44
« en: Martes 27 de Mayo de 2003, 18:29 »
Hola:
yo hago de la sgte manera:
Hago mi plantilla en word y a las celdas le inserto marcadores y desde vb hago lo siguiente:
Set obj = New Word.Application
obj.Documents.Open FileName:="" & App.Path & "Plantilla.doc"
obj.Selection.GoTo What:=wdGoToBookmark, Name:="marcador01"
obj.Selection.TypeText Text1.Text
obj.ActiveDocument.SaveAs FileName:="" & App.Path & "Plantilla_X.doc"
obj.Quit SaveChanges:=wdDoNotSaveChanges
set obj = nothing
y con este codigo me pasa los datos sin problemas.
Saludos;
45
« en: Viernes 23 de Mayo de 2003, 23:54 »
Hola JKim:
sobre "dbo", esto lo utilizo con SQL Server y la definicion +/- seria:
la sintaxis es base de datos . propietario del objeto ( o quien lo creo) .
nombre del objeto.
si una persona tiene privilegios de DBO database owner los objetos que cree
podran llevar el dbo.
si por ejemplo crear una vista de usuario la vista seria asi
mibase.jose.mivista
es decir, lleva el nombre del login que la creo.
Sobre tu consulta, la verdad nunca he trabajado con DataReport, ni con Oracle, se me ocurre de momento que podrias, antes de lanzar el datareport, poner un boton que diga "mostrar datos" o algo parecido y ejecutar todo el codigo desde ahi, pero, poniendo un ProgressBar donde te indique el avance del proceso.
Investigare un poco mas al respecto, dame un poquito de tiempo.
Saludos;
46
« en: Viernes 23 de Mayo de 2003, 23:42 »
Hola:
si dices que ya tienes el codigo para cuando el foco se ubique en el boton, puedes pegarlo en el evento: "MouseMove" del boton.
Saludos;
47
« en: Viernes 23 de Mayo de 2003, 01:14 »
Hola:
a ver si me das un poco mas de datos.
-usas access o sql server?.
-la segunda informacion que llenas con el recordset tambien es un ComboBox?.
-haces un barrido del recordset para llenar el segundo ComboBox, estoy suponiendo que es asi.
-Parece que no tienes problemas con el llenado del primer combo, cierto?
Espero tu respuesta.
Saludos;
48
« en: Viernes 23 de Mayo de 2003, 01:08 »
Hola:
1.- no se si se puede cambiar el color de fondo y personalizar el instalador que viene con visual basic. personalmente uso el SETUP FACTORY y me resulta mucho mejor.
2.- tal ves el usuario con que has entrado en win2000 no te permita instalar programas, chequea los permisos que tiene tu usuario.
Saludos;
49
« en: Jueves 22 de Mayo de 2003, 15:35 »
Hola: que raro que: http://www.keygen.us/pg/S/4.shtmlno carge, yo no tengo ningun problema. No hay que estar registrado ni nada por el estilo. Algun otro amigo intento ingresar? Saludos;
|
|
|
Mostrar Mensajes
