RE: value in combo box

This is the current code i am using.

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 "[ProjectID] = " & Me.cmbpno

If rs.NoMatch Then
MsgBox "Not found: filtered?"
Else
'Display the found record in the form.
Me.Bookmark = rs.Bookmark
End If
Set rs = Nothing
End If


"Klatuu" wrote:

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: VB5, User control for Wavein mgt, no callback call for WIM_DATA ?
    ... Dim wFormat As tWaveFormat ... Private Sub PauseBtn_Click ... ' Call mciGetErrorString(rc, msg, Len(msg)) ... waveInGetErrorText rc, msg, Len ...
    (microsoft.public.vb.winapi)
  • Re: Saving attachemtns automatically
    ... Sub RunAScriptRuleRoutine ... Dim olNS As Outlook.NameSpace ... Dim msg As Outlook.MailItem ... Set olNS = Application.GetNamespace ...
    (microsoft.public.outlook.program_vba)
  • Re: Access Report - VB code for OnOpen - date range?
    ... Private Sub cmdOpenReport_Click ... Dim Msg, Style, Title ... Dim gstrReportName As String ... Dim gstrWhere As String ...
    (comp.lang.basic.visual.misc)
  • Re: Excel 2003 VBA: Workbook_SheetCalculate problem.
    ... Public Sub Workbook_SheetChange(ByVal Sh As Object, ... Dim betType, mktID, selID As Long ... Dim Price, Size As Double ... Dim msg As String ...
    (microsoft.public.excel.programming)
  • 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)