I need another set of eyes to take a look at it. While Counter < 20 ' Test value of Counter. By this, I mean insert rows in the underlying tables that the function I have tried but not able insert the values into the summary table. which you as the programmer will then use in c++ during runtime. VB Dim Counter Counter 0 ' Initialize variable. When no separator string is provided, the string is Together it matches any character. The statements in the loop are executed as long as the condition evaluates to True. But I've been staring at it for a while and my changes haven't worked. This example uses the While.Wend statement to increment a counter variable. I think it is trying to move to the next record when there are no more records left. I think the problem is with the following lines: rst.MoveNext However, when I use the SQL equivalent it does not display anything. Set rst = dbs.OpenRecordset("T_RECIPIENT_SORT", dbOpenTable)ĭo While Not (rst!DONOR_CONTACT_ID = rst.EOF) This was never difficult in Microsoft Access/VBA using its Format command: Format.
My program does everything it is supposed to, but at the end it always gets an error that says "No Current Record". Then I want to use temporary variables to check to see if the records have the same DONOR_CONTACT_ID and then display a message if they do (Most of the records have the same DONOR_CONTACT_ID). Line Input 1, InputData ' Print to the Immediate window. Do While Not EOF (1) ' Read line of data. Open 'MYFILE' For Input As 1 ' Check for end of file. Debug.Print Seek (1) ' Print byte position to the Immediate window. This example assumes that MYFILE is a text file with a few lines of text. M圜har Input (1, 1) ' Read next character of data. I want to sort DONOR_CONTACT_ID in ascending order which I did with my query Q_RECIPIENT_SORT. Do While Not EOF (1) ' Loop until end of file. (Advanced Programming In Access 2013) Using ADO. I have a table with 3 fields: DONOR_CONTACT_ID, RECIPIENT_CONTACT_ID, ORDER_NUMBER. VBA - Recordsets Part 1 (Programming In Microsoft Access 2013)
0 kommentar(er)
