sql statement I guess is not correct

[xerife007]

Hi forum,
I have this code, but don't appear nothing in my form.maskedbox :
My sql statement is:

adoPedAvaliaRs.Open _
"SELECT PK_Processo,StatPedAval,Dt_recep_ped,Dt_envio_ped,ObsPedAvalFROM T_Dts_Pedido_Avalia Where PK_Processo='frmProcesso1.txtfields(0)'", m_oConn, adOpenKeyset, adLockReadOnly

is correct??? I guess not!

Set frmProcesso1.MaskEdBox1(4).DataSource = adoPedAvaliaRs
frmProcesso1.MaskEdBox1(4).DataField = "Dt_recep_ped"

The properties are correct??

thanks
pjm

 

[Foada]

Try this

PK_Processo='" & frmProcesso1.txtfields(0)& "'", If you choose to battle wits with the witless be prepared to lose.

 

[xerife007]

Hi foada

It gives me "Data type mismatch in criteria expression"

 

[mattKnight]

what data type is PK_Processo ?

from the error I woudl guess it is numeric, therefore try taking out the ' from around teh value

i.e.

PK_Processo= " & frmProcesso1.txtfields(0),


Matt

 

[xerife007]

Ok! the sql statement works
thanks

But, in the second question I can't put a data in the maskedbox what can be the problem. I taked all formats and mask's and still not working.

 

[CmPaiva]

Try assign the field value, not the field name!


frmProcesso1.MaskEdBox1(4).DataField = rs!Dt_recep_ped
===

where rs is the recordset you just opened!

Lucky,
Carlos Paiva

 

[xerife007]

Hi, carlos
Thanks for your help but,
It gives me a erro "Invalid use of Null".

 

[CmPaiva]

Before doing the assingment, test for null:

if not IsNull(rs!Dt_recep_ped) then frmProcesso1.MaskEdBox1(4).DataField = rs!Dt_recep_ped

This should be done to whatever assignment you made, if the var type is not an variant.

Carlos Paiva

 

[xerife007]

But if I put this condition he don't do my command.

my code in module is:

Sub LigaDbPedAvaliaObject(adoPedAvaliaRs)

Set frmProcesso1.MaskEdBox1(4).DataSource = adoPedAvaliaRs
If Not IsNull(adoPedAvaliaRs!Dt_recep_ped) Then

frmProcesso1.MaskEdBox1(4).DataField = adoPedAvaliaRs!Dt_recep_ped
End If

Set frmProcesso1.txtfields(6).DataSource = adoPedAvaliaRs
frmProcesso1.txtfields(6).DataField = "ObsPedAval"

Set frmProcesso1.MaskEdBox1(5).DataSource = adoPedAvaliaRs
frmProcesso1.MaskEdBox1(5).DataField = "Dt_envio_ped"

End Sub

I don't have null values in the record in db table.


Regards
PJM

 

[CmPaiva]

xerife007

There's something wrong in here.

-You are using a BOUNDED MaskedEdit.

If so, the previous assignment is right (You should assign the field name to the DataField property.
(Sorry, but i didn't understand this way)

Are the lines of code in your 1st post, in that order?
(Open ..., Set ... , assignment of field name)

Post the code where you open the recordset.

Carlos

 

[xerife007]

Carlos
I'm using "readonly" in conn.open.
I'm send to you the code.
Let me ask you. you are Potuguese in Portugal?

 

[CmPaiva]

yes, and if u wish to contact me , my email is :
c_paiva@netcabo.pt

Regards
Carlos Paiva