Jak ty chcesz skleić stringa i liczbę przy pomocy "+"? A?
strSQL = "select * from dane where identyfikator=" + OpenArgs
zrób tak:
strSQL = "select * from dane where identyfikator=" & OpenArgs
Tylko wtedy dokona się niejawna konwersja z liczby na String.
Ale wg mnie lepiej jest napierw przekonwertować OpenArgs na String i podstawić do nowej zmiennej... Na pewno czytelniej... ale mogę się mylić.
pozdrawiam.
napisał: adam77 postów: 1
umieszczony: 13 sierpnia 2005 19:47
na formularzu mam liste na ktorej wyswietlone sa dane z tabeli - i teraz chcialbym zmodyfikowac jakis rekord - jak to zrobic??
wprowadzam w formularzu "po załadowaniu" :
Private Sub Form_Load()
Dim rs As Recordset
Dim strSQL As String
If OpenArgs <> 0 Then
strSQL = "select * from dane where identyfikator=" + OpenArgs
Set rs = CurrentDb.OpenRecordset(strSQL)
txt_imie = rs!imie
txt_nazwisko = rs!nazwisko
txt_wiek = rs!wiek
Else
txt_imie = ""
txt_nazwisko = ""
txt_wiek = ""
End If
i wyrzuca mi bład
Run-time Error '13'
Type mismatch
i zaznacza na żółto wiersz
Set rs = CurrentDb.OpenRecordset(strSQL)
jak rozwiań ten problem ???
< moge przesłać ta baze dla lepszego zobrazowania mojego problemu