-----Original Message-----
Marijuana is bad for you. You should never post to these
forums while you're high.
I'd approach your first issue with an 'Unbound' form and
controls. That means the form doesn't have
a 'RecordSource', and the controls don't have
a 'ControlSource'. Enter your information into the
unbound fields and click on a command button to write the
info to your table. Use something similar to the
following as the On_Click event sub procedure...
Private Sub CommandButtonName_Click()
Dim rst as DAO.Recordset
Set rst = CurrentDb.OpenRecordset(dbOpenDynaset)
With rst
.AddNew
!Field1 = Me!1stControlName
!Field2 = Me!2ndControlName
!Field3 = Me!3rdControlName
.Update
End With
rst.Close
Set rst = Nothing
Me!1stControlName = Null
Me!2ndControlName = Null
Me!3rdControlName = Null
MsgBox "Record has been written."
End Sub
I'm sure your second issue has to do with the absense of
delimiters around your criteria values. You provided an
example of...
" AND [Forname]=" & cbocisco1
Which is fine if 'Forname' stores numeric values, however
if it's a text field it should read...
" AND [Forname]='" & cbocisco1 & "'"
if it's a date field it should read...
" AND [Forname]=#" & cbocisco1 & "#"
Good luck!
-----Original Message-----
Hello I have a form and I have a combo box and when you
select a value on that combo box it pops up a relevant
subform. So for arguments sake:
Combo1 = CISCO
the subform that is displayed contains CISCO Details.
This works fine.
I have a few problems:
1) The problem is when I ask it to display the forms they
come up with everything showing and I dont want that to
happen. well it is on one form the CISCO one and I have
the "Data Entry" property set to yes...The other two forms
are fine and show nothing. Any suggestions?
2) I am creating a search form and I have a filter of [ID]
0. The following code on the search button. I am only
testing this on one form fist to get it working so that
then I can encorporate everything into my other two forms.
Here is the code I am using for the search button:
---------------------------------------------------------
-
-
FilterMe = "[id] > 0"
If chkcisco1 Then FilterMe = FilterMe & " AND [Forname]
= " & cbocisco1
If chkcisco2 Then FilterMe = FilterMe & " AND [Location]
= " & cbocisco2
If chkcisco3 Then FilterMe = FilterMe & " AND [Surname]
= " & cbocisco3
If chkcisco4 Then FilterMe = FilterMe & " AND [Department]
= " & cbocisco4
If chkcisco5 Then FilterMe = FilterMe & " AND [Support
From] = " & cbocisco5
If chkcisco6 Then FilterMe = FilterMe & " AND [CISCO
Username] = " & cbocisco6
If chkcisco7 Then FilterMe = FilterMe & " AND [Type of
Dialin] = " & cbocisco7
DoCmd.ApplyFilter , FilterMe
---------------------------------------------------------
-
-
What could possibly be wrong? What have I missed?
Many Thanks
James
