Nie jesteś zalogowany.
Jeśli nie posiadasz konta, zarejestruj je już teraz! Pozwoli Ci ono w pełni korzystać z naszego serwisu. Spamerom dziękujemy!
Ogłoszenie
Prosimy o pomoc dla małej Julki — przekaż 1% podatku na Fundacji Dzieciom zdazyć z Pomocą.
Więcej informacji na dug.net.pl/pomagamy/.
#1 2007-02-26 13:40:10
BiExi - 
matka przelozona
jebany vba
skrobnelam cos takiego
Kod:
Private Sub Form_Load()
Dim rs As ADODB.Recordset
Dim nastepny As Long
Dim mies As String
Set rs = New ADODB.Recordset
rs.Open "numeracja", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
nastepny = rs!nr
rs!nr = nastepny + 1
nastepny = rs!nr
mies = rs!miesiac
rs.Update
rs.Close
Set rs = Nothing
Me.nr_fv = Str(nastepny) & "/" & mies
End Subno i ciekawi mnie jedno dlaczego przy
Me.nr_fv = Str(nastepny) & "/" & mies
zwracana jest zawsze spacja na poczatku ma ktos jakispomysl aby tej spacji tam nie bylo?
Offline