Search results

Sorry, I just talked with the main person that uses this DB. He says when he looks up a record, that number shows and prints. When he deletes the record, the number still shows but doesn't print. This number is not part of the record, it just shows the user what they searched on the...

Beetle, Yeah I'm doing a Ctrl+P to print the form...that makes sense. And Yes trying to print the value on the form which shows on the screen but not in the print out. Problem with that is I need to delete a record on this screen so the user prints the form before the delete and then after to...

I have an unbound textbox on a form that pulls a searched number from the previous form. Works perfect except it doesn't print. I've been searching around and can't find the solution. This is part of my code from my OnClick button to open the form I am talking about above...

ahh I was putting it on the wrong line...that works...silly me. Thanks Bob!

Private Sub InventoryDepartmentNumber_BeforeUpdate(Cancel As Integer) If DCount("*", "tblDept", "InventoryDepartmentNumber=" & Me.InventoryDepartmentNumber) = 0 Then If MsgBox("This Inventory Department Number does not exist. Do you wish to add it?", vbQuestion + vbYesNo, "Add Department...

Bob, I have a form called frmInput with the field/control name InventoryDepartmentNumber that feeds tblMain. If a user enters a department number not in tblMain (your earlier code), the form frmAddDepartment opens with the field/control name InventoryDepartmentNumber which will then add into...

So I was thinking, I have this field set up so if the user enters a new Department Number, the Yes/No dialog box opens asking if you want to add the number. When I hit yes, it opens the form (frmAddDepartment) where I can add this number in the InventoryDepartmentNumber field. Is it...

Again thank you!

Beetle, I'm back and I'm having one more issue. The calculations are perfect! and I thank you so much for that. I'm trying to now order these in a query/report and since it's not reading them as dates - the order is incorrect. For example when I order them in descending order I get results...

That's even better...thanks!!

Yes much better vba. Question, how do I clear the field with an invalid entry? I added an "undo" line but it's not working...? Private Sub SurfCode_BeforeUpdate(Cancel As Integer) If Me.SurfCode Like "[ABCDGILNORT]" = False Then MsgBox "Please enter a valid SURF Code"...

I'm getting an error on the IF line.. "Run-time error '2465' Missing Asset DB ca't find the field '|1' referred to in your expression Private Sub SurfCode_BeforeUpdate(Cancel As Integer) If Me.SurfCode Like [ABCDGILNORT] = False Then MsgBox "Please enter a valid SURF Code" End If End Sub...

Hi All, Trying to figure out how I would do this without creating an additional table.. I have a field called "SurfCode". I do not want this to be a combo box but instead allow the user to enter into a text field and if they enter a single character that doesn't equal...

VBA, That was it...thanks for the help!

Yes that does what its suppose to, thank you bob! There is one small detail that I would like to change... When the AddDepartment form opens, the InventoryNumber field equals "0" and the "0" is highlighted in black...anyway for that to not have any value in that field (in other words keep it...

I changed it to: [DataMode As AcFormOpenDataMode = acFormPropertySettings], [WindowMode As AcWindowMode = acWindowNormal] Which accepts Dept numbers in the table. If its a new department number, will NOW prompt me yes or no (didnt have this before) If I say No, the entry is deleted and we...

Bob, Now getting the error "Compile error: Expected variable or procedure, not module" Its pointing to: DataMode:=AcFormOpenDataMode, I think it needs another piece of code following this..

Bob, I'm getting an error on the Msgbox line regardless if I enter one that exists or doesn't exist. Here is the code (changed the textbox and control source to the name "InventoryDepartmentNumber" Private Sub InventoryDepartmentNumber_BeforeUpdate(Cancel As Integer) If DCount("*"...

Bob, Yes, I must be mistaken then. Your idea would work but could you help me write that BeforeUpdate please? I don't know what info you need but this is my row source for InventoryDepartmentNumber SELECT tblDept.DepartmentID, tblDept.InventoryDepartmentNumber FROM tblDept ORDER BY...

A listbox isnt the answer either... I need the combobox functionality without the drop down component...easy fix might be to cover up the drop down arrow with a label but everyone in my office has different resolutions therefore part of the arrow might still show depending...plus thats the lazy...