cmdButton to open form in Data Entry mode Access 2K

[Dreamboat]

Your wallpaper is prettier than ours in the MS Office forums!!

Need some help, obviously.

I create a cmdButton in a form that goes to open another form. I need to edit it so that it:

a) Opens the form in data entry view (I don't have to make TWO forms, right??) Current code:

Private Sub cmdAddNewPat_Click()
On Error GoTo Err_cmdAddNewPat_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmPatients"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cmdAddNewPat_Click:
Exit Sub

Err_cmdAddNewPat_Click:
MsgBox Err.Description
Resume Exit_cmdAddNewPat_Click

End Sub



b) Shows the form of the person in the CURRENT form. The current form shows the patient name, etc., and then has a subform for visits. I have a command button that, when clicked, I'd like it to open that Patient's record (PatID is the ID primary key for the patient). Current code shows all records.:

Private Sub cmdViewEditPatRecord_Click()
On Error GoTo Err_cmdViewEditPatRecord_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmPatients"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cmdViewEditPatRecord_Click:
Exit Sub

Err_cmdViewEditPatRecord_Click:
MsgBox Err.Description
Resume Exit_cmdViewEditPatRecord_Click

End Sub


I hugely appreciate the code, if possible. LOL Anne Troy

http://www.TheWordExpert.com

http://www.Brainbench.com

 

[Dreamboat]

PS: Don't be misled by the title in my profile:

Microsoft Office VBA/Applications Project Manager

What that means is that I don't code, but I pay people to do it for me!

This happens to be a project that I'm doing as a freebie for someone. Anne Troy

http://www.TheWordExpert.com

http://www.Brainbench.com

 

[Dreamboat]

No takers?

Puhleeeeeze!!

Anne Troy

http://www.TheWordExpert.com

http://www.Brainbench.com

 

[VBslammer]

Here's the data entry:

Private Sub cmdAddNewPat_Click()
On Error GoTo Err_cmdAddNewPat_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmPatients"
DoCmd.OpenForm stDocName, , , , acFormAdd

Exit_cmdAddNewPat_Click:
Exit Sub

Err_cmdAddNewPat_Click:
MsgBox Err.Description
Resume Exit_cmdAddNewPat_Click

End Sub

Here's the filtered version:

Private Sub cmdViewEditPatRecord_Click()
On Error GoTo Err_cmdViewEditPatRecord_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmPatients"
stLinkCriteria = "[PatID]= ' " & Me![PatID] & " ' "

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cmdViewEditPatRecord_Click:
Exit Sub

Err_cmdViewEditPatRecord_Click:
MsgBox Err.Description
Resume Exit_cmdViewEditPatRecord_Click

End Sub

If the [PatID] field is numeric you can omit the single quotes from the stLinkCriteria string.


VBSlammer

 

[Dreamboat]

You're the best, VBS! I'll try it over the weekend!

:-X Anne Troy

http://www.TheWordExpert.com

http://www.Brainbench.com