Temas

Pretendo utilizar VB6.0 para  preparar un msg en Outlook que rellene solo el campo asunto con datos de varios text. Dejando los demás campos, como destinatario, con copia etc que los rellene el usuario y proceda a enviarlo.

Podeis ayudarme...Gracias

Estoy tratando de trabajar con adodc y eventos, para poder conocer cuando un registro cambia de posición y el motivo.

Un poco del código..

Código (vb) [Seleccionar] Expandir



Public Sub Abrir_BD()

 
    sBase = "C:\BaseDatos" & "\BD_97.mdb"


    Set rstTrab = Nothing
    Set cnn = Nothing

    Set cnn = New Adodb.Connection
    Set rstTrab = New Adodb.Recordset

    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
    rstTrab.Open ConsulTrab, cnn, adOpenKeyset, adLockBatchOptimistic

    If rstTrab.EOF And rstTrab.BOF Then
        Cuantos = 0
        Beep
    Else
        Beep
    End If
    Cuantos = rstTrab.RecordCount
   

End Sub



Private Sub rstTrab_MoveComplete(ByVal adReason As Adodb.EventReasonEnum, ByVal pError As Adodb.Error, adStatus As Adodb.EventStatusEnum, ByVal pRecordset As Adodb.Recordset)
On Local Error Resume Next
   
    Adodc1.Caption = pRecordset.AbsolutePosition & " de " & pRecordset.RecordCount
end sub

Private Sub rstTrab_WillChangeField(ByVal cFields As Long, ByVal Fields As Variant, adStatus As Adodb.EventStatusEnum, ByVal pRecordset As Adodb.Recordset)

end sub

Private Sub rstTrab_WillChangeRecord(ByVal adReason As Adodb.EventReasonEnum, ByVal cRecords As Long, adStatus As Adodb.EventStatusEnum, ByVal pRecordset As Adodb.Recordset)

end sub


Intento conocer el valor de adReason, etc  para poder tomar decisiones de que ha ocurrido y que hacer a continuación.
Por ejemplo UpdateBatch o CancelBatch..

Pero no tengo claro los valores que pueden devolverme esas variables.

Pretendo que si hay cambios en el registro, antes de grabarlos solicitar que el usuario conteste a un textbox con YES.


Podeis encenderme una LUZ???


Saludos

Saludos,   estoy liado con un tema que seguro podeis ayudarme.

Los formularios no se representan igual en todos los PC's, está en función de la resolución de la pantalla.
Los Form's y sus Label's, Text's etc. no consigo que se coloquen, quedan fuera del form sin verse, etc.

Estoy siguiendo esto de MSN:

http://support.microsoft.com/kb/182070/es


Lo he copiado en un nuevo proyecto y no me funciona, el tamaño del Form si lo ajusta, pero los demás TEXT, o Label, no los cambia ni de tamaño ni los reubica, quedan invisibles, dependiendo de donde se encuentren en la pantalla. inicial.

Podeis ayudarme ?
Saludos.

MSIEVE   quien de esta "casa" lo utiliza y me ayuda con las opciones de comandos???