RobertGabriel
Last Activity: Aug 11 '08, 08:29 PM
Joined: Apr 27 '07
Location:
-
Embed ODBC Drivers in a database
Is it possible to have an ODBC Driver be loaded on to a computer when the database is launched? -
Oh Yeah!. Life is beautiful again.
This works perfectly. Thanks for your help.
thescripts.com is my new homepage.... -
This is working except when I get to a record that has null in the comments from rsIn, I get an error here: "line 28"
strDescription = rsIn!Comments
Runtime error 94 "invalid use of null"
rsIn!Comments is null at this point.
...Code:Option Compare Database Option Explicit Function fncGetWorkDetail() ' The input table records Dim rsIn As Recordset ' The output
Leave a comment:
-
My "rsOut!CrNu m" still says Null and the "strCrNum" has a value....Leave a comment:
-
That debug code is cool . I believe my problem initially is the file I want to append to has no records. When I place the curser over the variables it tells me what is in them. When I get to :
The "rsOut!CrNu m" says Null and the "strCrNum" has a value....Code:rsOut.AddNew strCrNum = rsOut!CRNum strNumber = rsOut!Number rsOut.UpdateLeave a comment:
-
I am getting an illegal use of Null with this
at "strCrNum = rsOut!CRNum"
...Code:Option Compare Database Option Explicit Function fncGetWorkDetail() ' The input table records Dim rsIn As DAO.Recordset ' The output records with the details Dim rsOut As DAO.Recordset Dim strDescription As String Dim strCrNum As String Dim strNumber As String Set rsIn
Leave a comment:
-
...Code:Option Compare Database Option Explicit Function fncGetWorkDetail() ' The input table records Dim rsIn As DAO.Recordset ' The output records with the details Dim rsOut As DAO.Recordset Dim strDescription As String Dim strCrNum As String Dim strNumber As String Set rsIn = CurrentDb.OpenRecordset("tblWorkOrderDescription") Set rsOut = CurrentDb.OpenRecordset("tblWorkDetail")Leave a comment:
-
[QUOTE=Denburt] I would like to point out a couple of things that may help.
rs is not declared or even initialized, this can generate an error, in fact this is the only place it is even used try changing this to a recordset you are fixing to try and loop through such as the "rsIn". There...Code:' test for rows to be processed, else stop If rs.EOF And rs.BOF Then Exit Function End If
Leave a comment:
-
Modified
...Code:Function fncGetWorkDetail() ' The input table records Dim rsIn As DAO.Recordset ' The output records with the details Dim rsOut As DAO.Recordset Dim strDescription As String Dim strCrNum As String Set rsIn = CurrentDb.OpenRecordset("tblWorkOrderDescription") Set rsOut = CurrentDb.OpenRecordset("tblWorkDetail")Leave a comment:
-
-
I think I have to do something to return a complete record.
CrNum
...Code:Function fncGetWorkDetail() ' The input table records Dim rsIn As DAO.Recordset ' The output records with the details Dim rsOut As DAO.Recordset Dim strDescription As String Dim strCrNum As String Set rsIn = CurrentDb.OpenRecordset("tblWorkOrderDescription") Set rsOut =Leave a comment:
-
I have added the code to a module. not sure how to put the loop code in....Leave a comment:
-
Thank you for taking the time to help me.
desired results
CRnum WorkOrder
07-18733 200260588
07-18733 200260599
07-18930 200260588
07-18930 200260599
07-18186 200260170
07-18738 200258896
07-18738 200187000Leave a comment:
-
ex.
CRNum Description
07-18733 "200260588
200260599"
07-18930 "Required prior to withdrawal with fuel adjacent to the rod 200260588/200260599"
07-18186 "PLCO 07-C11-050
200260170 For all valves. Other orders voided."
07-18738 200258896 200187000
desired results
CRnum
07-18733 200260588...Leave a comment:
-
I am limited with VBA. I can usually hack some but not reall good at making my own....Leave a comment:
-
The Numbers are fixed length: 9. and they all start with 200...Leave a comment:
-
The Description field is a text field that people type/copy-paste into. the Numbers I am trying to extract can be seperated by anything. spaces, commas, carriage returns, etc. so,
what I have is 1 record with
CRnum and Description.
I want to end up with as many records as are workorders.
CRnum and WorkOrder...Leave a comment:
-
right. I got carried away....Leave a comment:
-
How to extract multiple entries
Split from a thread in Visual Basic forum
Moderator
I have a similar problem. can you guys help?
I am trying to find multiple entries that meet my criteria.
this works great for the first one. There could be any number of 9 digit Work Order numbers that I need to extract.
Work_Order: IIf(IIf(InStr(1 ,[ML]![Description],"200")>0,Val(M id([ML]![Description],InStr(1,[ML]![Description],"200"),9)))>20 0000000,Mid([ML]![Description],InStr(1,[ML]![Description],"200"),9))... -
Complex(for me) INSTR problem in MS Access
I am trying to find multiple entries that meet my criteria.
this works great--
Work_Order: IIf(IIf(InStr(1 ,[ML]![Description],"200")>0,Val(M id([ML]![Description],
InStr(1,[ML]![Description],"200"),9)))>20 0000000,Mid([ML]![Description],
InStr(1,[ML]![Description],"200"),9))
Example result = 200158687. My problem is this field has more than 1 number that I need to extract....Last edited by nico5038; Apr 29 '07, 08:34 PM. Reason: splitted Workorder's IIF() to narrow the text
No activity results to display
Leave a comment: