Search results

I have a date stored as text yymmdd (e.g. 060707 would be 7/7/06). I would like to convert this format to JUL0706. I have tried Ucase(format("060707","MMM")) which yields MAR. What am I missing here. I figure if I can convert the 07 to JUL I can use the left() and right() functions to take...

I can't seem to get the following code to work. Any help would be appreciated: Public Function NonConform(strProduct, strBatch As String) On Error GoTo HandleErr Dim stDocName As String Dim stLinkCriteria As String stDocName = "frmProductNonConforming" stLinkCriteria =...

I have an xls template which i open and store data. I then print and save xls file. Print works perfect. However, when I go to retrieve the saved xls file I can't see the data. or anything else for that matter. The code are as follows: Private Sub btnCustCOA_Click() On Error GoTo...

I'm trying to open a form based on another form and have the following code in the Open Event: Private Sub Form_Open(Cancel As Integer) On Error GoTo Err_FormOpen Dim strForm As String strForm = "frmProductionBatch" If IsLoaded(strForm) Then Me.ProductName =...

I have the following code to access a table: Dim strProduct As String Dim rs As ADODB.Recordset Dim intNum As Integer Dim strSQL As String strProduct = Me![ProductName] Set rs = New ADODB.Recordset strSQL = "[ProductName] = '" & strProduct & "'" rs.Open "tblRMFG"...

I have a main form w/ a table contain product name and batch number. Each product is subjected to a different test for which i have created a seperate table. I have included individual pages (tabs) for the specific product. These individual tabs have the subforms based on the different test...