RE: value in combo box

Post the code you are using now, please
--
Dave Hargis, Microsoft Access MVP


"vandy" wrote:

I just rechecked my code and this is what I got
I have unbound combo box.
row source is a SELECT tblprojects.ProjectID, tblprojects.Pno,
tblprojects.Pname FROM tblprojects;

I have 3 columns ProjectID,pno and pname
ProjectID -PK autonumber feild.

Column 1 is the bound column

I had the wrong key feild value PID now when i give it the correct ProjectID
it gives me this error.
3070 microsoft jet database engine error. does not recognize ProjectID.

I must be doing something wrong somewhere!!

"Klatuu" wrote:

How many columns does your combo have?
Which column is the bound column?
Will the bound column be the one you expect to contain the vaule?
--
Dave Hargis, Microsoft Access MVP


"vandy" wrote:

Hi Klatuu,

PID is a number and I have debugged the code and the PID gets displayed.
if rs.nomatch only than should i get the msg displayed. I am getting this
popup msg every time i click on the combo box.

Any help would be greatly appreciated.


"Klatuu" wrote:

The only obvious point of question is the data type of [PID]
If it is numeric, this is not the problem, if it is text, then you need the
proper delimiters:
rs.FindFirst "[PID] = '" & Me.cmbpno & "'"

--
Dave Hargis, Microsoft Access MVP


"vandy" wrote:

Hi all,

I have to check if the project no is not in the combo list and if it is not
than the system should pop a msg telling project no not found do you want to
add and than add the data in the list.

if it is a small combo box than one can see the values but if it is an
extended list it is good to have a confirmation msg.

I used 2 events - after update to check for values and not in list to update
the combo. Here is my problem the msg box is not firing as intended and can i
program in the not inlist event to check for both.

I used allenbrow's code as follows

Private Sub cmbpno_AfterUpdate()

Dim rs As DAO.Recordset

If Not IsNull(Me.cmbpno) Then
'Save before move.
If Me.Dirty Then
Me.Dirty = False
End If
'Search in the clone set.
Set rs = Me.RecordsetClone
rs.FindFirst "[PID] = " & Me.cmbpno

If rs.NoMatch Then
MsgBox "Project DOES NOT EXIST?"
Else
'Display the found record in the form.
Me.Bookmark = rs.Bookmark
End If
Set rs = Nothing
End If

End Sub
(here i get this msg even if there is a match found)

Private Sub cmbpno_NotInList(NewData As String, Response As Integer)

Dim rstproject As ADODB.Recordset
Dim intAnswer As Integer

intAnswer = MsgBox("Do you want to Add " & NewData & " to the list of
projects?", _
vbQuestion + vbYesNo)

If intAnswer = vbYes Then
DoCmd.OpenForm "Add projects", acNormal, "", "", acFormAdd, acDialog
Me.cmbpno.SetFocus
Me.cmbpno.Undo
Response = acDataErrContinue


End If

End Sub

thanks for your help in advance


.

Relevant Pages

  • RE: value in combo box
    ... I had the wrong key feild value PID now when i give it the correct ProjectID ... Which column is the bound column? ... if rs.nomatch only than should i get the msg displayed. ... Private Sub cmbpno_NotInList ...
    (microsoft.public.access.formscoding)
  • RE: value in combo box
    ... I have hidden the ProjectID so the combo shows Pno and pname ... what should be my bound column and what should i check in the Findfirst. ... if rs.nomatch only than should i get the msg displayed. ... Private Sub cmbpno_AfterUpdate ...
    (microsoft.public.access.formscoding)
  • RE: value in combo box
    ... is ProjectID a field in the form's recordset? ... I had the wrong key feild value PID now when i give it the correct ProjectID ... if rs.nomatch only than should i get the msg displayed. ... Private Sub cmbpno_AfterUpdate ...
    (microsoft.public.access.formscoding)
  • Re: Dlookup - Multiple items in the [Criteria]
    ... Unfortunately, John's advice was incorrect. ... Doug Steele, Microsoft Access MVP ... (no private e-mails, please) ... RoleName and the specific ProjectID. ...
    (microsoft.public.access.forms)