I get an error Runtime Error "3265" Item cann't be found

[odessa79]

Anybody has a suggestion?

Set cmd = New ADODB.Command

With cmd
.ActiveConnection = cn400
.CommandText = "SELECT max(PRJNBR) FROM ENPRAWD02.PRJPF"
.CommandType = adCmdText

Set objRecordset = New ADODB.Recordset
objRecordset.CursorLocation = adUseServer
objRecordset.Open cmd, , adOpenForwardOnly, adLockReadOnly

With objRecordset
Set wrkProjectNumber = .Fields("PRJNBR&quot It kick an error on this line
End With
End With


Thanks

 

[LPlates]

Does the field "PRJNBR" exist in you db?

 

[MarkSweetland]

set the columnName of the return value:

.CommandText = "SELECT max(PRJNBR) [red]as PRJNBR[/red] FROM ENPRAWD02.PRJPF"


Mark

"You guys pair up in groups of three, then line up in a circle."
- Bill Peterson, a Florida State football coach

 

[tb]

>SELECT max(PRJNBR)
If you run this in query analyser you will see (no column header) displayes . . .

SELECT max(PRJNBR) as 'PRJNBR'


I was standing in the park, wondering why frisbees got bigger as they came closer... then it hit me!

 

[odessa79]

Thanks Guys It works now

 

[VBDemiGod]

instead of aliasing the column you could also just:

wrkProjectNumber = .Fields(0).value