Replies

If you can see anything here I appreciate it.
This is the code on the onopen of the switchboard:

Private Sub Form_Open(Cancel As Integer)

Dim varYatzig As Variant
Dim x As Variant
Dim dtNow As Date
Dim DtMax As Date
Dim rst As Recordset

On Error GoTo errrorhandler

Set rst = New Recordset
Set rst.ActiveConnection = CurrentProject.Connection
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open (“tblyatzig”)

dtNow = Date

DtMax = DMax(“[dtYatzig]”, “tblyatzig”)

If dtNow > DtMax Then

varYatzig = InputBox(“

Guess whatIt worked.
thanks Hans

Zave Rudman

Thanks for the help.
the code breaks and it says that it is getting a null value.
I do not think that I have created a new record yet. I only create the new record if the result of the first part of the If-then is negative. Otherwise it is supposed to find the last record entered based on the previous DMax. AS i think I wrote it. If dtnow is geater than dtMax (in other words there is no record yet for today) then it opens an input box gets today’s rate from the user saves it into the table and sets the text box on the switchboard with that value.
If the max date in the table is today’s date then it closes the table that was opened, and tries to Dlookup the value in the table using dtmax as the criteria. At that point all I get is a Null value. If I remove the criteria from the Dlookup it will work, just it will return a random number.
I see what you mean about the currency and intyeger field, but that is not the problem here (I think).

I hope this helps.
Thanks for the help.

The simple way is to have a table that has 4 fields. one for each person’s AutoID, one for the type of relationship and one for a PK. Then to query it you link the main table to this table twice and you can get the info out.

look at the help for the orderby property. You can either make a message box that offers two choices and based on the response change the orderby property, or make a dialog form that gives you list box of choices and opens the report based on the choice.
There also a property that controls how the group is sorted that you can set.
I hope this helps

The reason I did it with VBA is for a complete novice user, he can get the count easily, without having to open unfamiliar menus and potentially destroying his doc (no eees)

this works if anyone is interested. It is based on the helpful input of everyone who responded:

Public Sub howMany()

Dim strfind As String
Dim lngMany As Long
Dim lngBefore As Long
Dim lngAfter As Long
Dim lnghow As Long

strfind = InputBox(“Which Character would you like to search for?”, “Count”)

‘ this protects the original doc
Selection.WholeStory
Selection.copy
Documents.Add DocumentType:=wdNewBlankDocument
Selection.PasteAndFormat (wdPasteDefault)

lngBefore = ActiveDocument.Characters.Count
StatusBar = lngBefore

Selection.find.ClearFormatting
Selection.find.Replacement.ClearFormatting
With Selection.find
.Text = strfind
.Replacement.Text = strfind & “#”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.find.Execute Replace:=wdReplaceAll

lngAfter = ActiveDocument.Characters.Count
StatusBar = lngAfter
lnghow = lngAfter – lngBefore
StatusBar = lnghow
x = MsgBox(“The character ” & strfind & ” appears ” & lnghow & ” times”, vbInformation, “Results”)
ActiveDocument.Close (False) ‘to close the temporary doc that you opened.

End Sub

try the following:

Ezy Reporter Add-In for Access2002. The easy way to create Access output.

http://aadconsulting.cjb.net[/url%5D link activated by WendellB 19-Sep-02 04:58 MDT
tdambra@ozemail.com.au.

There are versions for XP and 97. It is free. You have to see if it works for you.

make your combo box have 2 columns. One the vendor name the other the concantenated address. The second column does not even have to show. Set the afterUpdate event to put the second column of the combo box in the appropriate field. i.e. me.cboShipTo.Column(1)

Is the problem that the field is not yet saved, since you did not leave the record? Maybe force the form to be saved, then it will recognize that record?

does that mean that the relationship diagram and all the RI in the front end between the linked tables is irrelevant?

thanks for the info

I set up a system with a metrologic ms9500 with no problem. The only thing you need is a way to print the barcodes. There is an ocx called MAbry that is very good for automatically bar codes.

I see Charlotte beat me to the answer to this issue. About splitting the name, you can use the Mid function to do that. Look in the Help how to do it.

just make sure that in the query for the people from the town, you add the linking field that links the two tables. Then build a query on that query and add the tranaction table, and make sure that in the QBE grid the table and first query are linked.