Planet PDF Forum Archive

Planet PDF ForumWowsers! This is page is old, head to the LIVE Planet PDF Forum. It features more than 10 conferences, covering everything from beginner to in-depth developer and pre-press discussions. If you wish to continue... one & two archive covers 1999-2011 (160,000 pages).


New Forum | Previous | Next | (P-PDF) Beginners


Topic: Increase alphanumeric field value by 1
Conf: (P-PDF) Beginners, Msg: 130703
From: Hudson
Date: 4/8/2005 12:18 AM


Increase alphanumeric field value by 1

This works for a numeric field.
A user types in field “POS1” 1001
When the user tabs to field “POS2” it Autofill to 1002

onfocus______
this.getField("POS2").value=
this.getField("POS1").value+1;

My problem is if the user types in B001
I need field “POS2” to Autofill to B002

I have done this before in MSAccess using
VBA by creating a function. I don’t know any Java.
I have 15 forms in the PDF, each form has POS1
Thru POS48 with P1.POS1 for page 1 and P2.POS1
For page 2. So I quess I need to create a function that
I can reference in each field????

Below is the VBA I created for my MSAccess App:

Option Compare Database
Option Explicit

Function AlphaNumWRAP1(ByVal AlphaNum As Variant)
Dim Clean1 As String
Dim Clean2 As String
Dim MyStr1
Dim Pos, A_Char$
Pos = 1
If IsNull(AlphaNum) Then Exit Function
For Pos = 1 To Len(AlphaNum)
A_Char$ = Mid(AlphaNum, Pos, 1)
If A_Char$ >= "0" And A_Char$ <= "9" Then
Clean1$ = Clean1$ + A_Char$
End If
Next Pos
For Pos = 1 To Len(AlphaNum)
A_Char$ = Mid(AlphaNum, Pos, 1)
If A_Char$ >= "B" And A_Char$ <= "B" Then
Clean2$ = Clean2$ + A_Char$
ElseIf A_Char$ >= "G" And A_Char$ <= "U" Then
Clean2$ = Clean2$ + A_Char$
ElseIf A_Char$ >= "W" And A_Char$ <= "Z" Then
Clean2$ = Clean2$ + A_Char$
End If
Next Pos
Clean2$ = Format(Clean2$, ">")
MyStr1 = Clean1$ + 1
MyStr1 = Format(MyStr1, "000")
AlphaNumWRAP1 = Clean2$ & MyStr1
End Function


PDF In-Depth Free Product Trials Ubiquitous PDF

Debenu Aerialist

The ultimate plug-in for Adobe Acrobat. Advanced splitting, merging, stamping, bookmarking, and link...

Download free demo

Debenu PDF Tools Pro

It's simple to use and will let you preview and edit PDF files, it's a Windows application that makes...

Download free demo

Back to the past, 15 years ago! Open Publish 2002

Looking back to 2002, it's amazing how much of the prediction became a reality. Take a read and see what you think!

September 14, 2017
Platinum Sponsor





Search Planet PDF
more searching options...
Planet PDF Newsletter
Most Popular Articles
Featured Product

Debenu PDF Aerialist

The ultimate plug-in for Adobe Acrobat. Advanced splitting, merging, stamping, bookmarking, and link control. Take Acrobat to the next level.

Features

Adding a PDF Stamp Comment

OK, so you want to stamp your document. Maybe you need to give reviewers some advice about the document's status or sensitivity. This tip from author Ted Padova demonstrates how to add stamps with the Stamp Tool along with related comments.