24. august 2006 - 14:28Der er
11 kommentarer og 1 løsning
Gå til sidste nye post
Hej,
Har fölgende kode: Private Sub cmdTilføj_Click() Dim sSQL As String
If Not IsNull(DLookup("[No_]", "[dbo_vw_Thorn_Svenska_AB$Customer]", "[No_]=txtKundenr")) Then sSQL = "INSERT INTO tblAutoGiro ([aNo_], [aSearch Name], [aAddress], [aAddress 2], [aPost Code], [aCity], [aPersonal ID No_])" & vbCrLf & _ "SELECT ([No_]), ([Search Name]), ([Address]), ([Address 2]), ([Post Code]), ([City]), ([Personal ID No_])" & vbCrLf & _ "FROM [dbo_vw_Thorn_Svenska_AB$Customer] WHERE [No_] = " & "txtKundenr.Value" Me.Requery DoCmd.RunSQL sSQL Else MsgBox "Kundnummer " & txtKundenr & " finns inte i Navision!", vbExclamation End If Me.Requery Me.txtKundenr = "" Me.txtKundenr.SetFocus End Sub -----
Som det er nu lägger den värdi til i databasen. Jeg vil gerne at den post som lige er lagt til skal väre tilbage på skärmen så at man eventuelt kan ändre feks adresse o.l.
Det bedste havde väret hvis nogen kan ändre så at den först henter data fra [dbo_vw_Thorn_Svenska_AB$Customer] og lägger dem ind i felterne og hvor man så bagefter trykker på en knapp så at det gemmes i accestabellen [tblAutoGiro]
I dette særtema om aspekter af AI ser vi på skiftet fra sprogmodeller til AI-agenter, og hvordan virksomheder kan navigere i spændet mellem teknologisk hastighed og behovet for menneskelig kontrol.
Slettet bruger
24. august 2006 - 15:55#1
Prøv!~)
Private Sub cmdTilføj_Click() Dim sSQL As String Dim BookM
If Not IsNull(DLookup("[No_]", "[dbo_vw_Thorn_Svenska_AB$Customer]", "[No_]=txtKundenr")) Then sSQL = "INSERT INTO tblAutoGiro ([aNo_], [aSearch Name], [aAddress], [aAddress 2], [aPost Code], [aCity], [aPersonal ID No_])" & vbCrLf & _ "SELECT ([No_]), ([Search Name]), ([Address]), ([Address 2]), ([Post Code]), ([City]), ([Personal ID No_])" & vbCrLf & _ "FROM [dbo_vw_Thorn_Svenska_AB$Customer] WHERE [No_] = " & "txtKundenr.Value" 'Me.Requery DoCmd.RunSQL sSQL Else MsgBox "Kundnummer " & txtKundenr & " finns inte i Navision!", vbExclamation End If BookM = Me.Bookmark Me.Requery Me.txtKundenr = "" Me.txtKundenr.SetFocus Me.Bookmark = BookM End Sub
Det vil stadig ikke virke. Det er precis som om den gör det bagvendt og det kan godt väre der er fejl i min kode. Den lägger kunden til men...forfra!? Det vil sige at post 1 bliver post 2 når der gemmes til databasen. Hvad går galt? Når den nye så er lagt til i databasen åbner den en ny foran alle andre og genbruger samme kundenummer som det er lige er lagt til. Dette må den ikke men den skal kun lägge til og derefter gå til den post som lige er lagt til.
Er dette bedre/muligt?: Det bedste havde väret hvis nogen kan ändre så at den först henter data fra [dbo_vw_Thorn_Svenska_AB$Customer] og lägger dem ind i felterne og hvor man så bagefter trykker på en knapp så at det gemmes i accestabellen [tblAutoGiro], på en måde som en slags temp
"FROM [NEWdbo_vw_Thorn_Svenska_AB$Customer] WHERE [No_] = '" & txtKundenr.Value & "'"
DoCmd.RunSQL sSQL
Me.Undo
Me.Requery
DoCmd.GoToRecord , , acLast Else
MsgBox "Kundnummer " & txtKundenr & " finns inte i Navision!", vbExclamation
End If End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
