Mensajes

Pienso que el problema radica en que Data = "msg" + chat y no simplemente "msg"  es por eso que la condicion no se cumple

Dim chat As Variant
If Data = "msg" Then
    MsgBox chat, vbCritical, chat
End If

Me parece muy bueno.

Si hay algo que me disgusta del visual es su arrastre con las dependencias.

Saludos.

Código [Seleccionar] Expandir

App.title=""

Por favor mi pregunta, visitar este link
http://foro.elhacker.net/index.php/topic,125848.0.html

  De nada; fue un placer ayudarte colega.

OK tema solucionado ahora
como hago para q me muestre el DataGrid
lo q yo busco y no toda la base??

Debes pasarle una cadena Sql por la propiedad RecordSource al control Data. Ejemplo:

Código [Seleccionar] Expandir

Data1.RecordSource = "SELECT Changes.Date, Changes.Time, Changes.Company, " & _
            "Changes.Discontinued, Changes.Customer, Changes.PhoneHouse, Changes.PhoneWork, Changes.Bank, " & _
            "Changes.PhoneBank, Changes.Amount, Changes.Interest, Changes.Change From Changes " & _
             "WHERE Changes.Company = '" & Compania.Text & "'" & " ORDER BY Changes.Date DESC, Changes.Time DESC "

De esta manera como el DBGrid se encuentra enlazado al Data mostrara los registros que deseas.
La cadena Sql anterior es tambien un ejemplo de consulta de parametros - que te es igual de eficiente que el metodo Find

Saludos

y como me las apaño para mostrarlas en un combo y q cuando seleccione una use esa para imprimir?

Código [Seleccionar] Expandir

Private Sub Form_Load()
    Dim x As Printer
    For Each x In Printers
       List1.AddItem x.DeviceName
    Next
End Sub

Nota: Use un Listbox pero es lo mismo

Código [Seleccionar] Expandir

Dim base as Database
Dim tabla as Recorset

Set base = OpenDatabase("C:\BaseMSN.mdb")

'Con una tabla de nombre tablaregistro

Set tabla = BaseMSN.OpenRecorset("tablaregistro")

'Compuesta por los campos username y password

tablaregistro.AddNew
  tablaregistro(0) = Text1
  tablaregistro(1) = Text2
tablaregistro.Update
'Se guarda la información
 
base.Close
'Se cierra para que no de errores


Nota: Debes agregar las referencias DAO previamente (Menu > Proyecto -> Referencias).

Salu2

Lo que yo quiero es grabar la carpeta que crea vb al instalarse y en una carpeta o similar dentro del mismo cd grabado, las ocx y demas para que funcione

Consiguete un programa como este:
Wise Installation System - Professional Edition

Tiene un asistente para importar proyect de VB que es una maravilla.
El asistente para empaquetado que viene con visual basic - en mi opinion es algo rústico.

Saludos

  Me sumo a las felicitaciones!!
Es la mejor carrera de todas.

Mucho Exito!
Saludos.