Simple way of always opening any form of a selected customer with his data ?

[TecnicoAlpha]

Hello everybody..

Situation :

- Customer is created on customer form (Done)
- Customer is selected on ComboBox and has to be used on ALL remaining forms to be filled until we exit to main menu, where we can select another (Done)
- Any form displays the name of the selected Customer (Done with TempVars)
- Any form that is opened has to show the data entered previously for this customer in this same form (Problem, wrong mode of using filters ??)
- Each form has to have only one record for each Customer (Problem)

[Seth Schrock]

Your last two items seem to contradict each other. Can you please describe in more detail what you are trying to do?

[TecnicoAlpha]

First time you open the form for this customer, new record.
Second time you open the form, should show the info filled before, not new record.

 
Private Sub btn3_Click()
 
    If IsNull(txtClientName) Then
        MsgBox ("Please select a client")
    Else
        DoCmd.Close acForm, "Menu Budgets"
        DoCmd.OpenForm "O_2 - Avaliação Clínica Inicial" 
        DoCmd.ApplyFilter "SELECT [O_2-AvaliaçãoClínicaInicial].* FROM [O_2-AvaliaçãoClínicaInicial] WHERE BID = TempVars!TempBID"
 
        End If
 
End Sub
 
 

 
Private Sub Form_Load()
 
    DoCmd.Maximize
    txtBID.Value = TempVars!TempBID
    txtClientName.Value = TempVars!TempClientName
 
    Me.Form.Filter = "BID=" & Me.txtBID
    Me.Form.FilterOn = True
 
End Sub
 
 

[TecnicoAlpha]

For the customer personal data, it shows the form with name, address, etc, with the data entered before.
If it's another form, ti goes to new record.
I tried to use a filter as i showed, but it doesn't always work, because everytime the form is open, it saves a record automatically, even if you're only vieweing what was entered before.

[Seth Schrock]

The DoCmd.ApplyFilter command doesn't use the whole SQL SELECT statement, just the WHERE clause without the word WHERE. Try fixing that and see what happens.

Probably the easiest method that I can think of to make the same form open without any previous data the first time and then with data the second time would be the specify the DataMode argument of the DoCmd.OpenForm command to be acFormAdd for the first time you open it.

[TecnicoAlpha]

Tried to upload a zip file with DB (2,58MB), shows an upload error.

[TecnicoAlpha]

So desperate... :(
The stress of the time limit to do this is making me really desperate.

[Seth Schrock]

Did you try what I suggested? What were the results?

[TecnicoAlpha]

Like this ?

DoCmd.ApplyFilter "BID = TempVars!TempBID"

[TecnicoAlpha]

You´re my idol, it works like a charm.
So simple, yet so powerful :D

[Seth Schrock]

Glad you got it. Let us know if you need help with anything else in your project (in a new thread).

[TecnicoAlpha]

The final code assigned to the button, after the customer been select on the combobox, TempVars set, went like this :

Private Sub btn3_Click()
 
   If IsNull(txtClientName) Then
     MsgBox ("Please select a client")
   Else
     DoCmd.Close acForm, "Menu Budgets"
     DoCmd.OpenForm "O_2 - Avaliação Clínica Inicial" 
     DoCmd.ApplyFilter "BID = TempVars!TempBID"
 
   End If
 
End Sub