Recent content by Dalorax

That was funny! Don't know much about French politics or European politics for that matter. Just another close-minded ignorant American. But one this is for sure is that politics is corrupt no matter what set you claim!

That worked great! Thanks!

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...

See if this will work for you Private Sub Form_Activate() Dim cbc As CommandBarControl Set cbc = CommandBars("Menu Bar").FindControl _ (ID:=4, Recursive:=True) cbc.Enabled = False End Sub Private Sub Form_Deactivate() Dim cbc As CommandBarControl Set cbc = CommandBars("Menu...

example Try this: The Excel Object Library must be checked in your References for the following generic code to work. Private Sub Command0_Click() Dim objXLApp As Excel.Application Dim objXLBook As Excel.Workbook Dim objDataSheet As Excel.Worksheet Set...

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...

That worked! Thanks

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"...

Thanks, I was able to resolve the problem w/ a recordset clone in in the main form e.g. Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[ProductName] = '" & Me![cboProductName] & "'" Me.Bookmark = rs.Bookmark

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...