Hallo,
kann mir jemand sagen, warum dieser Code die Rechnungsnummer um 2 und
nicht um 1 erhöht?
Gleicher Code im Editfield funktioniert.
E7 war früher ein Editfield. Jetzt ist es eine ComboBox.
Schon mal vielen Dank für eure Hilfe.
Robert
Dim t,n,neu As String
Dim i,j,nr As integer
pushButton1.enabled=true
//Rechnungsnummer erhöhen
t=E7.text
for i=3 to 20
if mid(t,i,1)="#" then
for j=1 to 6
if asc(mid(t,i+j,1))>47 and asc(mid(t,i+j,1))<58 then
n=n+mid(t,i+j,1)
end if
next
nr=val(n)+1
neu=str(nr)
t=left(t,i)+neu
exit
end if
next
E7.text=t
E7.selstart=len(E7.text)
