Search results

thank you , to take that further if you have a table with say 20 fields in it and a form with 20 fields in it and then you want to create another form using data from that table say 7 fields is it best to call up that table again as i have to get the 7 fields or would you create a form...

i would like to know which way i should take this as i have seen both ways in a form should i just uses the " star " in the query or select the fields i want if a am using the query to create a form thanks steve

hi bob seems we posted at the same time , yes the whole record can be locked of as after the stock has been changed i dont want anyone changing it steve

Private Sub Form_Current() Me.stock_changed.Enabled = False 'Me.Passed.Enabled = False Select Case Me.Passed Case "yes", "short", "part rejected" Me.stock_changed.Enabled = True End Select Me.AllowEdits = (Nz(Me.[stock_changed], False) = False) End Sub i have managed to get this working...

rivate Sub Form_Current() Me.AllowEdits = (Nz(Me.[stock_changed], False) = False) End Sub this is the code that will lock the field when i tick the box , but it could be ticked early so i would like to keep it locked until the "date inspected" field has a date in it and the passed field...

i have just done that which works automatically. but i am concerned now about what you said that if they delete a line after selecting the word "ordered" it would not alter the on order qty , nor allocation qty back down also as the system is new to everyone i was trying to make is that...

i have noticed that when they select the word "ordered" from the drop down box then are not pressing the button called " update" this changes the on order qty and the allocation requirements that goes into the stock table , is it possible to get a message that reminds them to press the update...

Thank you for your help it is now working ok

when the user ticks that box they cannot undo it it is password protected as this stops parts being re ordered this date tells me when parts where ordered

hi when i tick parts ordered box the date comes into the box . i thought that date would not change but have noticed it did . the control source mentions ,now() should it be date() for it not to change ? thanks steve

hi I dont need to have it as an attachment I put it there as I thought that was the only way you could attach it to the e.mail thats was sending the order acknowlegement Steve

Private Sub cmdEmail_Click() Dim strTo As String Dim strSubject As String Dim strMessageText As String Me.Dirty = False strTo = [Order Details subform].[Form]![EMailaddress] strSubject = " Acknowledgement Number " & Me.id strMessageText = Me.Firstname &...

thank you works great

one on the guys on here really helped me create some code that went into the form " acknowledge order" i have now copied that code to the " enter order details the problem i have is that the when i create a text box to look for the customer name it gives me the ID number for that...

I only used the numbering on those 3 line items just to show the 3 ways i was trying to make it work .i dont normally do that thanks steve

arnelgp , that works great thank you . if i wanted just to create the folder path without sending the pdf file would i just have to remove the line DoCmd.OutputTo acOutputReport, "order acknowledgement", acFormatPDF, strFullPath? thanks steve

Private Sub cmdPDF_Click() On Error GoTo Err_Handler Const FOLDER_EXISTS = 75 Const MESSAGE_TEXT1 = "No current invoice." Const MESSAGE_TEXT2 = "No folder set for storing PDF files." Dim strFullPath As String Dim varFolder As Variant Dim CustomerPath As String...

this problem with it being in the table is i would have to change the year every year i want to get this final path where my file will go to \\192.168.2.14\contdocs\sales\orders\current orders \2023\customer name \ NCO No and the year is varible as is the customername and nco number the...

Do you mind telling me where i would put that in the code thanks steve

Private Sub cmdPDF_Click() On Error GoTo Err_Handler Const FOLDER_EXISTS = 75 Const MESSAGE_TEXT1 = "No current invoice." Const MESSAGE_TEXT2 = "No folder set for storing PDF files." Dim strFullPath As String Dim varFolder As Variant If Not IsNull(Me.id) Then...