Sorguyu bir değişkende saklamak

[erkankamilonas]

Şöyle bir sorguda

[Cari Adı Soyadı/Ünvanı].RowSource = "SELECT [Kartlar Cari].[Cari Adı Soyadı/Ünvanı], [Kartlar Cari].[Cari Hesap Kodu] " & _
"FROM [Kartlar Cari] " & _
"WHERE ((([Kartlar Cari].[Cari Hesap Kodu])=[Formlar]![Fatura]![Cari Hesap Kodu]));"

Oluşan sonucun bir değişkende saklanması mümkünmüdür?

 

[modalı]

Sayın erkankamilonas,

Dim strSql As String

strSql= "SELECT [Kartlar Cari].[Cari Adı Soyadı/Ünvanı], [Kartlar Cari].[Cari Hesap Kodu] FROM [Kartlar Cari] WHERE ((([Kartlar Cari].[Cari Hesap Kodu])=[Formlar]![Fatura]![Cari Hesap Kodu]));"

[Cari Adı Soyadı/Ünvanı].RowSource = strSql

İyi çalışmalar

 

[erkankamilonas]

Teşekkürler, ancak; Oluşan sonuçtan [Cari Adı Soyadı/Ünvanı] sütununun sonucunu almak istiyorum.

 

[erkankamilonas]

Sorumu bir daha tekrarlıyorum;

[Cari Adı Soyadı/Ünvanı].RowSource = "SELECT [Kartlar Cari].[Cari Adı Soyadı/Ünvanı], [Kartlar Cari].[Cari Hesap Kodu] " & _
"FROM [Kartlar Cari] " & _
"WHERE ((([Kartlar Cari].[Cari Hesap Kodu])=[Formlar]![Fatura]![Cari Hesap Kodu]));"

Bu sorgudan dönen iki değer var
1) [Kartlar Cari].[Cari Adı Soyadı/Ünvanı],
2) [Kartlar Cari].[Cari Hesap Kodu]

Benim istediğim bu sonuçları bir değişkende saklayabilmek.

Yani = Recordset![Cari Hesap Kodu]
gibi...
Teşekkürler.

 

[Taruz]

Merhaba..

Mesaj kutularına atadığım değişkenleri istediğiniz gibi kullanabilirsiniz..

[COLOR=#0600ff]Dim[/COLOR] rs [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]New[/COLOR] ADODB.Recordset
    [COLOR=#0600ff]Dim[/COLOR] sorgu [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]String[/COLOR]
    [COLOR=#0600ff]Dim[/COLOR] kriter
    kriter [COLOR=#008000]=[/COLOR] [COLOR=#000000][[/COLOR]Forms[COLOR=#000000]][/COLOR]![COLOR=#000000][[/COLOR]Fatura[COLOR=#000000]][/COLOR]![COLOR=#000000][[/COLOR]Cari Hesap Kodu[COLOR=#000000]][/COLOR]
    sorgu [COLOR=#008000]=[/COLOR] [COLOR=#fb0000]"SELECT [Kartlar Cari].[Cari Adı Soyadı/Ünvanı], [Kartlar Cari].[Cari Hesap Kodu] "[/COLOR] [COLOR=#008000]&[/COLOR] _
            [COLOR=#fb0000]"FROM [Kartlar Cari] "[/COLOR] [COLOR=#008000]&[/COLOR] _
            [COLOR=#fb0000]"WHERE [Kartlar Cari].[Cari Hesap Kodu]="[/COLOR] [COLOR=#008000]&[/COLOR] kriter [COLOR=#008000]&[/COLOR] [COLOR=#fb0000]""[/COLOR]
    [COLOR=#000000][[/COLOR]Cari Adı Soyadı[COLOR=#008000]/[/COLOR]Ünvanı[COLOR=#000000]][/COLOR].RowSource [COLOR=#008000]=[/COLOR] sorgu
    rs.[COLOR=#0600ff]Open[/COLOR] sorgu, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    MsgBox rs[COLOR=#000000]([/COLOR][COLOR=#7d2252]0[/COLOR][COLOR=#000000])[/COLOR]
    MsgBox rs[COLOR=#000000]([/COLOR][COLOR=#7d2252]1[/COLOR][COLOR=#000000])[/COLOR]
 
    [COLOR=#0600ff]Set[/COLOR] rs [COLOR=#008000]=[/COLOR] [COLOR=#0600ff]Nothing[/COLOR]

Not..: Konu, içeriği gereği Access Soruları kısmına taşınmıştır..