Another Form Question

[keith701a]

I have built my form mentioned in my other post. I am now having a problem entering data into it. I have it set "yes" for data entry, yet it is pulling existing dummy records I have entered. Some fields on certain subforms can be edited while others on different subforms cannot.



I just need the whole form to be for new records only. I am going to build another similar form for existing one.

Thanks in advance.

[June7]

I would use one form for both new and existing records. I use VBA code to control the mode a form opens to.

[keith701a]

Thanks for the reply, I've been on days off hense the delay in replying. Is there anyway to get a sample of said code? Half of my issue is my lack of familarity with VBA, I've been scraping it together as I go along from other sources.

[June7]

Here is example of how I open same form for different purposes:

for edit mode:
DoCmd.OpenForm "form name", , , "Submit.LabNum='" & strLabNum & "'", , , "Edit"

for view only:
DoCmd.OpenForm "form name", , , "Submit.LabNum='" & strLabNum & "'", acFormReadOnly, , "ViewData" & ":" & strSource

for new record:
DoCmd.OpenForm "form name", , , acFormAdd, , "New"

Then code behind the opened form:

Private Sub Form_Open(Cancel As Integer)
With Me
If .OpenArgs Like "View*" Then
    .AllowEdits = False
    .tbxRet.ControlSource = "Ret"
    .tbxRet.BackColor = RGB(204, 255, 204)
    If .OpenArgs = "ViewData:Button" Then
        .btnCancel.Caption = "Quit Data View"
        .btnFinish.Caption = "&Continue"
        .btnFinish.SetFocus
    ElseIf .OpenArgs = "ViewData:DoubleClick" Then
        .btnFinish.Visible = False
        .btnCancel.Caption = "Close"
    End If
End If
End With
End Sub

However, I have not done this with form/subform arrangement but should work.

[dblife]

sneaky way to learn useful vba - i found useful..
if you use the button creation wizard in access and then go into the code, play around with the commas where the arguments are and you will see all the options..