[AccessD] Some more Sat night code help please.

Jeremy Toves itsame2000 at sbcglobal.net
Sat Nov 27 23:59:05 CST 2004


No problem.  I'm glad I could help.    
 


Joe Hecht <jmhla at earthlink.net> wrote:
Thanks Jeremy, that was it.

JOE HECHT
LOS ANGELES CA 
jmhla at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jeremy Toves
Sent: Saturday, November 27, 2004 9:44 PM
To: Access Developers discussion and problem solving
Subject: RE: [AccessD] Some more Sat night code help please.

You are looking for a space and not a null. They aren't the same thing. 

If Me.cboEmpName.Value = " " Then 

Try this.

If IsNull(Me.cboEmpName.Value) Then

Thanks,
Jeremy


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Joe Hecht
Sent: Saturday, November 27, 2004 11:27 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Some more Sat night code help please.




Private Sub cmdEmpDetails_Click()

' Comments : Open Employee form mased on cboEmpName

' Parameters: -

' Modified :



'

' --------------------------------------------------

On Error GoTo Err_cmdEmpDatails_Click



Dim strStDocName As String

Dim strStLinkCriteria As String

Dim lngRetval As Long

Dim frmCurrentForm As Form



There is a combo box with a button to open another form on this form.



The combo box value is null when this form opens. If the user clicks the
button I want to open the message box and say try again.

The message box code is not fireing. 



Would someone see what is not working here?







If Me.cboEmpName.Value = " " Then 'If combobox value is null open
message box

lngRetval = MsgBox( _

"Please pitck an employee from the list or click on the close
buttob", _

vbOKOnly + vbCritical + vbSystemModal + vbDefaultButton1, _

"Please pick Employee")

Select Case lngRetval

Case vbOK



Set frmCurrentForm = Screen.ActiveForm ' Keep selection box form as
active form 

End Select

Else





strStDocName = "Employee"



strStLinkCriteria = "[EmpID]=" & "'" & Me![cboEmpName] & "'"

DoCmd.OpenForm strStDocName, , , strStLinkCriteria

End If

Exit_cmdEmpDatails_Click:

Exit Sub



Err_cmdEmpDatails_Click:

MsgBox Err.Description

Resume Exit_cmdEmpDatails_Click



End Sub



JOE HECHT

LOS ANGELES CA 

jmhla at earthlink.net



-- 
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


-- 
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


-- 
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



More information about the AccessD mailing list